home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / TPBOOK / DEMOTBAC.PAS < prev    next >
Pascal/Delphi Source File  |  1992-08-07  |  856b  |  52 lines
  1. { DEMOTBAC.PAS }
  2. program DemoTBackground;
  3.  
  4. uses
  5.   Objects, App, Views;
  6.  
  7. type
  8.   TSampleProgram = object(TApplication)
  9.     procedure InitDeskTop; virtual;
  10.   end;
  11.  
  12.   PNewDeskTop = ^TNewDeskTop;
  13.   TNewDeskTop = object(TDeskTop)
  14.     procedure InitBackground; virtual;
  15.   end;
  16.  
  17. var
  18.   SampleProgram : TSampleProgram;
  19.  
  20.  
  21. procedure TNewDeskTop.InitBackground;
  22. Var
  23.   Bounds: TRect;
  24.   Temp : PBackground;
  25. begin
  26.   { Program never gets here ???? }
  27.   Bounds.Assign( 0, 1, 80, 24 );
  28.   Temp := New( PBackground, Init( Bounds, Char($FF) ) );
  29.   Insert(Temp);
  30.   Background := Temp;
  31. end;
  32.  
  33.  
  34. procedure TSampleProgram.InitDeskTop;
  35. Var
  36.   Bounds: TRect;
  37. begin
  38.   Bounds.Assign( 1, 0, 80, 24 );
  39.   DeskTop := New( PNewDeskTop, Init( Bounds ) );
  40. end;
  41.  
  42.  
  43. begin
  44.   with  SampleProgram  do
  45.   begin
  46.     Init;
  47.     Run;
  48.     Done;
  49.   end;
  50. end.
  51.  
  52.