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 / BSP19.PAS < prev    next >
Pascal/Delphi Source File  |  1992-12-05  |  2KB  |  75 lines
  1. program Beispiel19;
  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 19 : Gruppenfenster',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.      SetGroupFrame(130,40,210,60,'Gruppenfenster 1',NormWidth);
  56.      SetGroupFrame(130,120,210,60,'Gruppenfenster 2',ThickWidth);
  57.      SetGroupFrame(130,200,210,60,'Gruppenfenster 3',ThickWidth);
  58.       ChangePalColor(1,Blue);
  59.       ChangePalColor(2,Yellow);
  60.       ChangePalColor(4,Green);
  61.      SetGroupFrame(15,160,80,60,'Rahmen 4',ThickWidth);
  62.       SetTextPosition(15,145);
  63.       ChangePalColor(4,Magenta);
  64.       ChangePalColor(2,LightRed);
  65.    end;
  66.   InsertDesktop(Window);
  67. end;
  68.  
  69. {--- Hauptprogramm ---}
  70.  
  71. begin
  72.   MyProg.Init('Beispiel 19');
  73.   MyProg.Run;
  74.   MyProg.Done;
  75. end.