home *** CD-ROM | disk | FTP | other *** search
- program Beispiel5;
-
- uses GApp,
- GDecl,
- GViews,
- GPCX,
- graph;
-
- type TApplication=object(TApp)
- procedure SetDesktopFrame(Titel:string);virtual;
- procedure SetDesktopBackground; virtual;
- end;
-
- PNewDTBgrd=^TNewDTBgrd;
- TNewDTBgrd=object(TDsktpBgrd)
- BgImage:TPCXImage;
- procedure Draw;virtual;
- end;
-
- var MyProg:TApplication;
-
- {Implementation TApplication}
-
- procedure TApplication.SetDesktopFrame(Titel:string);
- var R:TRect;
- begin
- with Desktop^ do
- begin
- GetBounds(R);
- Frame:=new(PFrame, Init(R,R,Titel,winDouble+winPanel+winMenu));
- Frame^.Palette:=Palette1;
- List^.InsertItem(Frame);
- end;
- end;
-
- procedure TApplication.SetDesktopBackground;
- var R:TRect;
- NBgrd:PNewDTBgrd;
- begin
- with Desktop^ do
- begin
- R:=Frame^.Area;
- NBgrd:=new(PNewDTBgrd, Init(R));
- NBgrd^.Palette[7]:=#14;
- NBgrd^.Palette[8]:=#9;
- List^.InsertItem(NBgrd);
- end;
- end;
-
-
- {Implementation TNewDTBgrd}
-
- procedure TNewDTBgrd.Draw;
- var R:TRect;
- begin
- TDsktpBgrd.Draw;
- R.Copy(Border);
- R.A.y:=R.A.y+21;
- BgImage.Init(R,'WETT.PCX');
- BgImage.LoadPCXImage(0);
- end;
-
-
- begin
- MyProg.Init('Beispiel 5');
- MyProg.Run;
- MyProg.Done;
- end.