Best of German Only 1/romside_best_of_german_only_1.iso/wissen/dos/wgraph/entpack.exe/WGBSP!.EXE/BSP2.PAS

Pascal/Delphi Source File | 1992-12-01 | 577b | 31 lines

program Beispiel2;

uses GApp,
     GDecl,
     GViews;

type TApplication=object(TApp)
       procedure SetDesktopFrame(Titel:string);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:=Pal[palRed];
     List^.InsertItem(Frame);
   end;
end;

begin
  MyProg.Init('Beispiel 2');
  MyProg.Run;
  MyProg.Done;
end.