LITMIR.BIZ

      procedure TForm1.cmbItalicBoldMouseMove(Sender: TObject;

      Shift: TShiftState; X, Y: Integer);

      begin

      cmbItalicBold.Font.Style := [fsItalic, fsBold];

      end;

      procedure TForm1.lblItalicMouseEnter(Sender: TObject);

      begin

      lblItalic.Font.Style := [fsItalic];

      end;

      procedure TForm1.FormCreate(Sender: TObject);

      begin

      //Определяем тип клавиатуры

      case GetKeyboardType(0) of

      1: txtType.Text := 'PC/XT или совместимая (83 клавиши)';

      2: txtType.Text := 'Olivetti «ICO» (102 клавиши)';

      3: txtType.Text := 'PC/AT (84 клавиши) или похожая';

      4: txtType.Text := 'Расширенная (101 или 102 клавиши)';

      5: txtType.Text := 'Nokia 1050 или похожая';

      6: txtType.Text := 'Nokia 9140 или похожая';

      7: txtType.Text := 'японская';

      end;

      //Определяем код типа производителя

      txtSubtype.Text := IntToStr(GetKeyboardType(1));

      //Определяем количество функциональных клавиш

      txtKeys.Text := IntToStr(GetKeyboardType(2));

      end;