object frmDBBrowse: TfrmDBBrowse Left = 193 Top = 104 Width = 578 Height = 239 Hint = 'Press Z to zoom in/out, Ctrl-A to Select/Unselect All' HorzScrollBar.Smooth = True HorzScrollBar.Style = ssFlat HorzScrollBar.Tracking = True VertScrollBar.Smooth = True VertScrollBar.Style = ssFlat VertScrollBar.Tracking = True ActiveControl = dbgBrowse BorderIcons = [biSystemMenu, biMaximize] Caption = 'default' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poOwnerFormCenter ShowHint = True OnCreate = FormCreate OnDestroy = FormDestroy OnKeyPress = FormKeyPress OnKeyUp = FormKeyUp OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 6 Top = 185 Width = 28 Height = 13 Anchors = [akLeft, akBottom] Caption = 'Find:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 169 Top = 185 Width = 10 Height = 13 Anchors = [akRight, akBottom] Caption = 'in' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False end object btnOK: TBitBtn Left = 395 Top = 180 Width = 81 Height = 26 Anchors = [akRight, akBottom] Caption = '&OK' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ModalResult = 1 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = btnOKClick Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333330000333333333333333333333333F33333333333 00003333344333333333333333388F3333333333000033334224333333333333 338338F3333333330000333422224333333333333833338F3333333300003342 222224333333333383333338F3333333000034222A22224333333338F338F333 8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224 33333338F83338F338F33333000033A33333A222433333338333338F338F3333 0000333333333A222433333333333338F338F33300003333333333A222433333 333333338F338F33000033333333333A222433333333333338F338F300003333 33333333A222433333333333338F338F00003333333333333A22433333333333 3338F38F000033333333333333A223333333333333338F830000333333333333 333A333333333333333338330000333333333333333333333333333333333333 0000} NumGlyphs = 2 end object btnCancel: TBitBtn Left = 485 Top = 180 Width = 78 Height = 27 Anchors = [akRight, akBottom] Caption = '&Cancel' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 4 Kind = bkCancel end object txtFindText: TEdit Left = 35 Top = 180 Width = 129 Height = 21 Hint = 'Enter search text here. Press ENTER to initiate search.' Anchors = [akLeft, akRight, akBottom] AutoSelect = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ParentFont = False TabOrder = 1 OnKeyPress = txtFindTextKeyPress end object cboFind: TComboBox Left = 183 Top = 180 Width = 195 Height = 21 Style = csDropDownList Anchors = [akRight, akBottom] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] ItemHeight = 13 ParentFont = False TabOrder = 2 OnEnter = cboFindEnter end object dbgBrowse: TDBGrid Left = 5 Top = 5 Width = 559 Height = 170 Anchors = [akLeft, akTop, akRight, akBottom] DefaultDrawing = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Verdana' Font.Style = [] Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] ParentFont = False PopupMenu = popGrid ReadOnly = True TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Verdana' TitleFont.Style = [] OnDrawColumnCell = dbgBrowseDrawColumnCell OnKeyDown = dbgBrowseKeyDown OnKeyUp = dbgBrowseKeyUp end object popGrid: TPopupMenu Left = 5 Top = 25 object Indexby1: TMenuItem Tag = 1000 Bitmap.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555555FFFFFFFF5555555000000005555555577777777FF555550999999900 55555575555555775F55509999999901055557F55555557F75F5001111111101 105577FFFFFFFF7FF75F00000000000011057777777777775F755070FFFFFF0F 01105777F555557F75F75500FFFFFF0FF0105577F555FF7F57575550FF700008 8F0055575FF7777555775555000888888F005555777FFFFFFF77555550000000 0F055555577777777F7F555550FFFFFF0F05555557F5FFF57F7F555550F000FF 0005555557F777557775555550FFFFFF0555555557F555FF7F55555550FF7000 05555555575FF777755555555500055555555555557775555555} Caption = 'Index by' Hint = 'Changing index or display type will remove all selection.' end object Displayusing1: TMenuItem Tag = 2000 Bitmap.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555000000 000055555F77777777775555000FFFFFFFF0555F777F5FFFF55755000F0F0000 FFF05F777F7F77775557000F0F0FFFFFFFF0777F7F7F5FFFFFF70F0F0F0F0000 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFFFFF70F0F0F0F0000 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFF55570F0F0F0F000F FFF07F7F7F7F77755FF70F0F0F0FFFFF00007F7F7F7F5FF577770F0F0F0F00FF 0F057F7F7F7F77557F750F0F0F0FFFFF00557F7F7F7FFFFF77550F0F0F000000 05557F7F7F77777775550F0F0000000555557F7F7777777555550F0000000555 55557F7777777555555500000005555555557777777555555555} Caption = 'Display using' end end end