unit ComplexDialog;
interface
uses Objects, Views, Dialogs;
{ TestDialog }
type
PTestDialog = ^TTestDialog;
TTestDialog = object(TDialog)
constructor Init;
end;
PTestData = ^TTestData;
TTestData = record
ParName1: ;
LabelDataName: string[80];
Mode: word;
Options: word;
Choices: longint;
end;
implementation
uses Menus;
{ TestDialog }
constructor TTestDialog.Init;
var
R: TRect;
RB: PRadioButtons;
CB: PCheckBoxes;
MB: PMultiCheckBoxes;
begin
R.Assign(4, 4, 65, 47);
inherited Init(R, 'Test Dialog');
Options:= Options or ofCentered;
R.Assign(48, 39, 58, 41);
Insert(New(PButton, Init(R, '~O~k', cmOK, bfDefault)));
R.Assign(36, 39, 46, 41);
Insert(New(PButton, Init(R, 'C~a~ncel', cmCancel, bfNormal)));
R.Assign(2, 2, 15, 3);
Insert(New(PStaticText, Init(R, 'MyStaticText1')));
R.Assign(18, 2, 30, 3);
Insert(New(PParamText, Init(R, 'MyParamText1', 0)));
R.Assign(3, 39, 26, 41);
Insert(New(PButton, Init(R, '~M~yButton', cmMyButton, bfBroadcast)));
R.Assign(2, 5, 57, 6);
IL:= New(PInputLine, Init(R, 80)); Insert(IL);
R.Assign(2, 4, 14, 5);
Insert(New(PLabel, Init(R, '~L~abel name', IL)));
R.Assign(2, 8, 17, 10);
RB:= New(PRadioButtons, Init(R,
NewSItem('Radio1',
NewSItem('Radio2',
nil))
)); Insert(RB);
R.Assign(2, 7, 8, 8);
Insert(New(PLabel, Init(R, '~M~ode', RB)));
R.Assign(2, 12, 22, 15);
CB:= New(PCheckBoxes, Init(R,
NewSItem('Checkbox1',
NewSItem('Checkbox2',
NewSItem('Checkbox3',
nil)))
)); Insert(CB);
R.Assign(2, 11, 11, 12);
Insert(New(PLabel, Init(R, '~O~ptions', CB)));
R.Assign(2, 18, 25, 22);
MB:= New(PMultiCheckBoxes, Init(R,
NewSItem('MultiCharacter1',
NewSItem('MultiCharacter2',
NewSItem('MultiCharacter3',
NewSItem('MultiCharacter4',
nil)))), 5, cfFourBits, '@#$%&'));
Insert(MB);
R.Assign(2, 17, 11, 18);
Insert(New(PLabel, Init(R, '~C~hoices', MB)));
end; {TTestDialog.Init}
begin end.