83 lines
2.2 KiB
Plaintext
83 lines
2.2 KiB
Plaintext
|
||
{ Turbo Form }
|
||
{ Copyright (c) 1989 by Borland International, Inc. }
|
||
|
||
program FDemo;
|
||
{ Turbo Pascal 5.5 object-oriented example.
|
||
Demonstrates use of the FORMS and SLIDERS units.
|
||
Refer to OOPDEMOS.DOC for an overview of this program.
|
||
}
|
||
|
||
uses Crt, Forms, Sliders;
|
||
|
||
type
|
||
|
||
Person = record
|
||
Firstname: string[30];
|
||
Lastname: string[30];
|
||
Address: string[32];
|
||
City: string[16];
|
||
State: string[2];
|
||
Zipcode: Longint;
|
||
Counter: array[1..3] of Longint;
|
||
Slider: array[1..2] of Integer;
|
||
end;
|
||
|
||
const
|
||
|
||
Frank: Person = (
|
||
Firstname: 'Frank';
|
||
Lastname: 'Borland';
|
||
Address: '1800 Green Hills Road';
|
||
City: 'Scotts Valley';
|
||
State: 'CA';
|
||
Zipcode: 95066;
|
||
Counter: (10, 1000, 65536);
|
||
Slider: (85, 25));
|
||
|
||
var
|
||
F: Form;
|
||
P: Person;
|
||
|
||
begin
|
||
Color(BackColor);
|
||
ClrScr;
|
||
Color(ForeColor);
|
||
GotoXY(1, 1); ClrEol;
|
||
Write(' Turbo Pascal 5.5 Object Oriented Forms Editor');
|
||
GotoXY(1, 25); ClrEol;
|
||
Write(' F2-Save Esc-Quit');
|
||
F.Init(10, 5, 54, 16);
|
||
F.Add(New(FStrPtr, Init(3, 2, ' Firstname ', 30)));
|
||
F.Add(New(FStrPtr, Init(3, 3, ' Lastname ', 30)));
|
||
F.Add(New(FStrPtr, Init(3, 5, ' Address ', 32)));
|
||
F.Add(New(FStrPtr, Init(3, 6, ' City ', 16)));
|
||
F.Add(New(FStrPtr, Init(25, 6, ' State ', 2)));
|
||
F.Add(New(FZipPtr, Init(34, 6, ' Zip ')));
|
||
F.Add(New(FIntPtr, Init(3, 8, ' Counter 1 ', 0, 99999999)));
|
||
F.Add(New(FIntPtr, Init(22, 8, ' 2 ', 0, 99999999)));
|
||
F.Add(New(FIntPtr, Init(33, 8, ' 3 ', 0, 99999999)));
|
||
F.Add(New(FSliderPtr, Init(3, 10, ' Slider One ', 0, 100, 5)));
|
||
F.Add(New(FSliderPtr, Init(3, 11, ' Slider Two ', 0, 100, 5)));
|
||
P := Frank;
|
||
F.Put(P);
|
||
F.Show(True);
|
||
if F.Edit = CSave then F.Get(P);
|
||
F.Done;
|
||
NormVideo;
|
||
ClrScr;
|
||
WriteLn('Resulting Person record:');
|
||
WriteLn;
|
||
with P do
|
||
begin
|
||
WriteLn('Firstname: ', Firstname);
|
||
WriteLn(' Lastname: ', Lastname);
|
||
WriteLn(' Address: ', Address);
|
||
WriteLn(' City: ', City);
|
||
WriteLn(' State: ', State);
|
||
WriteLn(' Zipcode: ', Zipcode);
|
||
WriteLn(' Counters: ', Counter[1], ' ', Counter[2], ' ', Counter[3]);
|
||
WriteLn(' Sliders: ', Slider[1], ' ', Slider[2]);
|
||
end;
|
||
end.
|
||
|