object wwLookupDlg: TwwLookupDlg Left = 214 Top = 86 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderStyle = bsDialog Caption = 'Lookup' ClientHeight = 343 ClientWidth = 344 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] KeyPreview = True PixelsPerInch = 96 Position = poScreenCenter OnCloseQuery = FormCloseQuery OnKeyDown = FormKeyDown OnKeyUp = FormKeyUp TextHeight = 13 object SearchCharacterLabel: TLabel Left = 8 Top = 8 Width = 106 Height = 13 Caption = '&Search Characters' FocusControl = wwIncrementalSearch1 end object SortByLabel: TLabel Left = 8 Top = 48 Width = 59 Height = 13 Caption = 'Search &By' FocusControl = wwKeyCombo1 Visible = False end object wwKeyCombo1: TwwKeyCombo Left = 10 Top = 64 Width = 329 Height = 21 Hint = 'Incremental searching and sorting order' Style = csDropDownList ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 2 Visible = False OnChange = wwKeyCombo1Change OnEnter = wwKeyCombo1Enter OnKeyDown = wwKeyCombo1KeyDown ShowAllIndexes = False DataSource = DataSource1 PrimaryKeyName = 'PrimaryKey' end object wwDBGrid1: TwwDBGrid Left = 8 Top = 84 Width = 329 Height = 209 TitleColor = clBtnFace FixedCols = 0 ShowHorzScrollBar = True DataSource = DataSource1 Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit] TabOrder = 1 TitleAlignment = taLeftJustify TitleFont.Color = clBlack TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [fsBold] TitleLines = 1 TitleButtons = False OnDblClick = wwDBGrid1DblClick OnMouseDown = wwDBGrid1MouseDown IndicatorColor = icBlack end object wwIncrementalSearch1: TwwIncrementalSearch Left = 8 Top = 24 Width = 329 Height = 20 Hint = 'Enter characters for incremental search' DataSource = DataSource1 AutoSize = False ParentShowHint = False ShowHint = True TabOrder = 0 end object StatusHeader: THeader Left = 56 Top = 252 Width = 185 Height = 21 Hint = 'Table Name and current record position' ParentShowHint = False Sections.Sections = ( #0'8'#0 #0'8'#0) ShowHint = True TabOrder = 4 Visible = False end object UserButtonPanel: TPanel Left = 8 Top = 300 Width = 329 Height = 40 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 3 Visible = False object UserButton1: TButton Left = 12 Top = 8 Width = 89 Height = 26 Caption = 'UserButton1' TabOrder = 0 Visible = False OnClick = UserButton1Click end object UserButton2: TButton Left = 124 Top = 8 Width = 89 Height = 26 Caption = 'UserButton2' TabOrder = 1 Visible = False OnClick = UserButton2Click end end object DataSource1: TwwDataSource OnDataChange = DataSource1DataChange Left = 300 Top = 340 end end