home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / grafik / wgraph1 / beispiel / bsp17.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-12-05  |  1.7 KB  |  74 lines
  1. program Beispiel17;
  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,280);
  49.   Window:=new(PDlgWindow, Init(R,'Beispiel 17 : Dialogfenster',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.      SetPushButton(15,120,80,22,'Farbtest',cmNothing);
  56.       ChangePalColor(3,Red);
  57.       ChangePalColor(6,White);
  58.       ChangePalColor(4,Blue);
  59.       ChangePalColor(1,Blue);
  60.       ChangePalColor(2,LightCyan);
  61.      SetPushButton(150,40,80,22,'~A~bbrechen',cmCloseWindow);
  62.       SetTextPosition(0,+22);
  63.      SetPushButton(150,120,80,0,'#Icon/1',cmNothing);
  64.    end;
  65.   InsertDesktop(Window);
  66. end;
  67.  
  68. {--- Hauptprogramm ---}
  69.  
  70. begin
  71.   MyProg.Init('Beispiel 17');
  72.   MyProg.Run;
  73.   MyProg.Done;
  74. end.