home *** CD-ROM | disk | FTP | other *** search
- program Beispiel19;
-
- uses GDecl,
- GEvent,
- GViews,
- GDlg,
- GApp,
- Graph;
-
-
- const cmDialog = 101;
-
- type TApplication=object(TApp)
- procedure InitMenuBar; virtual;
- procedure HandleEvent; virtual;
- procedure DialogWindow;
- end;
-
- var MyProg:TApplication;
-
- {Implementation TApplication}
-
- procedure TApplication.InitMenuBar;
- begin
- Palette[1]:=#14;
- Palette[5]:=#14;
- Palette[4]:=#4;
- Palette[12]:=#4;
- MainMenu('~F~enster',0);
- SubMenu('~D~ialogfenster',cmDialog,0,0,false,false);
- SubMenu('E~x~it Alt-X',cmCloseApplication,0,altX,false,false);
- end;
-
- procedure TApplication.HandleEvent;
- begin
- Heap^.ShowHeapStatus(523,8,White);
- TProgram.HandleEvent;
- case Event.Command of
- cmDialog : DialogWindow;
- end; {case}
- end;
-
-
- procedure TApplication.DialogWindow;
- var R:TRect;
- Window:PDlgWindow;
- begin
- R.Assign(60,80,440,360);
- Window:=new(PDlgWindow, Init(R,'Beispiel 19 : Gruppenfenster',winDouble+winPanel+winMenu+winKey));
- with Window^ do
- begin
- DlgInput:=false;
- SetPushButton(15,40,80,22,'OK',cmCloseWindow);
- SetPushButton(15,70,80,0,'#Icon/2',cmNothing);
- SetGroupFrame(130,40,210,60,'Gruppenfenster 1',NormWidth);
- SetGroupFrame(130,120,210,60,'Gruppenfenster 2',ThickWidth);
- SetGroupFrame(130,200,210,60,'Gruppenfenster 3',ThickWidth);
- ChangePalColor(1,Blue);
- ChangePalColor(2,Yellow);
- ChangePalColor(4,Green);
- SetGroupFrame(15,160,80,60,'Rahmen 4',ThickWidth);
- SetTextPosition(15,145);
- ChangePalColor(4,Magenta);
- ChangePalColor(2,LightRed);
- end;
- InsertDesktop(Window);
- end;
-
- {--- Hauptprogramm ---}
-
- begin
- MyProg.Init('Beispiel 19');
- MyProg.Run;
- MyProg.Done;
- end.