Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
0
Добавлен:
26.04.2015
Размер:
47.55 Кб
Скачать
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.
Соседние файлы в папке Demo_Ввод-вывод
  • #
    26.04.2015188 б1Project1.dpr
  • #
    26.04.2015876 б0Project1.res
  • #
    26.04.201564.75 Кб0Unit1.dcu
  • #
    26.04.201551 б0Unit1.ddp
  • #
    26.04.2015130.44 Кб0Unit1.dfm
  • #
    26.04.201547.55 Кб0Unit1.pas