object AssistForm: TAssistForm Left = 342 Top = 200 BorderStyle = bsToolWindow Caption = 'InputAid' ClientHeight = 155 ClientWidth = 294 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] FormStyle = fsStayOnTop Position = poScreenCenter OnClose = FormClose OnKeyDown = FormKeyDown OnShow = FormShow PixelsPerInch = 96 TextHeight = 14 object SBNew: TSpeedButton Left = 160 Top = 4 Width = 22 Height = 18 Hint = 'New Record' Flat = True Glyph.Data = { C6000000424DC60000000000000076000000280000000A0000000A0000000100 0400000000005000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFF00FFFF00 0000FFFF00FFFF000000FFFF00FFFF000000FFFF00FFFF000000000000000000 00000000000000000000FFFF00FFFF000000FFFF00FFFF000000FFFF00FFFF00 0000FFFF00FFFF000000} ParentShowHint = False ShowHint = True OnClick = SBNewClick end object SBUpdate: TSpeedButton Left = 180 Top = 4 Width = 22 Height = 18 Hint = 'Update record' Flat = True Glyph.Data = { C6000000424DC60000000000000076000000280000000A0000000A0000000100 0400000000005000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F0FFFFFFFF00 0000F00FFFFFFF000000F000FFFFFF000000F0000FFFFF000000F00F00FFFF00 0000F00FF00FFF000000F00FFF00FF000000000FFFF00F000000FFFFFFFF0000 0000FFFFFFFFFF000000} ParentShowHint = False ShowHint = True OnClick = SBUpdateClick end object SBDel: TSpeedButton Left = 200 Top = 4 Width = 22 Height = 18 Hint = 'Delete Record' Flat = True Glyph.Data = { 86000000424D860000000000000076000000280000000C000000020000000100 0400000000001000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F0000000000F 0000F0000000000F0000} ParentShowHint = False ShowHint = True OnClick = SBDelClick end object SBCancel: TSpeedButton Left = 220 Top = 4 Width = 22 Height = 18 Hint = 'Cancel Editing' Flat = True Glyph.Data = { C6000000424DC60000000000000076000000280000000A0000000A0000000100 0400000000005000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F8FFFFFF8F00 0000800FFFF008000000F000FF000F000000FF000800FF000000FFF8000FFF00 0000FFF0008FFF000000FF008000FF000000F000FF000F000000800FFFF00800 0000F8FFFFFF8F000000} ParentShowHint = False ShowHint = True OnClick = SBCancelClick end object L1: TLabel Left = 7 Top = 8 Width = 33 Height = 14 Caption = 'Author' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object SBInsert: TSpeedButton Left = 248 Top = 4 Width = 40 Height = 18 Glyph.Data = { E6000000424DE60000000000000076000000280000000B0000000E0000000100 0400000000007000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00770077777770 0000770B0777777000007770B077777000007770FB077770000077770FB07770 000077000B00077000007770BF077770000077770BF07770000077770FBF0770 000070000F0000700000770BFBF0777000007770BFBF077000007770FBFBF070 00007777000000000000} OnClick = SBInsertClick end object SBMagic: TSpeedButton Left = 132 Top = 4 Width = 22 Height = 18 Hint = 'Reformat text' Flat = True Glyph.Data = { 4E000000424D4E000000000000003E0000002800000004000000040000000100 010000000000100000000000000000000000020000000000000000000000FFFF FF0090000000000000000000000090000000} ParentShowHint = False ShowHint = True OnClick = SBMagicClick end object Bevel7: TBevel Left = 156 Top = 4 Width = 2 Height = 18 end object Bevel1: TBevel Left = 244 Top = 4 Width = 2 Height = 18 end object Edit: TEdit Left = 6 Top = 24 Width = 283 Height = 22 TabOrder = 0 OnChange = EditChange OnKeyDown = EditKeyDown OnKeyPress = EditKeyPress end object LBox: TListBox Left = 6 Top = 49 Width = 283 Height = 74 IntegralHeight = True ItemHeight = 14 Sorted = True TabOrder = 1 OnClick = LBoxClick OnDblClick = LBoxDblClick end object Tab: TTabSet Left = 6 Top = 126 Width = 283 Height = 22 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] StartMargin = 0 Tabs.Strings = ( 'Author' 'Work' 'Title' 'City' 'Publisher' 'Type' 'Subject' 'Location' 'Place') TabIndex = 0 OnChange = TabChange end object Timer1: TTimer Enabled = False Interval = 200 OnTimer = Timer1Timer Left = 40 Top = 120 end end