object FrmProjectAssistant: TFrmProjectAssistant Left = 234 Top = 292 BorderIcons = [biMinimize] BorderStyle = bsToolWindow Caption = 'Project Assistant' ClientHeight = 131 ClientWidth = 337 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object btnAddCurrent: TSpeedButton Left = 2 Top = 2 Width = 25 Height = 25 Hint = 'Add current document to project' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555500 0055555FFFFFFFFFF55555500000000AA055558888888888F5555550FFFF000A A000558F5FFFF888F5555550F0000AAAAAA0558F888888888F555550FFFF0AAA AAA0558F5FF8888885555550F000000AA000558F88888888F5555550FFFFFF0A A055558F5FFFF888F5555550F00000000055558F88888858F5555550FFFFFFFF 0555558F5FFF5558F5555550F000FFFF0555558F88855FF8F5555550FFFFF000 0555558F5FF5888855555550F00FF0F05555558F88558F8555555550FFFFF005 5555558FFFFF8855555555500000005555555588888885555555555555555555 5555555555555555555555555555555555555555555555555555000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = AddCurrentClick end object btnAddDocument: TSpeedButton Left = 26 Top = 2 Width = 25 Height = 25 Hint = 'Add document to project' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777777FFFFFFFFFF77770000000000000077788888888888FFFF00333333330A A00088F7777777788F880B033333000AA0008F8F777777788FF80FB033330AAA AAA08F78F7777888888F0BFB03330AAAAAA08F778FFFF888888F0FBFB000000A A0008F77788888888FF80BFBFB0F000AA0F08F77778F888888780FBFBF0FFF00 00F08F77FF8F7FFFFFF80BFB000F000000F08FFF888F888888787000770FFFFF FFF07888778F7FF77FF87777770F00FF00007777778F887788887777770FFFFF 0F077777778F77778F877777770FFFFF00777777778FFFFF8877777777000000 0777777777888888877777777777777777777777777777777777} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = AddDocumentClick end object btnRemoveDocument: TSpeedButton Left = 50 Top = 2 Width = 25 Height = 25 Hint = 'Remove document from project' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777777FFFFFFFFFF7777000000000007777778888888888FFFFF003333333330 000088F777777778F8880B033333000000008F8F77777FFF8FFF0FB033330999 99908F78F7777888888F0BFB0333099999908F778FFFF88888880FBFB0000000 00008F777888888888880BFBFB0F000000F08F77778F888888780FBFBF0FFFFF FFF08F77FF8F7FFFFFF80BFB000F000000F08FFF888F888888787000770FFFFF FFF07888778F7FF77FF87777770F00FF00007777778F887788887777770FFFFF 0F077777778F77778F877777770FFFFF00777777778FFFFF8877777777000000 0777777777888888877777777777777777777777777777777777} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = RemoveDocumentClick end object btnOpenSelected: TSpeedButton Left = 74 Top = 2 Width = 25 Height = 25 Hint = 'Open selected file' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555500 0055555FFFFFFFFFF55555500000000AA055558888888888F5555550FFFF000A A000558F5FFFF888F5555550F0000AAAAAA0558F888888888F555550FFFF0AAA AAA0558F5FF8888885555550F000000AA000558F88888888F5555550FFFFFF0A A055558F5FFFF888F5555550F00000000055558F88888858F5555550FFFFFFFF 0555558F5FFF5558F5555550F000FFFF0555558F88855FF8F5555550FFFFF000 0555558F5FF5888855555550F00FF0F05555558F88558F8555555550FFFFF005 5555558FFFFF8855555555500000005555555588888885555555555555555555 5555555555555555555555555555555555555555555555555555} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = OpenSelectedClick end object btnClose: TSpeedButton Left = 138 Top = 2 Width = 25 Height = 25 Hint = 'Close Project Assistant' Glyph.Data = { 10010000424D1001000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333330F33330F3333333333333000F3333330F3333000F333330 F333333000F33300F3333333000F300F33333333300000F33333333333000F33 33333333300000F333333333000F30F33333330000F33300F33330000F333330 0F33300F3333333300F333333333333333333333333333333333000000000000 0000000000000000000000000000000000000000} ParentShowHint = False ShowHint = True OnClick = CloseClick end object btnToDo: TSpeedButton Left = 106 Top = 2 Width = 25 Height = 25 Hint = 'Show to-do list' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333 333333333337FF3333333333330003333333333333777F333333333333080333 3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB 33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB 3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333 333333333337F33333333333333B3333333333333337333333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = btnToDoClick end object lbFiles: TListBox Left = 0 Top = 30 Width = 337 Height = 101 Align = alBottom Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False PopupMenu = ListBoxPopUp TabOrder = 0 OnClick = lbFilesClick OnDblClick = OpenSelectedClick end object EditProjectName: TEdit Left = 168 Top = 8 Width = 161 Height = 21 Hint = 'the current project' BorderStyle = bsNone Color = clBtnFace ReadOnly = True TabOrder = 1 Text = 'EditProjectName' end object ListBoxPopUp: TPopupMenu Left = 296 Top = 96 object MenuAddCurrentDocument: TMenuItem Caption = 'Add ¤t document' ShortCut = 0 OnClick = AddCurrentClick end object MenuAddDocument: TMenuItem Caption = '&Add document' ShortCut = 0 OnClick = AddDocumentClick end object MenuRemoveDocument: TMenuItem Caption = '&Remove document' ShortCut = 0 OnClick = RemoveDocumentClick end object MenuOpenSelected: TMenuItem Caption = '&Open selected' ShortCut = 0 OnClick = OpenSelectedClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object CloseAssistant: TMenuItem Caption = '&Close Project Assistant' ShortCut = 0 OnClick = CloseClick end end object DlgOpen: TOpenDialog DefaultExt = 'htm' FileEditStyle = fsEdit Filter = 'All Files (*.*)|*.*|Text (*.txt)|*.txt|Documents (*.doc)|*.doc|H' + 'TML Documents (*.html; *.htm)|*.html;*.htm;*.ht3|Parsed HTML (*.' + 'htp)|*.htp|HTML Template (*.htx; *.htt)|*.htx;*.htt' FilterIndex = 4 Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Title = 'Select file to add to project' Left = 264 Top = 96 end object DlgSave: TSaveDialog DefaultExt = 'pro' FileEditStyle = fsEdit Filter = 'Project Files (*.pro)|*.pro' Title = 'Save project' Left = 232 Top = 96 end end