home *** CD-ROM | disk | FTP | other *** search
/ Best of German Only 1 / romside_best_of_german_only_1.iso / wissen / dos / wgraph / entpack.exe / WGBSP!.EXE / BSP7.PAS < prev    next >
Pascal/Delphi Source File  |  1992-12-01  |  3KB  |  130 lines
  1. program Beispiel7;
  2.  
  3. uses GApp,
  4.      GDecl,
  5.      GViews,
  6.      GText,
  7.      GHelp,
  8.      Graph;
  9.  
  10.  
  11. const cmNew    = 101;   cmRestore   = 201;
  12.       cmLoad   = 102;   cmCut       = 202;
  13.       cmSave   = 103;   cmCopy      = 203;
  14.       cmPrint  = 104;   cmMove      = 204;
  15.       cmErase  = 105;   cmTurn      = 204;
  16.  
  17.       cmMagni  = 301;   cmRoman     = 401;
  18.       cmGrid   = 302;   cmScript    = 402;
  19.       cmPencel = 303;   cmTimes     = 403;
  20.       cmBrush  = 304;   cmNormal    = 404;
  21.                         cmBold      = 405;
  22.                         cmItalic    = 406;
  23.                         cmUnderline = 407;
  24.  
  25.  
  26.  
  27. type TApplication=object(TApp)
  28.        procedure SetDesktopFrame(Titel:string);virtual;
  29.        procedure SetDesktopBackground; virtual;
  30.        procedure InitMenuBar; virtual;
  31.      end;
  32.  
  33.      PNewDTBgrd=^TNewDTBgrd;
  34.      TNewDTBgrd=object(TDsktpBgrd)
  35.        procedure Draw;virtual;
  36.      end;
  37.  
  38. var MyProg:TApplication;
  39.  
  40. {Implementation TApplication}
  41.  
  42. procedure TApplication.SetDesktopFrame(Titel:string);
  43. var R:TRect;
  44. begin
  45.   with Desktop^ do
  46.    begin
  47.      GetBounds(R);
  48.      Frame:=new(PFrame, Init(R,R,Titel,winDouble+winPanel+winMenu));
  49.      Frame^.Palette:=Palette1;
  50.      List^.InsertItem(Frame);
  51.    end;
  52. end;
  53.  
  54. procedure TApplication.SetDesktopBackground;
  55. var R:TRect;
  56.     NBgrd:PNewDTBgrd;
  57. begin
  58.   with Desktop^ do
  59.    begin
  60.      R:=Frame^.Area;
  61.      NBgrd:=new(PNewDTBgrd, Init(R));
  62.      NBgrd^.Palette[7]:=#14;
  63.      NBgrd^.Palette[8]:=#7;
  64.      List^.InsertItem(NBgrd);
  65.    end;
  66. end;
  67.  
  68. procedure TApplication.InitMenuBar;
  69. begin
  70.   SetFont(Thin16);
  71.   SetOnlineHelp('Help.hlp');
  72.   Sprache:=Englisch;
  73.   Palette[1]:=#14;
  74.   Palette[5]:=#14;
  75.   Palette[4]:=#4;
  76.   Palette[12]:=#4;
  77.   MainMenu('~D~atei',1);
  78.     SubMenu('~N~eues Bild',cmNew,0,0,false,false);
  79.     SubMenu('Bild ~L~aden      F3',cmLoad,0,kbF3,false,false);
  80.     SubMenu('Bild ~S~peichern  F2',cmSave,0,kbF2,false,false);
  81.     NewLine;
  82.     SubMenu('~D~rucken',cmPrint,0,0,false,false);
  83.     SubMenu('Lös~c~hen',cmErase,0,0,false,false);
  84.     NewLine;
  85.     SubMenu('~B~eenden      Alt-X',cmCloseApplication,0,altX,false,false);
  86.   MainMenu('~B~earbeiten',2);
  87.     SubMenu('~R~ückgängig',cmRestore,0,0,false,false);
  88.     NewLine;
  89.     SubMenu('~S~chnitt',cmCut,0,0,true,false);
  90.     SubMenu('~K~opieren',cmCopy,0,0,true,false);
  91.     SubMenu('~V~erschieben',cmMove,0,0,true,false);
  92.     SubMenu('~D~rehen',cmTurn,0,0,true,false);
  93.   MainMenu('~W~erkzeuge',3);
  94.     SubMenu('~V~ergrößern',cmMagni,0,0,false,false);
  95.     NewLine;
  96.     SubMenu('~R~aster',cmGrid,0,0,false,false);
  97.     NewLine;
  98.     SubMenu('~P~insel ändern',cmPencel,0,0,false,false);
  99.     SubMenu('~S~pray ändern',cmBrush,0,0,false,false);
  100.   MainMenu('~S~chrift',4);
  101.     SubMenu('~R~oman',cmRoman,0,0,false,true);
  102.     SubMenu('~S~cript',cmScript,0,0,false,false);
  103.     SubMenu('~T~imes',cmTimes,0,0,false,false);
  104.     NewLine;
  105.     SubMenu('~N~ormal',cmNormal,0,0,false,true);
  106.     SubMenu('~F~ett',cmBold,0,0,false,false);
  107.     SubMenu('~K~ursiv',cmItalic,0,0,false,false);
  108.     SubMenu('~U~nterstrichen',cmUnderline,0,0,false,false);
  109. end;
  110.  
  111.  
  112. {Implementation TNewDTBgrd}
  113.  
  114. procedure TNewDTBgrd.Draw;
  115. begin
  116.   with Border do
  117.    begin
  118.      SetFillStyle(SolidFill,GetPalColor(7));
  119.      Bar(A.x,A.y,B.x,A.y+20);
  120.      SetFillStyle(SolidFill,GetPalColor(8));
  121.      Bar(A.x,A.y+22,B.x,B.y);
  122.    end;
  123. end;
  124.  
  125.  
  126. begin
  127.   MyProg.Init('Beispiel 7');
  128.   MyProg.Run;
  129.   MyProg.Done;
  130. end.