home *** CD-ROM | disk | FTP | other *** search
- program Beispiel18;
-
- 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 18 : Vektor-Zeichensätze',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);
- SetStaticText(150,40,'Gotischer Zeichensatz',LeftText);
- SetTextParameters(GothicFont,HorizDir,1);
- SetStaticText(150,65,'Triplex - Zeichensatz',LeftText);
- SetTextParameters(TriplexFont,HorizDir,1);
- SetStaticText(150,90,'Small - Zeichensatz',LeftText);
- SetTextParameters(SmallFont,HorizDir,6);
- SetStaticText(150,110,'Sanserif - Zeichensatz',LeftText);
- SetTextParameters(SansSerifFont,HorizDir,1);
- SetStaticText(150,125,'Script - Zeichensatz',LeftText);
- SetTextParameters(ScriptFont,HorizDir,1);
- SetStaticText(150,147,'Simple - Zeichensatz',LeftText);
- SetTextParameters(SimpleFont,HorizDir,1);
- SetStaticText(150,168,'TSCR - Zeichensatz',LeftText);
- SetTextParameters(TSCRFont,HorizDir,1);
- SetStaticText(150,185,'LCOM - Zeichensatz',LeftText);
- SetTextParameters(LCOMFont,HorizDir,1);
- SetStaticText(60,210,'Euro - Zeichensatz',LeftText);
- SetTextParameters(EuroFont,HorizDir,1);
- SetStaticText(40,140,'Vertical - Small',RightText);
- SetTextParameters(SmallFont,VertDir,4);
- end;
- InsertDesktop(Window);
- end;
-
- {--- Hauptprogramm ---}
-
- begin
- MyProg.Init('Beispiel 18');
- MyProg.Run;
- MyProg.Done;
- end.