home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Help / Examples / Menu / MENUFORM.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  1.5 KB  |  72 lines
  1. unit menuform;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Menus, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     DisplayPanel: TPanel;
  12.     DemoShape: TShape;
  13.     MainMenu: TMainMenu;
  14.     Application1: TMenuItem;
  15.     Exit1: TMenuItem;
  16.     Color1: TMenuItem;
  17.     Outline1: TMenuItem;
  18.     Randomize1: TMenuItem;
  19.     Select1: TMenuItem;
  20.     Inside1: TMenuItem;
  21.     Randomize2: TMenuItem;
  22.     Select2: TMenuItem;
  23.     Shape1: TMenuItem;
  24.     Circle1: TMenuItem;
  25.     Ellipse1: TMenuItem;
  26.     Rectangle1: TMenuItem;
  27.     Square1: TMenuItem;
  28.     Misc1: TMenuItem;
  29.     ThickOutline1: TMenuItem;
  30.     RoundedShape1: TMenuItem;
  31.     Help1: TMenuItem;
  32.     About1: TMenuItem;
  33.     SolidColorDialog: TColorDialog;
  34.     AnyColorDialog: TColorDialog;
  35.     PopupMenu: TPopupMenu;
  36.     Random1: TMenuItem;
  37.     RandomizeColors1: TMenuItem;
  38.     InvertColors1: TMenuItem;
  39.     procedure DisplayPanelResize(Sender: TObject);
  40.     procedure Exit1Click(Sender: TObject);
  41.   private
  42.     { Private declarations }
  43.   public
  44.     { Public declarations }
  45.   end;
  46.  
  47. const
  48.   SHAPE_OFFSET = 4;
  49.  
  50. var
  51.   Form1: TForm1;
  52.  
  53. implementation
  54.  
  55. {$R *.DFM}
  56.  
  57.  
  58. procedure TForm1.DisplayPanelResize(Sender: TObject);
  59. begin
  60.   DemoShape.Top := SHAPE_OFFSET;
  61.   DemoShape.Left := DemoShape.Top;
  62.   DemoShape.Height := DisplayPanel.Height - 2 * SHAPE_OFFSET;
  63.   DemoShape.Width := DisplayPanel.Width - 2 * SHAPE_OFFSET;
  64. end;
  65.  
  66. procedure TForm1.Exit1Click(Sender: TObject);
  67. begin
  68.   Close;
  69. end;
  70.  
  71. end.
  72.