home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / OOP55.ZIP / FDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-05-02  |  2.2 KB  |  83 lines
  1.  
  2. { Turbo Form }
  3. { Copyright (c) 1989 by Borland International, Inc. }
  4.  
  5. program FDemo;
  6. { Turbo Pascal 5.5 object-oriented example.
  7.   Demonstrates use of the FORMS and SLIDERS units.
  8.   Refer to OOPDEMOS.DOC for an overview of this program.
  9. }
  10.  
  11. uses Crt, Forms, Sliders;
  12.  
  13. type
  14.  
  15.   Person = record
  16.     Firstname: string[30];
  17.     Lastname: string[30];
  18.     Address: string[32];
  19.     City: string[16];
  20.     State: string[2];
  21.     Zipcode: Longint;
  22.     Counter: array[1..3] of Longint;
  23.     Slider: array[1..2] of Integer;
  24.   end;
  25.  
  26. const
  27.  
  28.   Frank: Person = (
  29.     Firstname: 'Frank';
  30.     Lastname: 'Borland';
  31.     Address: '1800 Green Hills Road';
  32.     City: 'Scotts Valley';
  33.     State: 'CA';
  34.     Zipcode: 95066;
  35.     Counter: (10, 1000, 65536);
  36.     Slider: (85, 25));
  37.  
  38. var
  39.   F: Form;
  40.   P: Person;
  41.  
  42. begin
  43.   Color(BackColor);
  44.   ClrScr;
  45.   Color(ForeColor);
  46.   GotoXY(1, 1); ClrEol;
  47.   Write(' Turbo Pascal 5.5 Object Oriented Forms Editor');
  48.   GotoXY(1, 25); ClrEol;
  49.   Write(' F2-Save  Esc-Quit');
  50.   F.Init(10, 5, 54, 16);
  51.   F.Add(New(FStrPtr, Init(3, 2, ' Firstname ', 30)));
  52.   F.Add(New(FStrPtr, Init(3, 3, ' Lastname  ', 30)));
  53.   F.Add(New(FStrPtr, Init(3, 5, ' Address ', 32)));
  54.   F.Add(New(FStrPtr, Init(3, 6, ' City ', 16)));
  55.   F.Add(New(FStrPtr, Init(25, 6, ' State ', 2)));
  56.   F.Add(New(FZipPtr, Init(34, 6, ' Zip ')));
  57.   F.Add(New(FIntPtr, Init(3, 8, ' Counter 1 ', 0, 99999999)));
  58.   F.Add(New(FIntPtr, Init(22, 8, ' 2 ', 0, 99999999)));
  59.   F.Add(New(FIntPtr, Init(33, 8, ' 3 ', 0, 99999999)));
  60.   F.Add(New(FSliderPtr, Init(3, 10, ' Slider One ', 0, 100, 5)));
  61.   F.Add(New(FSliderPtr, Init(3, 11, ' Slider Two ', 0, 100, 5)));
  62.   P := Frank;
  63.   F.Put(P);
  64.   F.Show(True);
  65.   if F.Edit = CSave then F.Get(P);
  66.   F.Done;
  67.   NormVideo;
  68.   ClrScr;
  69.   WriteLn('Resulting Person record:');
  70.   WriteLn;
  71.   with P do
  72.   begin
  73.     WriteLn('Firstname: ', Firstname);
  74.     WriteLn(' Lastname: ', Lastname);
  75.     WriteLn('  Address: ', Address);
  76.     WriteLn('     City: ', City);
  77.     WriteLn('    State: ', State);
  78.     WriteLn('  Zipcode: ', Zipcode);
  79.     WriteLn(' Counters: ', Counter[1], ' ', Counter[2], ' ', Counter[3]);
  80.     WriteLn('  Sliders: ', Slider[1], ' ', Slider[2]);
  81.   end;
  82. end.
  83.