home *** CD-ROM | disk | FTP | other *** search
- object MainForm: TMainForm
- Caption = 'MainForm'
- Color = clBtnFace
- ParentFont = True
- Height = 358
- Menu = MainMenu
- Width = 696
- Left = 191
- Top = 106
- PixelsPerInch = 96
- TextHeight = 13
- object lblOnMessage: TLabel
- Caption = 'OnMessage:'
- Left = 7
- Top = 0
- Width = 60
- Height = 13
- end
- object lblOther: TLabel
- Caption = 'Other Application Events:'
- Left = 280
- Top = 39
- Width = 123
- Height = 13
- end
- object lblOnIdle: TLabel
- Caption = 'OnIdle:'
- Left = 98
- Top = 0
- Width = 36
- Height = 13
- end
- object lblOnActionUpdate: TLabel
- Caption = 'OnActionUpdate:'
- Left = 189
- Top = 0
- Width = 83
- Height = 13
- end
- object HintButton: TButton
- Caption = 'Hint button test (move mouse here)'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- Left = 280
- Top = 13
- Width = 273
- Height = 20
- Hint = 'This is a hint'
- end
- object lbOnMessage: TListBox
- ItemHeight = 13
- TabOrder = 1
- Left = 7
- Top = 13
- Width = 85
- Height = 235
- end
- object lbOther: TListBox
- ItemHeight = 13
- TabOrder = 2
- Left = 280
- Top = 52
- Width = 273
- Height = 196
- end
- object lbIdle: TListBox
- ItemHeight = 13
- TabOrder = 3
- Left = 98
- Top = 13
- Width = 85
- Height = 235
- end
- object lbActionUpdate: TListBox
- ItemHeight = 13
- TabOrder = 4
- Left = 188
- Top = 13
- Width = 85
- Height = 235
- end
- object ApplicationEvents: TApplicationEvents
- OnActionExecute = ApplicationEventsActionExecute
- OnActionUpdate = ApplicationEventsActionUpdate
- OnActivate = ApplicationEventsActivate
- OnDeactivate = ApplicationEventsDeactivate
- OnException = ApplicationEventsException
- OnIdle = ApplicationEventsIdle
- OnHelp = ApplicationEventsHelp
- OnHint = ApplicationEventsHint
- OnMessage = ApplicationEventsMessage
- OnMinimize = ApplicationEventsMinimize
- OnRestore = ApplicationEventsRestore
- OnShowHint = ApplicationEventsShowHint
- OnShortCut = ApplicationEventsShortCut
- Left = 648
- Top = 8
- end
- object ActionList: TActionList
- Left = 616
- Top = 8
- object Action: TAction
- Caption = 'Action1'
- OnExecute = ActionExecute
- end
- end
- object MainMenu: TMainMenu
- Left = 632
- Top = 40
- object MenuAction: TMenuItem
- Action = Action
- Caption = '&Action'
- end
- object MenuException: TMenuItem
- Caption = '&Raise Exception'
- OnClick = MenuExceptionClick
- end
- end
- end
-