home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 199
- Top = 67
- Width = 467
- Height = 341
- Caption = 'Menu Demo'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 56
- Top = 56
- Width = 345
- Height = 209
- TabOrder = 0
- object Button1: TButton
- Left = 32
- Top = 16
- Width = 110
- Height = 25
- Caption = 'Create Main Menu'
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 200
- Top = 14
- Width = 110
- Height = 25
- Caption = 'Create PopUp Menu'
- TabOrder = 1
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 200
- Top = 52
- Width = 110
- Height = 25
- Caption = 'Add PopUp Items'
- Enabled = False
- TabOrder = 2
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 32
- Top = 54
- Width = 110
- Height = 25
- Caption = 'Add Main Items'
- Enabled = False
- TabOrder = 3
- OnClick = Button4Click
- end
- object Button5: TButton
- Left = 32
- Top = 92
- Width = 110
- Height = 25
- Caption = 'Add Sub-Menu'
- Enabled = False
- TabOrder = 4
- OnClick = Button5Click
- end
- object Button6: TButton
- Left = 32
- Top = 130
- Width = 110
- Height = 25
- Caption = 'Add Vertical Break'
- Enabled = False
- TabOrder = 5
- OnClick = Button6Click
- end
- object Button7: TButton
- Left = 200
- Top = 90
- Width = 110
- Height = 25
- Caption = 'Show PopUp'
- Enabled = False
- TabOrder = 6
- OnClick = Button7Click
- end
- object Button8: TButton
- Left = 32
- Top = 168
- Width = 110
- Height = 25
- Caption = 'Add Horizontal Break'
- Enabled = False
- TabOrder = 7
- OnClick = Button8Click
- end
- object Button9: TButton
- Left = 200
- Top = 128
- Width = 110
- Height = 25
- Caption = 'Assign OnClick Event'
- Enabled = False
- TabOrder = 8
- OnClick = Button9Click
- end
- end
- end
-