Turbo Pascal 7.0 / TP7 / DOCDEMOS / CBOXTEST

{************************************************}
{ }
{ Turbo Pascal for Windows }
{ Demo program }
{ Copyright (c) 1991 by Borland International }
{ }
{************************************************}

program CBoxTest;

uses WObjects, WinTypes, WinProcs;

const
id_LB1 = 101;
id_CB1 = 102;
id_CB2 = 103;
id_CB3 = 104;
id_BN1 = 105;
id_BN2 = 106;
id_ST1 = 107;
id_ST2 = 108;
id_ST3 = 109;
id_ST4 = 110;

type

TestApplication = object(TApplication)
procedure InitMainWindow; virtual;
end;

PTestWindow = ^TestWindow;
TestWindow = object(TWindow)
LB1: PListBox;
CB1, CB2, CB3: PComboBox;
constructor Init(AParent: PWindowsObject; ATitle: PChar);
procedure SetupWindow; virtual;
procedure IDBN1(var Msg: TMessage); virtual id_First + id_BN1;
procedure IDBN2(var Msg: TMessage); virtual id_First + id_BN2;
end;

{--------------------------------------------------}
{ TestWindow's method implementations: }
{--------------------------------------------------}

constructor TestWindow.Init(AParent: PWindowsObject; ATitle: PChar);
var
ABtn : PButton;
AStat : PStatic;
begin
TWindow.Init(AParent, ATitle);
LB1 := New(PListBox, Init(@Self, id_LB1, 20, 30, 150, 100));
CB1 := New(PComboBox, Init(@Self, id_CB1, 190, 30, 150, 100, cbs_Simple, 0));
CB1^.Attr.Style := CB1^.Attr.Style and not ws_VScroll;
CB2 := New(PComboBox, Init(@Self, id_CB2, 20, 160, 150, 100, cbs_DropDown, 0));
CB3 := New(PComboBox, Init(@Self, id_CB3, 190, 160, 150, 100, cbs_DropDownList, 0));
ABtn := New(PButton, Init(@Self, id_BN1, 'Show', 190, 270, 65, 20, False));
ABtn := New(PButton, Init(@Self, id_BN2, 'Hide', 275, 270, 65, 20, False));
AStat := New(PStatic, Init(@Self, id_ST1, 'List Box', 20, 8, 150, 20, 0));
AStat := New(PStatic, Init(@Self, id_ST2, 'Simple Combo', 190, 8, 150, 20, 0));
AStat := New(PStatic, Init(@Self, id_ST3, 'Drop Down Combo', 20, 138, 150, 20, 0));
AStat := New(PStatic, Init(@Self, id_ST4, 'Drop Down List Combo', 190, 138, 150, 20, 0));
end;

procedure TestWindow.SetupWindow;
begin
TWindow.SetupWindow;
LB1^.AddString('a');
LB1^.AddString('b');
LB1^.AddString('c');
LB1^.AddString('d');
LB1^.AddString('e');
LB1^.AddString('f');

CB1^.AddString('a');
CB1^.AddString('b');
CB1^.AddString('c');
CB1^.AddString('d');
CB1^.AddString('e');
CB1^.AddString('f');

CB2^.AddString('a');
CB2^.AddString('b');
CB2^.AddString('c');
CB2^.AddString('d');
CB2^.AddString('e');
CB2^.AddString('f');

CB3^.AddString('a');
CB3^.AddString('b');
CB3^.AddString('c');
CB3^.AddString('d');
CB3^.AddString('e');
CB3^.AddString('f');
end;

procedure TestWindow.IDBN1(var Msg: TMessage);
begin
{ Respond to the 'Show' button being pressed. }
CB3^.ShowList;
end;

procedure TestWindow.IDBN2(var Msg: TMessage);
begin
{ Respond to the 'Hide' button being pressed. }
CB3^.HideList;
end;

{--------------------------------------------------}
{ TestApplication's method implementations: }
{--------------------------------------------------}

procedure TestApplication.InitMainWindow;
begin
MainWindow := New(PTestWindow, Init(nil, 'Combo Box Tester'));
end;

{--------------------------------------------------}
{ Main program: }
{--------------------------------------------------}

var
TestApp : TestApplication;
begin
TestApp.Init('CBoxTest');
TestApp.Run;
TestApp.Done;
end.