home *** CD-ROM | disk | FTP | other *** search
- object MainForm: TMainForm
- Left = 191
- Top = 106
- Width = 696
- Height = 358
- Caption = 'MainForm'
- Color = clBtnFace
- ParentFont = True
- Menu = MainMenu
- OldCreateOrder = False
- PixelsPerInch = 120
- TextHeight = 16
- object lblOnMessage: TLabel
- Left = 9
- Top = 0
- Width = 77
- Height = 16
- Caption = 'OnMessage:'
- end
- object lblOther: TLabel
- Left = 345
- Top = 48
- Width = 149
- Height = 16
- Caption = 'Other Application Events:'
- end
- object lblOnIdle: TLabel
- Left = 121
- Top = 0
- Width = 42
- Height = 16
- Caption = 'OnIdle:'
- end
- object lblOnActionUpdate: TLabel
- Left = 233
- Top = 0
- Width = 102
- Height = 16
- Caption = 'OnActionUpdate:'
- end
- object HintButton: TButton
- Left = 345
- Top = 16
- Width = 336
- Height = 25
- Hint = 'This is a hint'
- Caption = 'Hint button test (move mouse here)'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object lbOnMessage: TListBox
- Left = 9
- Top = 16
- Width = 104
- Height = 289
- ItemHeight = 16
- TabOrder = 1
- end
- object lbOther: TListBox
- Left = 345
- Top = 64
- Width = 336
- Height = 241
- ItemHeight = 16
- TabOrder = 2
- end
- object lbIdle: TListBox
- Left = 121
- Top = 16
- Width = 104
- Height = 289
- ItemHeight = 16
- TabOrder = 3
- end
- object lbActionUpdate: TListBox
- Left = 231
- Top = 16
- Width = 105
- Height = 289
- ItemHeight = 16
- TabOrder = 4
- 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
-