home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / grafik / wgraph1 / beispiel / bsp18.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-12-05  |  2.4 KB  |  85 lines
  1. program Beispiel18;
  2.  
  3. uses GDecl,
  4.      GEvent,
  5.      GViews,
  6.      GDlg,
  7.      GApp,
  8.      Graph;
  9.  
  10.  
  11. const cmDialog = 101;
  12.  
  13. type TApplication=object(TApp)
  14.        procedure InitMenuBar; virtual;
  15.        procedure HandleEvent; virtual;
  16.        procedure DialogWindow;
  17.      end;
  18.  
  19. var MyProg:TApplication;
  20.  
  21. {Implementation TApplication}
  22.  
  23. procedure TApplication.InitMenuBar;
  24. begin
  25.   Palette[1]:=#14;
  26.   Palette[5]:=#14;
  27.   Palette[4]:=#4;
  28.   Palette[12]:=#4;
  29.   MainMenu('~F~enster',0);
  30.    SubMenu('~D~ialogfenster',cmDialog,0,0,false,false);
  31.    SubMenu('E~x~it  Alt-X',cmCloseApplication,0,altX,false,false);
  32. end;
  33.  
  34. procedure TApplication.HandleEvent;
  35. begin
  36.   Heap^.ShowHeapStatus(523,8,White);
  37.   TProgram.HandleEvent;
  38.   case Event.Command of
  39.    cmDialog : DialogWindow;
  40.   end; {case}
  41. end;
  42.  
  43.  
  44. procedure TApplication.DialogWindow;
  45. var R:TRect;
  46.     Window:PDlgWindow;
  47. begin
  48.   R.Assign(60,80,440,360);
  49.   Window:=new(PDlgWindow, Init(R,'Beispiel 18 : Vektor-Zeichensätze',winDouble+winPanel+winMenu+winKey));
  50.   with Window^ do
  51.    begin
  52.      DlgInput:=false;
  53.      SetPushButton(15,40,80,22,'OK',cmCloseWindow);
  54.      SetPushButton(15,70,80,0,'#Icon/2',cmNothing);
  55.      SetStaticText(150,40,'Gotischer Zeichensatz',LeftText);
  56.       SetTextParameters(GothicFont,HorizDir,1);
  57.      SetStaticText(150,65,'Triplex - Zeichensatz',LeftText);
  58.       SetTextParameters(TriplexFont,HorizDir,1);
  59.      SetStaticText(150,90,'Small - Zeichensatz',LeftText);
  60.       SetTextParameters(SmallFont,HorizDir,6);
  61.      SetStaticText(150,110,'Sanserif - Zeichensatz',LeftText);
  62.       SetTextParameters(SansSerifFont,HorizDir,1);
  63.      SetStaticText(150,125,'Script - Zeichensatz',LeftText);
  64.       SetTextParameters(ScriptFont,HorizDir,1);
  65.      SetStaticText(150,147,'Simple - Zeichensatz',LeftText);
  66.       SetTextParameters(SimpleFont,HorizDir,1);
  67.      SetStaticText(150,168,'TSCR - Zeichensatz',LeftText);
  68.       SetTextParameters(TSCRFont,HorizDir,1);
  69.      SetStaticText(150,185,'LCOM - Zeichensatz',LeftText);
  70.       SetTextParameters(LCOMFont,HorizDir,1);
  71.      SetStaticText(60,210,'Euro - Zeichensatz',LeftText);
  72.       SetTextParameters(EuroFont,HorizDir,1);
  73.      SetStaticText(40,140,'Vertical - Small',RightText);
  74.       SetTextParameters(SmallFont,VertDir,4);
  75.    end;
  76.   InsertDesktop(Window);
  77. end;
  78.  
  79. {--- Hauptprogramm ---}
  80.  
  81. begin
  82.   MyProg.Init('Beispiel 18');
  83.   MyProg.Run;
  84.   MyProg.Done;
  85. end.