--- oup/current/Main.dfm 2007/06/04 22:07:29 209 +++ oup/current/Main.dfm 2007/06/19 22:06:10 227 @@ -42,14 +42,12 @@ object Form_Main: TForm_Main Width = 100 end> ParentBiDiMode = False - ExplicitWidth = 742 end object DockTop: TTBDock Left = 0 Top = 0 Width = 842 Height = 75 - ExplicitWidth = 742 object MainMenu: TTBToolbar Left = 0 Top = 0 @@ -140,6 +138,10 @@ object Form_Main: TForm_Main ShortCut = 16461 OnClick = menu_metaClick end + object menu_filemanager: TTBItem + Caption = '&FileManager' + OnClick = menu_filemanagerClick + end object menu_filecompare: TTBItem Caption = '&File compare ...' Enabled = False @@ -200,6 +202,11 @@ object Form_Main: TForm_Main Checked = True OnClick = menu_view_toolbarClick end + object menu_view_toolbar_tools: TTBItem + Caption = '&Toolbar (Tools)' + Checked = True + OnClick = menu_view_toolbar_toolsClick + end object menu_view_statusbar: TTBItem Caption = '&Status bar' Checked = True @@ -217,14 +224,14 @@ object Form_Main: TForm_Main OnClick = menu_AboutClick end end - object Toolbar: TTBToolbar + object Toolbar_main: TTBToolbar Left = 0 Top = 23 - Caption = 'Toolbar' + Caption = 'Toolbar_main' DragHandleStyle = dhDouble Images = MenuImages TabOrder = 1 - OnDockChanged = ToolbarDockChanged + OnDockChanged = Toolbar_mainDockChanged object tbOpen: TTBItem Caption = 'Open .dat' DisplayMode = nbdmImageAndText @@ -253,6 +260,51 @@ object Form_Main: TForm_Main end object TBSeparatorItem1: TTBSeparatorItem end + end + object MDIToolbar: TTBToolbar + Left = 29 + Top = 49 + Caption = 'MDIToolbar' + DockableTo = [dpTop, dpBottom] + DockMode = dmCannotFloat + DockPos = 29 + DockRow = 3 + DragHandleStyle = dhDouble + TabOrder = 2 + object TBControlItem1: TTBControlItem + Control = MDITab + end + object MDITab: TMDITab + Left = 0 + Top = 0 + Width = 300 + Height = 22 + Cursor = crHandPoint + About = 'MDI Tab Control 1.4 - Copyright '#169' 1999,2002 MichaL MutL' + Align = alTop + DragKind = dkDock + HotTrack = True + Images = MenuImages + OwnerDraw = True + Style = tsFlatButtons + OnDrawTab = MDITabDrawTab + ParentShowHint = False + ShowHint = True + ShowOnChange = True + TabOrder = 0 + OnMouseMove = MDITabMouseMove + OnMouseUp = MDITabMouseUp + end + end + object Toolbar_tools: TTBToolbar + Left = 328 + Top = 23 + Caption = 'Toolbar' + DockPos = 334 + DragHandleStyle = dhDouble + Images = MenuImages + TabOrder = 3 + OnDockChanged = Toolbar_mainDockChanged object tb_preview: TTBItem Caption = 'Preview' DisplayMode = nbdmImageAndText @@ -295,6 +347,10 @@ object Form_Main: TForm_Main ImageIndex = 11 OnClick = menu_metaClick end + object tb_filemanager: TTBItem + Caption = 'FileManager' + OnClick = menu_filemanagerClick + end object tb_compare: TTBItem Caption = 'File compare' DisplayMode = nbdmImageAndText @@ -309,41 +365,6 @@ object Form_Main: TForm_Main ImageIndex = 12 end end - object MDIToolbar: TTBToolbar - Left = 0 - Top = 49 - Caption = 'MDIToolbar' - DockableTo = [dpTop, dpBottom] - DockMode = dmCannotFloat - DockPos = 0 - DockRow = 2 - DragHandleStyle = dhDouble - TabOrder = 2 - object TBControlItem1: TTBControlItem - Control = MDITab - end - object MDITab: TMDITab - Left = 0 - Top = 0 - Width = 300 - Height = 22 - Cursor = crHandPoint - About = 'MDI Tab Control 1.4 - Copyright '#169' 1999,2002 MichaL MutL' - Align = alTop - DragKind = dkDock - HotTrack = True - Images = MenuImages - OwnerDraw = True - Style = tsFlatButtons - OnDrawTab = MDITabDrawTab - ParentShowHint = False - ShowHint = True - ShowOnChange = True - TabOrder = 0 - OnMouseMove = MDITabMouseMove - OnMouseUp = MDITabMouseUp - end - end end object DockLeft: TTBDock Left = 0 @@ -358,7 +379,6 @@ object Form_Main: TForm_Main Width = 9 Height = 470 Position = dpRight - ExplicitLeft = 733 end object DockBottom: TTBDock Left = 0 @@ -366,7 +386,6 @@ object Form_Main: TForm_Main Width = 842 Height = 9 Position = dpBottom - ExplicitWidth = 742 end object opend: TOpenDialog Filter =