home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top1143 / gepackt.exe / BSPQTSW.EXE / SHOWF.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-06-28  |  3.0 KB  |  104 lines
  1. (***************************************
  2. * WG-VISION 1.0   BEISPIELPROGRAMM     *
  3. ****************************************
  4. *                                      *
  5. * Anzeigen aller verfügbaren Vektor-   *
  6. * fonts                                *
  7. *                                      *
  8. *--------------------------------------*
  9. * Achtung: Die Fontdateien müssen im   *
  10. * gleichen Verzeichnis wie das Pro-    *
  11. * gramm stehen                         *
  12. ****************************************
  13. * (c) 1993 Dipl.Phys. Mathias Scholz   *
  14. ***************************************)
  15.  
  16. {$I COMPILER.INC}
  17.  
  18. program ShowF;
  19.  
  20. uses WDecl,
  21.      WEvent,
  22.      WViews,
  23.      WDlg,
  24.      WApp,
  25.      Graph;
  26.  
  27.  
  28. const cmDialog = 101;
  29.  
  30. type TApplication=object(TApp)
  31.        procedure InitMenuBar; virtual;
  32.        procedure HandleEvent; virtual;
  33.        procedure DialogWindow;
  34.      end;
  35.  
  36. var MyProg:TApplication;
  37.  
  38.  
  39. {Implementation TApplication}
  40.  
  41. procedure TApplication.InitMenuBar;
  42. begin
  43.   Palette[1]:=#14;
  44.   Palette[5]:=#14;
  45.   Palette[4]:=#4;
  46.   Palette[12]:=#4;
  47.   MainMenu('~F~enster',0);
  48.    SubMenu('~D~ialogfenster',cmDialog,0,0,false,false);
  49.    SubMenu('E~x~it  Alt-X',cmCloseApplication,0,altX,false,false);
  50. end;
  51.  
  52. procedure TApplication.HandleEvent;
  53. begin
  54.   Heap^.ShowHeapStatus(523,8,White);
  55.   TProgram.HandleEvent;
  56.   case Event.Command of
  57.    cmDialog : DialogWindow;
  58.   end; {case}
  59. end;
  60.  
  61.  
  62. procedure TApplication.DialogWindow;
  63. var R:TRect;
  64.     Window:PDlgWindow;
  65. begin
  66.   R.Assign(60,80,440,360);
  67.   Window:=New(PDlgWindow, Init(R,'Vektor-Zeichensätze',winDouble+winPanel+winMenu+winKey));
  68.   with Window^ do
  69.    begin
  70.      DlgInput:=false;
  71.      SetPushButton(15,40,80,22,'OK',cmCloseWindow);
  72.      SetPushButton(15,70,80,22,'~C~ancel',cmNothing);
  73.      SetStaticText(150,40,'Gotischer Zeichensatz',LeftText);
  74.       SetTextParameters(GothicFont,HorizDir,1);
  75.      SetStaticText(150,65,'Triplex - Zeichensatz',LeftText);
  76.       SetTextParameters(TriplexFont,HorizDir,1);
  77.      SetStaticText(150,90,'Small - Zeichensatz',LeftText);
  78.       SetTextParameters(SmallFont,HorizDir,6);
  79.      SetStaticText(150,110,'Sanserif - Zeichensatz',LeftText);
  80.       SetTextParameters(SansSerifFont,HorizDir,1);
  81.      SetStaticText(150,125,'Script - Zeichensatz',LeftText);
  82.       SetTextParameters(5,HorizDir,1);
  83.      SetStaticText(150,147,'Simple - Zeichensatz',LeftText);
  84.       SetTextParameters(6,HorizDir,1);
  85.      SetStaticText(150,168,'TSCR - Zeichensatz',LeftText);
  86.       SetTextParameters(7,HorizDir,1);
  87.      SetStaticText(150,185,'LCOM - Zeichensatz',LeftText);
  88.       SetTextParameters(8,HorizDir,1);
  89.      SetStaticText(60,210,'Euro - Zeichensatz',LeftText);
  90.       SetTextParameters(9,HorizDir,1);
  91.      SetStaticText(40,140,'Vertical - Small',RightText);
  92.       SetTextParameters(SmallFont,VertDir,4);
  93.    end;
  94.   InsertDesktop(Window);
  95. end;
  96.  
  97. {--- Hauptprogramm ---}
  98.  
  99. begin
  100.   MyProg.Init('Anzeigen der verfügbaren Vektor-Zeichensätze');
  101.   MyProg.Run;
  102.   MyProg.Done;
  103. end.
  104.