home *** CD-ROM | disk | FTP | other *** search
- object frmEvents: TfrmEvents
- Left = 241
- Top = 153
- BorderStyle = bsDialog
- Caption = 'Event Alerter Demo'
- ClientHeight = 318
- ClientWidth = 426
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'System'
- Font.Style = [fsBold]
- Position = poScreenCenter
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 16
- object GroupBox1: TGroupBox
- Left = 16
- Top = 12
- Width = 193
- Height = 105
- Caption = 'Database Connection'
- Font.Color = clNavy
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- object btnOpenDatabase: TButton
- Left = 34
- Top = 24
- Width = 125
- Height = 25
- Caption = '&Open Database'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = btnOpenDatabaseClick
- end
- object btnCloseDatabase: TButton
- Left = 34
- Top = 60
- Width = 125
- Height = 25
- Caption = '&Close Database'
- Enabled = False
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = btnCloseDatabaseClick
- end
- end
- object GroupBox2: TGroupBox
- Left = 16
- Top = 120
- Width = 193
- Height = 185
- Caption = 'Event Registration'
- Enabled = False
- TabOrder = 1
- object btnRegisterEvents: TButton
- Left = 34
- Top = 140
- Width = 125
- Height = 25
- Caption = '&Register Events'
- Enabled = False
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = btnRegisterEventsClick
- end
- object moRegister: TMemo
- Left = 20
- Top = 32
- Width = 153
- Height = 97
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- end
- object GroupBox3: TGroupBox
- Left = 220
- Top = 120
- Width = 193
- Height = 185
- Caption = 'Events Received'
- Enabled = False
- TabOrder = 2
- object btnClearEvents: TButton
- Left = 34
- Top = 140
- Width = 125
- Height = 25
- Caption = 'Clear &Event Log'
- Enabled = False
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = btnClearEventsClick
- end
- object lbReceived: TListBox
- Left = 20
- Top = 32
- Width = 153
- Height = 97
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 1
- end
- end
- object GroupBox4: TGroupBox
- Left = 220
- Top = 12
- Width = 193
- Height = 105
- Caption = 'Generate Events'
- Enabled = False
- TabOrder = 3
- object Label1: TLabel
- Left = 20
- Top = 32
- Width = 28
- Height = 13
- Caption = 'Event'
- Enabled = False
- FocusControl = ebEvent
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object btnGenerateEvent: TButton
- Left = 34
- Top = 60
- Width = 125
- Height = 25
- Caption = '&Generate Event'
- Enabled = False
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = btnGenerateEventClick
- end
- object ebEvent: TEdit
- Left = 52
- Top = 28
- Width = 121
- Height = 21
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- end
- end
-