object frmEvents: TfrmEvents Left = 539 Top = 284 BorderStyle = bsDialog Caption = 'Event Alerter Demo' ClientHeight = 324 ClientWidth = 430 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 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 GroupBox4: TGroupBox Left = 220 Top = 12 Width = 193 Height = 105 Caption = 'Generate Events' Enabled = False TabOrder = 1 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 Text = 'ebEvent' end end object GroupBox2: TGroupBox Left = 16 Top = 120 Width = 193 Height = 185 Caption = 'Event Registration' Enabled = False TabOrder = 2 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 = [] Lines.Strings = ( 'moRegister') ParentFont = False TabOrder = 1 end end object GroupBox3: TGroupBox Left = 220 Top = 120 Width = 193 Height = 185 Caption = 'Events Received' Enabled = False TabOrder = 3 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 end