home *** CD-ROM | disk | FTP | other *** search
/ Best of German Only 1 / romside_best_of_german_only_1.iso / wissen / dos / wgraph / entpack.exe / WGBSP!.EXE / BSP5.PAS < prev    next >
Pascal/Delphi Source File  |  1992-12-01  |  1KB  |  68 lines
  1. program Beispiel5;
  2.  
  3. uses GApp,
  4.      GDecl,
  5.      GViews,
  6.      GPCX,
  7.      graph;
  8.  
  9. type TApplication=object(TApp)
  10.        procedure SetDesktopFrame(Titel:string);virtual;
  11.        procedure SetDesktopBackground; virtual;
  12.      end;
  13.  
  14.      PNewDTBgrd=^TNewDTBgrd;
  15.      TNewDTBgrd=object(TDsktpBgrd)
  16.        BgImage:TPCXImage;
  17.        procedure Draw;virtual;
  18.      end;
  19.  
  20. var MyProg:TApplication;
  21.  
  22. {Implementation TApplication}
  23.  
  24. procedure TApplication.SetDesktopFrame(Titel:string);
  25. var R:TRect;
  26. begin
  27.   with Desktop^ do
  28.    begin
  29.      GetBounds(R);
  30.      Frame:=new(PFrame, Init(R,R,Titel,winDouble+winPanel+winMenu));
  31.      Frame^.Palette:=Palette1;
  32.      List^.InsertItem(Frame);
  33.    end;
  34. end;
  35.  
  36. procedure TApplication.SetDesktopBackground;
  37. var R:TRect;
  38.     NBgrd:PNewDTBgrd;
  39. begin
  40.   with Desktop^ do
  41.    begin
  42.      R:=Frame^.Area;
  43.      NBgrd:=new(PNewDTBgrd, Init(R));
  44.      NBgrd^.Palette[7]:=#14;
  45.      NBgrd^.Palette[8]:=#9;
  46.      List^.InsertItem(NBgrd);
  47.    end;
  48. end;
  49.  
  50.  
  51. {Implementation TNewDTBgrd}
  52.  
  53. procedure TNewDTBgrd.Draw;
  54. var R:TRect;
  55. begin
  56.   TDsktpBgrd.Draw;
  57.   R.Copy(Border);
  58.   R.A.y:=R.A.y+21;
  59.   BgImage.Init(R,'WETT.PCX');
  60.   BgImage.LoadPCXImage(0);
  61. end;
  62.  
  63.  
  64. begin
  65.   MyProg.Init('Beispiel 5');
  66.   MyProg.Run;
  67.   MyProg.Done;
  68. end.