Ивт-20 / САОД и др / ОЗО_2010-САОД_1 / Демо_Проекты / Demo_Ввод-вывод / Unit1

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, ValEdit, CheckLst, Mask, ComCtrls,
  ToolWin, ImgList;

type
  TForm1 = class(TForm)
    rg: TRadioGroup;
    shapka: TLabel;
    obzor: TPanel;
    GroupBox1: TGroupBox;
    combofont: TComboBox;
    cb1: TCheckBox;
    cb3: TCheckBox;
    cb4: TCheckBox;
    cb: TColorBox;
    shapka4: TLabel;
    Edit1: TEdit;
    cb2: TCheckBox;
    colorbox: TColorBox;
    Label1: TLabel;
    StaticText1: TStaticText;
    Panel1: TPanel;
    Edit: TEdit;
    MaskEdit1: TMaskEdit;
    LabeledEdit1: TLabeledEdit;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Memo1: TMemo;
    RichEdit1: TRichEdit;
    ListBox1: TListBox;
    CheckListBox1: TCheckListBox;
    VLE: TValueListEditor;
    cbx: TComboBox;
    cbxx: TComboBoxEx;
    sg: TStringGrid;
    enab: TCheckBox;
    visib: TCheckBox;
    Lleft: TLabeledEdit;
    Ltop: TLabeledEdit;
    Lheight: TLabeledEdit;
    Lwidth: TLabeledEdit;
    TabSheet2: TTabSheet;
    l1: TLabeledEdit;
    ListBox2: TListBox;
    ListBox3: TListBox;
    Label2: TLabel;
    Label3: TLabel;
    TabSheet3: TTabSheet;
    LabeledEdit2: TLabeledEdit;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    TabSheet4: TTabSheet;
    LabeledEdit3: TLabeledEdit;
    Label8: TLabel;
    ComboBox6: TComboBox;
    Label9: TLabel;
    ComboBox7: TComboBox;
    Label10: TLabel;
    ComboBox8: TComboBox;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    ListBox4: TListBox;
    Label11: TLabel;
    TabSheet5: TTabSheet;
    ComboBox9: TComboBox;
    Label12: TLabel;
    LabeledEdit6: TLabeledEdit;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    Label13: TLabel;
    ComboBox10: TComboBox;
    LabeledEdit7: TLabeledEdit;
    Label14: TLabel;
    ComboBox11: TComboBox;
    LabeledEdit8: TLabeledEdit;
    LabeledEdit9: TLabeledEdit;
    Button1: TButton;
    Label15: TLabel;
    ListBox5: TListBox;
    TabSheet8: TTabSheet;
    Label16: TLabel;
    ComboBox12: TComboBox;
    LabeledEdit10: TLabeledEdit;
    CheckBox1: TCheckBox;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Memo2: TMemo;
    Label20: TLabel;
    TabSheet9: TTabSheet;
    CheckBox2: TCheckBox;
    Button2: TButton;
    Label22: TLabel;
    Edit2: TEdit;
    Button3: TButton;
    TabSheet10: TTabSheet;
    FontDialog1: TFontDialog;
    CheckBox3: TCheckBox;
    Edit3: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Label21: TLabel;
    Label23: TLabel;
    TabSheet11: TTabSheet;
    Label25: TLabel;
    CheckBox4: TCheckBox;
    Edit4: TEdit;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Memo3: TMemo;
    ColorBox1: TColorBox;
    ColorBox2: TColorBox;
    Label24: TLabel;
    Label26: TLabel;
    TabSheet12: TTabSheet;
    Edit5: TEdit;
    Edit6: TEdit;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    TabSheet13: TTabSheet;
    ComboBox1: TComboBox;
    Label27: TLabel;
    CheckBox9: TCheckBox;
    LabeledEdit11: TLabeledEdit;
    TabSheet14: TTabSheet;
    TabSheet15: TTabSheet;
    LabeledEdit12: TLabeledEdit;
    LabeledEdit13: TLabeledEdit;
    Button10: TButton;
    Label28: TLabel;
    CheckBox10: TCheckBox;
    LabeledEdit14: TLabeledEdit;
    LabeledEdit15: TLabeledEdit;
    LabeledEdit16: TLabeledEdit;
    LabeledEdit17: TLabeledEdit;
    Button11: TButton;
    Button12: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Button13: TButton;
    Button14: TButton;
    ImageList1: TImageList;
    ComboBox13: TComboBox;
    Label29: TLabel;
    Panel2: TPanel;
    LL2: TLabel;
    LL1: TLabel;
    pp: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure rgClick(Sender: TObject);
    procedure cbClick(Sender: TObject);
    procedure combofontClick(Sender: TObject);
    procedure cb1Click(Sender: TObject);
    procedure cb2Click(Sender: TObject);
    procedure cb3Click(Sender: TObject);
    procedure cb4Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure enabClick(Sender: TObject);
    procedure visibClick(Sender: TObject);
    procedure LleftChange(Sender: TObject);
    procedure LtopChange(Sender: TObject);
    procedure LheightChange(Sender: TObject);
    procedure LwidthChange(Sender: TObject);
    procedure colorboxClick(Sender: TObject);
    procedure l1Change(Sender: TObject);
    procedure ListBox2Click(Sender: TObject);
    procedure ListBox3Click(Sender: TObject);
    procedure LabeledEdit2Change(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);
    procedure ComboBox4Click(Sender: TObject);
    procedure ComboBox5Click(Sender: TObject);
    procedure LabeledEdit3Change(Sender: TObject);
    procedure ComboBox6Click(Sender: TObject);
    procedure ComboBox7Click(Sender: TObject);
    procedure ComboBox8Click(Sender: TObject);
    procedure LabeledEdit4Change(Sender: TObject);
    procedure LabeledEdit5Change(Sender: TObject);
    procedure ListBox4Click(Sender: TObject);
    procedure ComboBox9Click(Sender: TObject);
    procedure LabeledEdit6Change(Sender: TObject);
    procedure ComboBox10Click(Sender: TObject);
    procedure LabeledEdit7Change(Sender: TObject);
    procedure ComboBox11Click(Sender: TObject);
    procedure LabeledEdit8Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ListBox5Click(Sender: TObject);
    procedure LabeledEdit10Change(Sender: TObject);
    procedure ComboBox12Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Memo1Click(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure RichEdit1Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure CheckBox3Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure CheckListBox1Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure ColorBox1Click(Sender: TObject);
    procedure ColorBox2Click(Sender: TObject);
    procedure CheckListBox1ClickCheck(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure LabeledEdit11Change(Sender: TObject);
    procedure cbxClick(Sender: TObject);
    procedure sgSelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure Button10Click(Sender: TObject);
    procedure CheckBox10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure sgClick(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure ComboBox13Click(Sender: TObject);
    procedure enabMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure visibMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LleftMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LtopMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LheightMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LwidthMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure cb1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure cb2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure cb3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure cb4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure l1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure ListBox2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure ListBox3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LabeledEdit2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LabeledEdit3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure ListBox4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label8MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label9MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label10MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LabeledEdit4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LabeledEdit5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label12MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LabeledEdit6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label13MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LabeledEdit7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label14MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LabeledEdit8MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label16MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LabeledEdit10MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure CheckBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure CheckBox2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button13MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button14MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure CheckBox3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure CheckBox4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button8MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button9MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label24MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label26MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure CheckBox5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure CheckBox6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure CheckBox7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure CheckBox8MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure CheckBox9MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LabeledEdit11MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure Label27MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label29MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure CheckBox10MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LabeledEdit12MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure LabeledEdit13MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure LabeledEdit14MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure LabeledEdit15MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure LabeledEdit16MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure LabeledEdit17MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure PageControl1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure obzorMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure shapkaMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    private
    { Private declarations }
  public
  obj: TObject;
  tab:ttabsheet;
      { Public declarations }
  end;
var
  Form1: TForm1;
  point:bool;
  i:integer;
  q:bool;
  st:array[0..9] of string;
implementation

{$R *.dfm}
procedure sg1;
begin
with form1 do
begin
labelededit12.Text:=IntToStr(sg.ColCount);
labelededit13.Text:=IntToStr(sg.RowCount);
labelededit14.Text:=IntToStr(sg.DefaultColWidth);
labelededit15.Text:=IntToStr(sg.DefaultRowHeight);
labelededit16.Text:=IntToStr(sg.FixedCols);
labelededit17.Text:=IntToStr(sg.FixedRows);
end;
end;

procedure chFont;
 begin
   with form1.obzor do
     begin
       font.Name:=form1.combofont.Text;
       font.Style:=[];
       font.color:=form1.cb.Selected;
       font.Size:=StrToInt(form1.Edit1.Text);
        if form1.cb1.Checked then font.Style:=font.Style+[fsbold];
        if form1.cb2.Checked then font.Style:=font.Style+[fsitalic];
        if form1.cb3.Checked then font.Style:=font.Style+[fsunderline];
        if form1.cb4.Checked then font.Style:=font.Style+[fsstrikeout];
  end;
 end;

procedure go;
 begin
   with form1 do
    begin

      (tab as ttabsheet).TabVisible:=true;
      (obj as tcontrol).Visible:=true;
      (obj as tcontrol).enabled:=true;
      lwidth.Text:=IntToStr((obj as tcontrol).Width);
      lheight.Text:=IntToStr((obj as tcontrol).Height);
      ltop.Text:=IntToStr((obj as tcontrol).top);
      lleft.Text:=IntToStr((obj as tcontrol).Left);
         if point=true then colorbox.Selected:=clwindow
          else colorbox.Selected:=clbtnface;
      enab.State:=cbchecked;
      visib.State:=cbchecked;
      pagecontrol1.ActivePage:=(tab as ttabsheet);
    end;
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 for i:=0 to 41 do combofont.Items.Add(screen.Fonts.Strings[i]);
 pagecontrol1.ActivePageIndex:=0;
 rg.ItemIndex:=0;
 for i:=0 to 9 do st[i]:='Строка № '+IntToStr(i);
 q:=false;
end;

procedure TForm1.rgClick(Sender: TObject);
begin
if q=true then
begin
(obj as tcontrol).Visible:=false;
(tab as ttabsheet).TabVisible:=false;
 end
 else q:=true;
 case rg.ItemIndex of
  0:
   begin
   obj:=label1;
   tab:=tabsheet2;
   point:=false;
   l1.Text:=label1.Caption;
   listbox2.ItemIndex:=0;
   listbox3.ItemIndex:=0;
   ll1.Caption:='Страница: Standard';
   ll2.Caption:='Отображение текста, который не изменяется пользователем. Никакого оформления текста не предусмотрено, кроме цвета метки и текста. Основное свойство - Caption. ';
   end;
  1:
   begin
   obj:=statictext1;
   labelededit2.Text:=statictext1.Caption;
   point:=false;
   tab:=tabsheet3;
   combobox2.ItemIndex:=1;
   combobox3.ItemIndex:=1;
   combobox4.ItemIndex:=1;
   combobox5.ItemIndex:=0;
   ll1.Caption:='Страница: Additional';
   ll2.Caption:='Подобен компоненту Label, но обеспечивает возможность задания стиля бордюра. Основное свойство - Caption. ';
   end;
  2:
   begin
   obj:=panel1;
   point:=false;
   tab:=tabsheet4;
   labelededit3.Text:=panel1.Caption;
   combobox6.ItemIndex:=1;
   combobox7.ItemIndex:=2;
   combobox8.ItemIndex:=0;
   labelededit4.Text:=IntToStr(panel1.BevelWidth);
   labelededit5.Text:=IntToStr(panel1.BorderWidth);
   listbox4.ItemIndex:=1;
   ll1.Caption:='Страница: Standard';
   ll2.Caption:='Компонент является контейнером для группирования органов управления, но может использоваться и для отображения текста с возможностями объемного оформления. Основное свойство - Caption. ';
   end;
  3:
   begin
   obj:=edit;
   point:=true;
   tab:=tabsheet5;
   combobox9.ItemIndex:=1;
   labelededit6.Text:=IntToStr(edit.MaxLength);
   ll1.Caption:='Страница: Standard';
   ll2.Caption:='Отображение, ввод и редактирование однострочных текстов. Имеется возможность оформления объемного бордюра. Основное свойство - Text. ';
   end;
  4:
   begin
   obj:=maskedit1;
   point:=true;
   tab:=tabsheet6;
   ll1.Caption:='Страница: Additional';
   ll2.Caption:='Используется для форматирования данных или для ввода символов в соответствии с шаблоном. Основные свойства - Text и EditText. ';
   end;
 5:
   begin
   obj:=labelededit1;
   point:=true;
   tab:=tabsheet7;
   combobox10.ItemIndex:=1;
   labelededit7.Text:=labelededit1.EditLabel.Caption;
   combobox11.ItemIndex:=0;
   labelededit8.Text:=IntToStr(labelededit1.LabelSpacing);
   ll1.Caption:='Страница: Additional';
   ll2.Caption:='Комбинация Edit и Label. Основные свойства Text и EditLabel.Caption.';
   end;
 6:
   begin
   obj:=memo1;
   point:=true;
   tab:=tabsheet8;
   combobox12.ItemIndex:=0;
   labelededit10.Text:=IntToStr(memo1.MaxLength);
   checkbox1.State:=cbchecked;
   for i:=0 to 9 do memo1.Lines.Add(st[i]);
   ll1.Caption:='Страница: Standard';
   ll2.Caption:='Отображение, ввод и редактирование многострочных текстов. Имеется возможность оформления объемного бордюра. Основное свойство - Lines. ';
   end;
 7:
   begin
   obj:=richedit1;
   point:=true;
   tab:=tabsheet9;
   for i:=0 to 9 do richedit1.Lines.Add(st[i]);
   checkbox2.State:=cbchecked;
   ll1.Caption:='Страница: WIN32';
   ll2.Caption:='Компонент представляет собой окно редактирования в стиле Windows 95 в обогащенном формате RTF, позволяющее производить выбор атрибутов шрифта, поиск текста и многое другое. Основное свойство - Lines. ';
   end;
 8:
   begin
   obj:=listbox1;
   point:=true;
   tab:=tabsheet10;
   for i:=0 to 9 do listbox1.Items.Add(st[i]);
   ll1.Caption:='Страница: Standard';
   ll2.Caption:='Отображение стандартного окна списка Windows, позволяющего пользователю выбирать из него пункты. Основное свойство - Items. ';
   end;
 9:
   begin
   obj:=checklistbox1;
   point:=true;
   tab:=tabsheet11;
   for i:=0 to 9 do checklistbox1.Items.Add(st[i]);
   colorbox1.Selected:=checklistbox1.HeaderBackgroundColor;
   colorbox2.Selected:=checklistbox1.HeaderColor;
   ll1.Caption:='Страница: Additional';
   ll2.Caption:='Компонент является комбинацией свойств списка ListBox и индикаторов CheckBox в одном компоненте. ';
   end;
 10:
   begin
   obj:=vle;
   point:=true;
   tab:=tabsheet12;
   edit5.Text:=vle.TitleCaptions[0];
   edit6.Text:=vle.TitleCaptions[1];
   vle.Values['Фамилия']:='Петров';
   vle.Values['имя']:='Петр';
   vle.Values['Отчество']:='Петрович';
   vle.ItemProps['телефон'].EditMask:='!00-00-00;1;_';
   with vle.ItemProps['отдел'] do
   begin
   editstyle:=espicklist;
   picklist.Add('управление');
   picklist.Add('кадры');
   picklist.Add('тех.отдел');
   picklist.Add('бухгалтерия');
   readonly:=true;
   end;
   with vle.ItemProps['должность'] do
   begin
   editstyle:=espicklist;
   picklist.Add('начальник');
   picklist.Add('рабочий');
   picklist.Add('бухгалтер');
   picklist.Add('кадровик');
   readonly:=true;
   end;
   ll1.Caption:='Страница: Additional';
   ll2.Caption:='Окно редактирования списков строк вида "имя=значение". Основные свойства Keys - имена, Values - значение. Такие списки широко используются в реестре Windows и файлах инициализации.';
   end;
 11:
   begin
   obj:=cbx;
   point:=true;
   tab:=tabsheet13;
   for i:=0 to 9 do cbx.Items.Add(st[i]);
   ll1.Caption:='Страница: Standard';
   ll2.Caption:='Объединяет функции ListBox и Edit. Пользователь может либо ввести текст, либо выбрать его из списка. Основное свойство - Items. ';
   end;
 12:
   begin
   obj:=cbxx;
   point:=true;
   tab:=tabsheet14;
   cbxx.Images:=imagelist1;
   for i:=0 to 9 do cbxx.ItemsEx.AddItem(st[i],i,0,0,0,0);
   ll1.Caption:='Страница: WIN32';
   ll2.Caption:='Выпадающий список с возможностью отображения текстов и изображений. Основное свойство - Items.';
   end;
 13:
   begin
   obj:=sg;
   point:=true;
   tab:=tabsheet15;
   checkbox10.State:=cbchecked;
   sg1;
   ll1.Caption:='Страница: Additional';
   ll2.Caption:='Отображение текстовой информации в таблице из строк и столбцов с возможностью перемещаться по строкам и столбцам и осуществлять выбор. Основное свойство - Cells. ';
   end;
 end;
  go;
  chfont;
end;

procedure TForm1.cbClick(Sender: TObject);
begin
chfont;
end;

procedure TForm1.combofontClick(Sender: TObject);
begin
chfont;
end;

procedure TForm1.cb1Click(Sender: TObject);
begin
chfont;
end;

procedure TForm1.cb2Click(Sender: TObject);
begin
chfont;
end;

procedure TForm1.cb3Click(Sender: TObject);
begin
chfont;
end;

procedure TForm1.cb4Click(Sender: TObject);
begin
chfont;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
chfont;
end;

procedure TForm1.enabClick(Sender: TObject);
begin
if enab.Checked then (obj as tcontrol).Enabled:=true
else (obj as tcontrol).enabled:=false;
end;

procedure TForm1.visibClick(Sender: TObject);
begin
if visib.Checked then (obj as tcontrol).Visible:=true
else (obj as tcontrol).Visible:=false;
end;

procedure TForm1.LleftChange(Sender: TObject);
begin
(obj as tcontrol).Left:=StrToint(lleft.text);
end;

procedure TForm1.LtopChange(Sender: TObject);
begin
(obj as tcontrol).top:=StrToint(ltop.text);
end;

procedure TForm1.LheightChange(Sender: TObject);
begin
(obj as tcontrol).Height:=StrToint(lheight.text);
end;

procedure TForm1.LwidthChange(Sender: TObject);
begin
(obj as tcontrol).Width:=StrToint(lwidth.text);
end;

procedure TForm1.l1Change(Sender: TObject);
begin
label1.Caption:=l1.Text;
end;
procedure TForm1.colorboxClick(Sender: TObject);
begin
case rg.ItemIndex of
  0:
   begin
  label1.Color:=colorbox.Selected;
  end;
  1:
   begin
   statictext1.Color:=colorbox.Selected;
   end;
  2:
   begin
   panel1.Color:=colorbox.Selected;
   end;
  3:
   begin
   edit.Color:=colorbox.Selected;
   end;
  4:
   begin
   maskedit1.Color:=colorbox.Selected;
   end;
 5:
   begin
   labelededit1.Color:=colorbox.Selected;
   end;
 6:
   begin
   memo1.Color:=colorbox.Selected;
   end;
 7:
   begin
   richedit1.Color:=colorbox.Selected;
   end;
 8:
   begin
   listbox1.Color:=colorbox.Selected;
   end;
 9:
   begin
   checklistbox1.Color:=colorbox.Selected;
   end;
 10:
   begin
   vle.Color:=colorbox.Selected;
   end;
 11:
   begin
   cbx.Color:=colorbox.Selected;
   end;
 12:
   begin
   cbxx.Color:=colorbox.Selected;
   end;
 13:
   begin
   sg.Color:=colorbox.Selected;
   end;
 end;
end;

procedure TForm1.ListBox2Click(Sender: TObject);
begin
case listbox2.ItemIndex of
0:label1.Align:=alnone;
1:label1.Align:=albottom;
2:label1.Align:=alclient;
3:label1.Align:=alcustom;
4:label1.Align:=alleft;
5:label1.Align:=alright;
6:label1.Align:=altop;
end;
end;

procedure TForm1.ListBox3Click(Sender: TObject);
begin
case listbox3.ItemIndex of
0:label1.Alignment:=taleftjustify;
1:label1.Alignment:=tacenter;
2:label1.Alignment:=tarightjustify;
end;
end;

procedure TForm1.LabeledEdit2Change(Sender: TObject);
begin
statictext1.Caption:=labelededit2.Text;
end;

procedure TForm1.ComboBox2Click(Sender: TObject);
begin
case combobox2.ItemIndex of
0:statictext1.BevelInner:=bvLowered;
1:statictext1.BevelInner:=bvNone;
2:statictext1.BevelInner:=bvRaised;
3:statictext1.BevelInner:=bvSpace;
end;
end;

procedure TForm1.ComboBox3Click(Sender: TObject);
begin
case combobox3.ItemIndex of
0:statictext1.BevelKind:=bkFlat;
1:statictext1.BevelKind:=bkNone;
2:statictext1.BevelKind:=bkSoft;
3:statictext1.BevelKind:=bkTile;
end;
end;

procedure TForm1.ComboBox4Click(Sender: TObject);
begin
case combobox4.ItemIndex of
0:statictext1.BevelOuter:=bvLowered;
1:statictext1.BevelOuter:=bvNone;
2:statictext1.BevelOuter:=bvRaised;
3:statictext1.BevelOuter:=bvSpace;
end;
end;

procedure TForm1.ComboBox5Click(Sender: TObject);
begin
case combobox5.ItemIndex of
0:statictext1.BorderStyle:=sbsNone;
1:statictext1.BorderStyle:=sbsSingle;
2:statictext1.BorderStyle:=sbsSunken;
end;
end;

procedure TForm1.LabeledEdit3Change(Sender: TObject);
begin
panel1.Caption:=labelededit3.Text;
end;

procedure TForm1.ComboBox6Click(Sender: TObject);
begin
case combobox6.ItemIndex of
0:panel1.BevelInner:=bvLowered;
1:panel1.BevelInner:=bvNone;
2:panel1.BevelInner:=bvRaised;
3:panel1.BevelInner:=bvSpace;
end;
end;

procedure TForm1.ComboBox7Click(Sender: TObject);
begin
case combobox7.ItemIndex of
0:panel1.BevelOuter:=bvLowered;
1:panel1.BevelOuter:=bvNone;
2:panel1.BevelOuter:=bvRaised;
3:panel1.BevelOuter:=bvSpace;
end;
end;

procedure TForm1.ComboBox8Click(Sender: TObject);
begin
case combobox8.ItemIndex of
0:panel1.BorderStyle:=bsNone;
1:panel1.BorderStyle:=bsSingle;
end;
end;

procedure TForm1.LabeledEdit4Change(Sender: TObject);
begin
panel1.BevelWidth:=StrToInt(labelededit4.Text);
end;

procedure TForm1.LabeledEdit5Change(Sender: TObject);
begin
panel1.BorderWidth:=StrToInt(labelededit5.Text);
end;


procedure TForm1.ListBox4Click(Sender: TObject);
begin
case listbox4.ItemIndex of
0:panel1.Alignment:=taleftjustify;
1:panel1.Alignment:=tacenter;
2:panel1.Alignment:=tarightjustify;
end;
end;

procedure TForm1.ComboBox9Click(Sender: TObject);
begin
case combobox9.ItemIndex of
0:edit.CharCase:=ecLowerCase;
1:edit.CharCase:=ecNormal;
2:edit.CharCase:=ecUpperCase;
end;
end;

procedure TForm1.LabeledEdit6Change(Sender: TObject);
begin
edit.MaxLength:=StrToInt(labelededit6.Text);
end;

procedure TForm1.ComboBox10Click(Sender: TObject);
begin
case combobox10.ItemIndex of
0:labelededit1.CharCase:=ecLowerCase;
1:labelededit1.CharCase:=ecNormal;
2:labelededit1.CharCase:=ecUpperCase;
end;
end;

procedure TForm1.LabeledEdit7Change(Sender: TObject);
begin
labelededit1.EditLabel.Caption:=labelededit7.Text;
end;

procedure TForm1.ComboBox11Click(Sender: TObject);
begin
case combobox11.ItemIndex of
0:labelededit1.LabelPosition:=lpAbove;
1:labelededit1.LabelPosition:=lpBelow;
2:labelededit1.LabelPosition:=lpLeft;
3:labelededit1.LabelPosition:=lpRight;
end;
end;

procedure TForm1.LabeledEdit8Change(Sender: TObject);
begin
labelededit1.LabelSpacing:=StrToInt(labelededit8.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
maskedit1.Text:='';
maskedit1.EditMask:=labelededit9.Text;
end;

procedure TForm1.ListBox5Click(Sender: TObject);
begin
case listbox5.ItemIndex of
0:labelededit9.Text:='!00-00-00;0;_';
1:labelededit9.Text:='!\(999\)000-00-00;0;_';
2:labelededit9.Text:='!000-000;1;_';
3:labelededit9.Text:='!L-LL 999999;0;_';
4:labelededit9.Text:='!99/99/00;1;_';
5:labelededit9.Text:='!99/00;1;_';
6:labelededit9.Text:='!90:00:00;1;_';
7:labelededit9.Text:='!90:00;1;_';
end;
end;

procedure TForm1.LabeledEdit10Change(Sender: TObject);
begin
memo1.MaxLength:=StrToInt(labelededit10.Text);
end;

procedure TForm1.ComboBox12Click(Sender: TObject);
begin
case combobox12.ItemIndex of
0:memo1.Alignment:=taLeftJustify;
1:memo1.Alignment:=taCenter;
2:memo1.Alignment:=taRightJustify;
end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then memo1.WordWrap:=true
else memo1.WordWrap:=false;
end;

procedure TForm1.Memo1Click(Sender: TObject);
var
a:integer;
begin
a:=memo1.CaretPos.Y;
label17.Caption:='Текущая строка: '+IntToStr(memo1.CaretPos.Y);
label18.Caption:='Номер символа:' +IntToStr(memo1.CaretPos.X);
label19.Caption:='Всего сторок:'+IntToStr(memo1.Lines.Count);
memo2.Lines.Strings[0]:=memo1.Lines.Strings[a];
end;

procedure TForm1.Memo1Change(Sender: TObject);
var
a:integer;
begin
a:=memo1.CaretPos.Y;
label17.Caption:='Текущая строка: '+IntToStr(memo1.CaretPos.Y);
label18.Caption:='Номер символа:' +IntToStr(memo1.CaretPos.X);
label19.Caption:='Всего сторок:'+IntToStr(memo1.Lines.Count);
memo2.Lines.Strings[0]:=memo1.Lines.Strings[a];
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked then richedit1.WordWrap:=true
else richedit1.WordWrap:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if fontdialog1.Execute then richedit1.SelAttributes.Assign(fontdialog1.Font);
end;

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
label22.Caption:='Всего сторок:'+IntToStr(richedit1.Lines.Count);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
richedit1.Lines.Strings[richedit1.CaretPos.Y]:=edit2.Text;
end;

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
edit2.Text:=richedit1.Lines.Strings[richedit1.CaretPos.Y];
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked then listbox1.Sorted:=true
else listbox1.Sorted:=false;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
for i:=0 to listbox1.Items.Count-1 do
if (listbox1.Selected[i]) then
begin
label21.Caption:='Текущая запись: '+IntToStr(i+1);
edit3.Text:=listbox1.Items.Strings[i];
break;
end;
label23.Caption:='Всего записей: '+IntToStr(listbox1.Items.Count);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
listbox1.Items.Delete(i);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
listbox1.Items.Strings[i]:=edit3.Text;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
listbox1.Items.Insert(i,edit3.Text);
end;

procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
label25.Caption:='Всего записей: '+IntToStr(checklistbox1.Items.Count);
for i:=0 to checklistbox1.Items.Count-1 do
if (checklistbox1.Selected[i]) then
begin
if checklistbox1.Header[i] then checkbox4.State:=cbchecked
else checkbox4.State:=cbunchecked;
break;
end;
edit4.Text:=checklistbox1.Items.Strings[i];
end;

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked then checklistbox1.Header[i]:=true
else checklistbox1.Header[i]:=false;
checklistbox1.Refresh;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
checklistbox1.Items.Delete(i);
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
checklistbox1.Items.Strings[i]:=edit4.Text;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
checklistbox1.Items.Insert(i,edit4.Text);
end;

procedure TForm1.ColorBox1Click(Sender: TObject);
begin
checklistbox1.HeaderBackgroundColor:=colorbox1.Selected;
checklistbox1.Repaint;
end;

procedure TForm1.ColorBox2Click(Sender: TObject);
begin
checklistbox1.HeaderColor:=colorbox2.Selected;
checklistbox1.Repaint;
end;

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
var
a:integer;
begin
memo3.Clear;
for a:=0 to checklistbox1.Items.Count-1 do
 begin
 if checklistbox1.Checked[a] then memo3.Lines.Add(checklistbox1.Items.Strings[a]);
 end;
end;

procedure TForm1.Edit5Change(Sender: TObject);
begin
vle.TitleCaptions[0]:=edit5.Text;
vle.Refresh;
end;

procedure TForm1.Edit6Change(Sender: TObject);
begin
vle.TitleCaptions[1]:=edit6.Text;
vle.Refresh;
end;

procedure TForm1.CheckBox5Click(Sender: TObject);
begin
if checkbox5.Checked then vle.KeyOptions:=vle.KeyOptions+[keyedit];
end;

procedure TForm1.CheckBox6Click(Sender: TObject);
begin
if checkbox6.Checked then vle.KeyOptions:=vle.KeyOptions+[keyadd];
end;

procedure TForm1.CheckBox7Click(Sender: TObject);
begin
if checkbox7.Checked then vle.KeyOptions:=vle.KeyOptions+[keydelete];
end;

procedure TForm1.CheckBox8Click(Sender: TObject);
begin
if checkbox8.Checked then vle.KeyOptions:=vle.KeyOptions+[keyunique];
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
case combobox1.ItemIndex of
0:cbx.Style:=csDropDown;
1:cbx.Style:=csDropDownList;
2:cbx.Style:=csOwnerDrawFixed;
3:cbx.Style:=csOwnerDrawVariable;
4:cbx.Style:=csSimple;
end;
cbx.Refresh;
cbx.Repaint;
end;

procedure TForm1.CheckBox9Click(Sender: TObject);
begin
if checkbox9.Checked then cbx.Sorted:=true
else
checkbox9.Checked:=false;
end;

procedure TForm1.LabeledEdit11Change(Sender: TObject);
begin
cbx.DropDownCount:=StrToInt(labelededit11.Text);
end;

procedure TForm1.cbxClick(Sender: TObject);
begin
labelededit11.Text:=IntToStr(cbx.DropDownCount);
end;

procedure TForm1.sgSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
label28.Caption:='Выбрана ячейка № '+IntToStr(acol)+' : '+IntToStr(Arow);
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
sg.ColCount:=StrToInt(labelededit12.Text);
sg.RowCount:=StrToInt(labelededit13.text);
sg.Refresh;
sg.Repaint;
end;

procedure TForm1.CheckBox10Click(Sender: TObject);
begin
if checkbox10.Checked then sg.Options:=sg.Options-[goediting]
else sg.Options:=sg.Options+[goediting];
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
sg.DefaultColWidth:=StrToInt(labelededit14.Text);
sg.DefaultRowHeight:=StrToInt(labelededit15.Text);
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
sg.FixedCols:=StrToInt(labelededit16.Text);
sg.FixedRows:=StrToInt(labelededit17.Text);
end;

procedure TForm1.sgClick(Sender: TObject);
begin
sg1;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
if opendialog1.Execute then richedit1.Lines.LoadFromFile(opendialog1.FileName);
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
if savedialog1.Execute then richedit1.Lines.SaveToFile(savedialog1.FileName);
end;

procedure TForm1.ComboBox13Click(Sender: TObject);
begin
case combobox13.ItemIndex of
0:cbxx.Style:=csexDropDown;
1:cbxx.Style:=csexDropDownList;
2:cbxx.Style:=csexSimple;
end;
cbxx.Refresh;
cbxx.Repaint;
end;

procedure TForm1.enabMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Obj.Enable:=Boolean(True or False);';
end;

procedure TForm1.visibMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Obj.Visible:=Boolean(True or False);';
end;

procedure TForm1.LleftMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Obj.Left:=Integer;';
end;

procedure TForm1.LtopMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Obj.Top:=Integer;';
end;

procedure TForm1.LheightMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Obj.Height:=Integer;';
end;

procedure TForm1.LwidthMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Obj.Width:=Integer;';
end;

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Obj.Font.Size:=Integer;';
end;

procedure TForm1.cb1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Obj.Font.Style:=[fsBold, fsItalic, fsUnderline, fsStrikeOut];';
end;

procedure TForm1.cb2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Obj.Font.Style:=[fsBold, fsItalic, fsUnderline, fsStrikeOut];';
end;

procedure TForm1.cb3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Obj.Font.Style:=[fsBold, fsItalic, fsUnderline, fsStrikeOut];';
end;

procedure TForm1.cb4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Obj.Font.Style:=[fsBold, fsItalic, fsUnderline, fsStrikeOut];';
end;

procedure TForm1.l1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Label.Caption:=String;';
end;

procedure TForm1.ListBox2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Label.Align:=(alNone,alBottom,alClient,alCustom,alLeft,alRight,alTop);';
end;

procedure TForm1.ListBox3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Label.Alignment:=(taLeftJustify, taRightJustify, taCenter);';
end;

procedure TForm1.LabeledEdit2MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
pp.Text:='StaticText.Caption:=String;';
end;

procedure TForm1.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='StaticText.BevelInner:=(bvLowered, bvNone, bvRaised, bvSpace);';
end;

procedure TForm1.Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='StaticText.BevelKind:=(bkFlat, bkNone, bkSoft, bkTile);';
end;

procedure TForm1.Label6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='StaticText.BevelOuter:=(bvLowered, bvNone, bvRaised, bvSpace);';
end;

procedure TForm1.Label7MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='StaticText.BorderStyle:=(sbsNone, sbsSingle, sbsSunken);';
end;

procedure TForm1.LabeledEdit3MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
pp.Text:='Panel.Caption:=String;';
end;

procedure TForm1.ListBox4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 pp.Text:='Panel.Alignment:=(taLeftJustify, taRightJustify, taCenter);';
end;

procedure TForm1.Label8MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Panel.BevelInner:=(bvLowered, bvNone, bvRaised, bvSpace);';
end;

procedure TForm1.Label9MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Panel.BevelOuter:=(bvLowered, bvNone, bvRaised, bvSpace);';
end;

procedure TForm1.Label10MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Panel.BorderStyle:=(sbsNone, sbsSingle, sbsSunken);';
end;

procedure TForm1.LabeledEdit4MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
pp.Text:='Panel.BevelWidth:=Integer;';
end;

procedure TForm1.LabeledEdit5MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
pp.Text:='Panel.BorderWidth:=Integer;';
end;

procedure TForm1.Label12MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Edit.CharCase:=(ecLowerCase, ecNormal, ecUpperCase);';
end;

procedure TForm1.LabeledEdit6MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
pp.Text:='Edit.MaxLength:=Integer;';
end;

procedure TForm1.Label13MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='LabeledEdit.CharCase:=(ecLowerCase, ecNormal, ecUpperCase);';
end;

procedure TForm1.LabeledEdit7MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
pp.Text:='LabeledEdit.Caption:=String;';
end;

procedure TForm1.Label14MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='LabeledEdit.LabelPosition:=(lpAbove, lpBelow, lpLeft, lpRight);';
end;

procedure TForm1.LabeledEdit8MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
pp.Text:='LabeledEdit.Spacing:=Integer;';
end;

procedure TForm1.Label16MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 pp.Text:='Memo.Alignment:=(taLeftJustify, taRightJustify, taCenter);';
end;

procedure TForm1.LabeledEdit10MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
pp.Text:='Memo.MaxLength:=Integer;';
end;

procedure TForm1.CheckBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='Memo.WorldWrap:=Boolean;';
end;

procedure TForm1.CheckBox2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='RichEdit.WorldWrap:=Boolean;';
end;

procedure TForm1.Button3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='RichEdit.Lines.Strings[]:=String;';
end;

procedure TForm1.Button13MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='RichEdit.Lines.LoadFromFile();';
end;

procedure TForm1.Button14MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='RichEdit.Lines.SaveToFile();';
end;

procedure TForm1.CheckBox3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='ListBox.Sorted:=Boolean;';
end;

procedure TForm1.Button4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='ListBox.Items.Insert();';
end;

procedure TForm1.Button5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='ListBox.Items.Strings[]:=String;';
end;

procedure TForm1.Button6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='ListBox.Items.Delete();';
end;

procedure TForm1.CheckBox4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='CheckListBox.Header[]:=Boolean;';
end;

procedure TForm1.Button7MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='CheckListBox.Items.Insert();';
end;

procedure TForm1.Button8MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='CheckListBox.Items.Strings[]:=String;';
end;

procedure TForm1.Button9MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='CheckListBox.Items.Delete();';
end;

procedure TForm1.Label24MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='CheckListBox.HeaderBackgroundColor;';
end;

procedure TForm1.Label26MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='CheckListBox.HeaderColor;';
end;

procedure TForm1.Edit5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='ValueListEditor.TitleCaptions[0]:=String;';
end;

procedure TForm1.Edit6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='ValueListEditor.TitleCaptions[1]:=String;';
end;

procedure TForm1.CheckBox5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='ValueListEditor.KeyOptions:=[keyEdit, keyAdd, keyDelete, keyUnique];';
end;

procedure TForm1.CheckBox6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='ValueListEditor.KeyOptions:=[keyEdit, keyAdd, keyDelete, keyUnique];';
end;

procedure TForm1.CheckBox7MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='ValueListEditor.KeyOptions:=[keyEdit, keyAdd, keyDelete, keyUnique];';
end;

procedure TForm1.CheckBox8MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='ValueListEditor.KeyOptions:=[keyEdit, keyAdd, keyDelete, keyUnique];';
end;

procedure TForm1.CheckBox9MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='ComboBox.Sorted:=Boolean;';
end;

procedure TForm1.LabeledEdit11MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
pp.Text:='ComboBox.DropDownCount:=Integer;';
end;

procedure TForm1.Label27MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='ComboBox.Style:=[csDropDown, csDropDownList, csOwnerDrawFixed, csOwnerDrawVariable, csSimple];';
end;

procedure TForm1.Label29MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='ComboBoxEx.Style:=[csExDropDown, csExDropDownList, csExSimple];';
end;

procedure TForm1.CheckBox10MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
pp.Text:='StringGrid.Options:=[];';
end;

procedure TForm1.LabeledEdit12MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
pp.Text:='StringGrid.ColCount:=Integer;';
end;

procedure TForm1.LabeledEdit13MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
pp.Text:='StringGrid.RowCount:=Integer;';
end;

procedure TForm1.LabeledEdit14MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
pp.Text:='StringGrid.DefaultColWidth:=Integer;';
end;

procedure TForm1.LabeledEdit15MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
pp.Text:='StringGrid.DefaultRowHeight:=Integer;';
end;

procedure TForm1.LabeledEdit16MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
pp.Text:='StringGrid.FixedCols:=Integer;';
end;

procedure TForm1.LabeledEdit17MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
pp.Text:='StringGrid.FixedRows:=Integer;';
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='';
end;

procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='';
end;

procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
pp.Text:='';
end;

procedure TForm1.obzorMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='';
end;

procedure TForm1.shapkaMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
pp.Text:='';
end;

end.