811 lines
26 KiB
ObjectPascal
811 lines
26 KiB
ObjectPascal
{-----------------------------------------------------------------------------
|
||
The contents of this file are subject to the Mozilla Public License
|
||
Version 1.1 (the "License"); you may not use this file except in compliance
|
||
with the License. You may obtain a copy of the License at
|
||
http://www.mozilla.org/MPL/MPL-1.1.html
|
||
|
||
Software distributed under the License is distributed on an "AS IS" basis,
|
||
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
||
the specific language governing rights and limitations under the License.
|
||
|
||
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||
located at http://jvcl.sourceforge.net
|
||
|
||
Known Issues:
|
||
-----------------------------------------------------------------------------}
|
||
unit MainFormUnit;
|
||
|
||
{$I jvcl.inc}
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||
ImgList, ActnList, Menus, ToolWin, ComCtrls, ExtCtrls, StdCtrls,
|
||
JvDockControlForm, JvDockVIDStyle
|
||
{$IFDEF USEJVCL}
|
||
, JvComponent, JvAppStorage, JvAppIniStorage
|
||
{$ENDIF};
|
||
|
||
type
|
||
TMainForm = class(TForm)
|
||
ImageList1: TImageList;
|
||
ActionList1: TActionList;
|
||
Action_New_Project: TAction;
|
||
Action_Open_Project: TAction;
|
||
Action_Close_All: TAction;
|
||
Action_Add_Project: TAction;
|
||
Action_Remove_Project: TAction;
|
||
Action_New_File: TAction;
|
||
Action_Open_File: TAction;
|
||
Action_Close: TAction;
|
||
Action_Save_Selected_Items: TAction;
|
||
Action_Save_Selected_Items_As: TAction;
|
||
Action_Save_All: TAction;
|
||
Action_Page_Setup: TAction;
|
||
Action_Print: TAction;
|
||
Action_Recent_File_List: TAction;
|
||
Action_Exit: TAction;
|
||
Action_Undo: TAction;
|
||
Action_Open: TAction;
|
||
Action_Add_Item: TAction;
|
||
Action_Start: TAction;
|
||
Action_Link: TAction;
|
||
Action_Insert_Table: TAction;
|
||
Action_Bold: TAction;
|
||
Action_View_Links_on_WWW: TAction;
|
||
Action_Split: TAction;
|
||
Action_Contents: TAction;
|
||
Action_Redo: TAction;
|
||
Action_Cut: TAction;
|
||
Action_Copy: TAction;
|
||
Action_Paste: TAction;
|
||
Action_Paste_As_HTML: TAction;
|
||
Action_Delete: TAction;
|
||
Action_Select_All: TAction;
|
||
Action_Find_and_Replace: TAction;
|
||
Action_Go_To: TAction;
|
||
Action_List_Member: TAction;
|
||
Action_Parameter_Info: TAction;
|
||
Action_Complete_Word: TAction;
|
||
Action_Insert_File_As_Text: TAction;
|
||
Action_Open_With: TAction;
|
||
Action_View_in_Browser: TAction;
|
||
Action_Browse_With: TAction;
|
||
Action_Sync_Script_Outline: TAction;
|
||
Action_View_Controls_As_Text: TAction;
|
||
Action_View_Controls_Graphically: TAction;
|
||
Action_Project_Explorer: TAction;
|
||
Action_Properties_Window: TAction;
|
||
Action_Toolbox: TAction;
|
||
Action_Immediate: TAction;
|
||
Action_Autos: TAction;
|
||
Action_Locals: TAction;
|
||
Action_Watch: TAction;
|
||
Action_Threads: TAction;
|
||
Action_Call_Stack: TAction;
|
||
Action_Running_Documents: TAction;
|
||
Action_Task_List: TAction;
|
||
Action_Visual_Component_Manager: TAction;
|
||
Action_Object_Browser: TAction;
|
||
Action_Document_Outline: TAction;
|
||
Action_Output: TAction;
|
||
Action_Data_View: TAction;
|
||
Action_Script_Outline: TAction;
|
||
Action_Previous_View: TAction;
|
||
Action_All: TAction;
|
||
Action_Comment: TAction;
|
||
Action_Compile_Build_Deploy: TAction;
|
||
Action_User: TAction;
|
||
Action_Shortcut: TAction;
|
||
Action_Smart_Editor: TAction;
|
||
Action_Current_File: TAction;
|
||
Action_Checked: TAction;
|
||
Action_Unchecked: TAction;
|
||
Action_Define_Window_Layout: TAction;
|
||
Action_Full_Screen: TAction;
|
||
Action_Property_Pages: TAction;
|
||
Action_Refresh: TAction;
|
||
Action_Start_Without_Debugging: TAction;
|
||
Action_Break: TAction;
|
||
Action_End: TAction;
|
||
Action_Detach_All_Processes: TAction;
|
||
Action_Restart: TAction;
|
||
Action_Run_To_Cursor: TAction;
|
||
Action_Step_Into: TAction;
|
||
Action_Step_Over: TAction;
|
||
Action_Step_Out: TAction;
|
||
Action_Add_Watch: TAction;
|
||
Action_Insert_Breakpoint: TAction;
|
||
Action_Enable_Breakpoint: TAction;
|
||
Action_Clear_All_Breakpoints: TAction;
|
||
Action_Breakpoints: TAction;
|
||
Action_Set_Next_Statement: TAction;
|
||
Action_Show_Next_Statement: TAction;
|
||
Action_Processes: TAction;
|
||
Action_Bookmark: TAction;
|
||
Action_Image: TAction;
|
||
Action_Form: TAction;
|
||
Action_Div: TAction;
|
||
Action_Marquee: TAction;
|
||
Action_Client: TAction;
|
||
Action_Server: TAction;
|
||
Action_HTML_Wizards: TAction;
|
||
Action_Span: TAction;
|
||
Action_Insert_Row: TAction;
|
||
Action_Delete_Row: TAction;
|
||
Action_Insert_Column: TAction;
|
||
Action_Delete_Column: TAction;
|
||
Action_Insert_Cell: TAction;
|
||
Action_Delete_Cell: TAction;
|
||
Action_Merge_Cells: TAction;
|
||
Action_Split_Cell: TAction;
|
||
Action_Italic: TAction;
|
||
Action_Underline: TAction;
|
||
Action_Superscript: TAction;
|
||
Action_Subscript: TAction;
|
||
Action_Decrease_Indent: TAction;
|
||
Action_IncreaseIndent: TAction;
|
||
Action_Absolute_Positioning: TAction;
|
||
Action_Lock: TAction;
|
||
Action_Customize_Toolbox: TAction;
|
||
Action_Add_In_Manager: TAction;
|
||
Action_Options: TAction;
|
||
Action_Dockable: TAction;
|
||
Action_Hide: TAction;
|
||
Action_Cascade: TAction;
|
||
Action_Tile_Horizontally: TAction;
|
||
Action_Tile_Vertically: TAction;
|
||
Action_Close_All_Documents: TAction;
|
||
Action_Window_List: TAction;
|
||
Action_Windows: TAction;
|
||
Action_Index: TAction;
|
||
Action_Search: TAction;
|
||
Action_Technical_Support: TAction;
|
||
Action_Microsoft_on_the_Web: TAction;
|
||
Action_About: TAction;
|
||
MainMenu1: TMainMenu;
|
||
MainMenu_File: TMenuItem;
|
||
Action_File: TAction;
|
||
Action_Edit: TAction;
|
||
Action_View: TAction;
|
||
Action_Project: TAction;
|
||
Action_Debug: TAction;
|
||
Action_HTML: TAction;
|
||
Action_Table: TAction;
|
||
Action_Format: TAction;
|
||
Action_Tools: TAction;
|
||
Action_Window: TAction;
|
||
Action_Help: TAction;
|
||
NewProject1: TMenuItem;
|
||
OpenProject1: TMenuItem;
|
||
CloseAll1: TMenuItem;
|
||
AddProject1: TMenuItem;
|
||
N1: TMenuItem;
|
||
RemoveProject1: TMenuItem;
|
||
N2: TMenuItem;
|
||
NewFile1: TMenuItem;
|
||
OpenFile1: TMenuItem;
|
||
N3: TMenuItem;
|
||
SaveSelectedItems1: TMenuItem;
|
||
SaveSelectedItemsAs1: TMenuItem;
|
||
SaveAll1: TMenuItem;
|
||
N4: TMenuItem;
|
||
PageSetup1: TMenuItem;
|
||
Print1: TMenuItem;
|
||
N5: TMenuItem;
|
||
RecentFileList1: TMenuItem;
|
||
N6: TMenuItem;
|
||
Exit1: TMenuItem;
|
||
Edit1: TMenuItem;
|
||
Undo1: TMenuItem;
|
||
Redo1: TMenuItem;
|
||
Cut1: TMenuItem;
|
||
N7: TMenuItem;
|
||
Delete1: TMenuItem;
|
||
Paste1: TMenuItem;
|
||
PasteAsHTML1: TMenuItem;
|
||
Delete2: TMenuItem;
|
||
SelectAll1: TMenuItem;
|
||
FindandReplace1: TMenuItem;
|
||
GoTo1: TMenuItem;
|
||
ListMembers1: TMenuItem;
|
||
ParameterInfo1: TMenuItem;
|
||
CompleteWord1: TMenuItem;
|
||
InsertFileAsText1: TMenuItem;
|
||
N8: TMenuItem;
|
||
N9: TMenuItem;
|
||
N10: TMenuItem;
|
||
View1: TMenuItem;
|
||
Open1: TMenuItem;
|
||
OpenWith1: TMenuItem;
|
||
ViewinBrowser1: TMenuItem;
|
||
BrowseWith1: TMenuItem;
|
||
SyncScriptOutline1: TMenuItem;
|
||
ViewControlsAsText1: TMenuItem;
|
||
ViewControlsGraphically1: TMenuItem;
|
||
ProjectExplorer1: TMenuItem;
|
||
PropertiesWindow1: TMenuItem;
|
||
Toolbox1: TMenuItem;
|
||
DefineWindowLayout1: TMenuItem;
|
||
FullScreen1: TMenuItem;
|
||
Refresh1: TMenuItem;
|
||
N11: TMenuItem;
|
||
N12: TMenuItem;
|
||
N13: TMenuItem;
|
||
Debug_Windows1: TMenuItem;
|
||
Immediate1: TMenuItem;
|
||
Autos1: TMenuItem;
|
||
Locals1: TMenuItem;
|
||
Watch1: TMenuItem;
|
||
Threads1: TMenuItem;
|
||
CallStack1: TMenuItem;
|
||
RunningDocuments1: TMenuItem;
|
||
Other_Windows1: TMenuItem;
|
||
TaskList1: TMenuItem;
|
||
VisualComponentManager1: TMenuItem;
|
||
ObjectBrowser1: TMenuItem;
|
||
DocumentOutline1: TMenuItem;
|
||
Output1: TMenuItem;
|
||
DataView1: TMenuItem;
|
||
ScriptOutline1: TMenuItem;
|
||
Show_Tasks1: TMenuItem;
|
||
N14: TMenuItem;
|
||
Toolbars1: TMenuItem;
|
||
PreviousView1: TMenuItem;
|
||
All1: TMenuItem;
|
||
Comment1: TMenuItem;
|
||
CompileBuildDeploy1: TMenuItem;
|
||
User1: TMenuItem;
|
||
Shortcut1: TMenuItem;
|
||
SmartEditor1: TMenuItem;
|
||
CurrentFile1: TMenuItem;
|
||
Checked1: TMenuItem;
|
||
Unchecked1: TMenuItem;
|
||
Action_Toolbars_Standard: TAction;
|
||
Action_Toolbars_Debug: TAction;
|
||
Standard1: TMenuItem;
|
||
Debug1: TMenuItem;
|
||
N15: TMenuItem;
|
||
Action_Toolbars_Customize: TAction;
|
||
Customize1: TMenuItem;
|
||
PropertyPages1: TMenuItem;
|
||
N16: TMenuItem;
|
||
N17: TMenuItem;
|
||
Project1: TMenuItem;
|
||
AddItem1: TMenuItem;
|
||
Debug2: TMenuItem;
|
||
Start1: TMenuItem;
|
||
StartWithoutDebugging1: TMenuItem;
|
||
Break1: TMenuItem;
|
||
End1: TMenuItem;
|
||
DetachAllProcesses1: TMenuItem;
|
||
Restart1: TMenuItem;
|
||
RunToCursor1: TMenuItem;
|
||
StepInto1: TMenuItem;
|
||
StepOver1: TMenuItem;
|
||
StepOut1: TMenuItem;
|
||
AddWatch1: TMenuItem;
|
||
InsertBreakpoint1: TMenuItem;
|
||
EnableBreakpoint1: TMenuItem;
|
||
ClearAllBreakpoints1: TMenuItem;
|
||
Breakpoints1: TMenuItem;
|
||
SetNextStatement1: TMenuItem;
|
||
ShowNextStatement1: TMenuItem;
|
||
Processes1: TMenuItem;
|
||
N18: TMenuItem;
|
||
N19: TMenuItem;
|
||
N20: TMenuItem;
|
||
N21: TMenuItem;
|
||
N22: TMenuItem;
|
||
HTML1: TMenuItem;
|
||
Link1: TMenuItem;
|
||
Bookmark1: TMenuItem;
|
||
Image1: TMenuItem;
|
||
Form1: TMenuItem;
|
||
Div1: TMenuItem;
|
||
Span1: TMenuItem;
|
||
Marquee1: TMenuItem;
|
||
HTMLWizards1: TMenuItem;
|
||
N23: TMenuItem;
|
||
Action_HTML_Script_Block: TAction;
|
||
ScriptBlock1: TMenuItem;
|
||
Client1: TMenuItem;
|
||
Server1: TMenuItem;
|
||
Table1: TMenuItem;
|
||
InsertTable1: TMenuItem;
|
||
InsertRow1: TMenuItem;
|
||
DeleteRow1: TMenuItem;
|
||
InsertColumn1: TMenuItem;
|
||
DeleteColumn1: TMenuItem;
|
||
InsertCell1: TMenuItem;
|
||
DeleteCell1: TMenuItem;
|
||
MergeCells1: TMenuItem;
|
||
SplitCell1: TMenuItem;
|
||
N24: TMenuItem;
|
||
N25: TMenuItem;
|
||
N26: TMenuItem;
|
||
Format1: TMenuItem;
|
||
Bold1: TMenuItem;
|
||
Italic1: TMenuItem;
|
||
Underline1: TMenuItem;
|
||
Superscript1: TMenuItem;
|
||
Subscript1: TMenuItem;
|
||
DecreaseIndent1: TMenuItem;
|
||
IncreaseIndent1: TMenuItem;
|
||
AbsolutePositioning1: TMenuItem;
|
||
Lock1: TMenuItem;
|
||
N27: TMenuItem;
|
||
N28: TMenuItem;
|
||
N29: TMenuItem;
|
||
Tools1: TMenuItem;
|
||
ViewLinksonWWW1: TMenuItem;
|
||
CustomizeToolbox1: TMenuItem;
|
||
AddInManager1: TMenuItem;
|
||
Options1: TMenuItem;
|
||
N30: TMenuItem;
|
||
Window1: TMenuItem;
|
||
Split1: TMenuItem;
|
||
Dockable1: TMenuItem;
|
||
Hide1: TMenuItem;
|
||
Cascade1: TMenuItem;
|
||
TileHorizontally1: TMenuItem;
|
||
TileVertically1: TMenuItem;
|
||
CloseAllDocuments1: TMenuItem;
|
||
WindowList1: TMenuItem;
|
||
Windows1: TMenuItem;
|
||
N31: TMenuItem;
|
||
N32: TMenuItem;
|
||
N33: TMenuItem;
|
||
Help1: TMenuItem;
|
||
Contents1: TMenuItem;
|
||
Index1: TMenuItem;
|
||
Search1: TMenuItem;
|
||
TechnicalSupport1: TMenuItem;
|
||
MicrosoftontheWeb1: TMenuItem;
|
||
About1: TMenuItem;
|
||
N34: TMenuItem;
|
||
N35: TMenuItem;
|
||
Action_Free_Stuff: TAction;
|
||
Action_Product_News: TAction;
|
||
Action_Frequently_Asked_Questions: TAction;
|
||
Action_Send_Feedback: TAction;
|
||
Action_Online_Support: TAction;
|
||
Action_Microsoft_Developer_Network_Online: TAction;
|
||
Action_Best_of_the_Web: TAction;
|
||
Action_Search_the_Web: TAction;
|
||
Action_Web_Tutorial: TAction;
|
||
Action_Microsoft_Home_Page: TAction;
|
||
FreeStuff1: TMenuItem;
|
||
ProductNews1: TMenuItem;
|
||
FrequentlyAskedQuestions1: TMenuItem;
|
||
OnlineSupport1: TMenuItem;
|
||
MicrosoftDeveloperNetworkOnline1: TMenuItem;
|
||
SendFeedback1: TMenuItem;
|
||
BestoftheWeb1: TMenuItem;
|
||
SearchtheWeb1: TMenuItem;
|
||
WebTutorial1: TMenuItem;
|
||
MicrosoftHomePage1: TMenuItem;
|
||
N36: TMenuItem;
|
||
N37: TMenuItem;
|
||
MainControlBar: TControlBar;
|
||
ToolBar_Build: TToolBar;
|
||
ToolButton_Build_Project: TToolButton;
|
||
ToolButton_Rebuild_Solution: TToolButton;
|
||
ToolButton_Cancel: TToolButton;
|
||
ToolBar_Standard: TToolBar;
|
||
ToolButton_New_Project: TToolButton;
|
||
ToolButton_Add_Item: TToolButton;
|
||
ToolButton_Open_Project: TToolButton;
|
||
ToolButton_Save_Selected_Items: TToolButton;
|
||
ToolButton_Save_All: TToolButton;
|
||
ToolButton_Cut: TToolButton;
|
||
ToolButton_Copy: TToolButton;
|
||
ToolButton_Paste: TToolButton;
|
||
ToolButton_Undo: TToolButton;
|
||
ToolButton5: TToolButton;
|
||
ToolButton6: TToolButton;
|
||
ToolButton_Redo: TToolButton;
|
||
ToolButton_Start1: TToolButton;
|
||
ToolButton_Break1: TToolButton;
|
||
ToolButton19: TToolButton;
|
||
ToolButton_End1: TToolButton;
|
||
ToolButton_Find_and_Replace: TToolButton;
|
||
Toolbar_Find_ComboBox: TComboBox;
|
||
ToolButton22: TToolButton;
|
||
ToolButton23: TToolButton;
|
||
ToolButton_Project_Explorer: TToolButton;
|
||
ToolButton_Properties_Window: TToolButton;
|
||
ToolButton_Toolbox: TToolButton;
|
||
ToolButton_Task_List: TToolButton;
|
||
ToolButton30: TToolButton;
|
||
Load_Save_WindowUI_ComboBox: TComboBox;
|
||
Other_Windows_PopupMenu: TPopupMenu;
|
||
TaskList2: TMenuItem;
|
||
VisualComponentManager2: TMenuItem;
|
||
ObjectBrowser2: TMenuItem;
|
||
DocumentOutline2: TMenuItem;
|
||
Output2: TMenuItem;
|
||
DataView2: TMenuItem;
|
||
ScriptOutline2: TMenuItem;
|
||
ToolBar_Debug: TToolBar;
|
||
ToolButton_Start2: TToolButton;
|
||
ToolButton_Start_Without_Debugging: TToolButton;
|
||
ToolButton_Break2: TToolButton;
|
||
ToolButton_End2: TToolButton;
|
||
ToolButton_Detach_All_Processes: TToolButton;
|
||
ToolButton_Restart: TToolButton;
|
||
ToolButton_Run_To_Cursor: TToolButton;
|
||
ToolButton_Step_Into: TToolButton;
|
||
ToolButton36: TToolButton;
|
||
ToolButton_Step_Over: TToolButton;
|
||
ToolButton_Step_Out: TToolButton;
|
||
ToolButton39: TToolButton;
|
||
ToolButton_Insert_Breakpoint: TToolButton;
|
||
ToolButton_Enable_Breakpoint: TToolButton;
|
||
ToolButton_Clear_All_Breakpoints: TToolButton;
|
||
ToolButton_Breakpoints: TToolButton;
|
||
ToolButton44: TToolButton;
|
||
ToolButton_Immediate: TToolButton;
|
||
ToolButton_Autos: TToolButton;
|
||
ToolButton_Locals: TToolButton;
|
||
ToolButton_Watch: TToolButton;
|
||
ToolButton_Threads: TToolButton;
|
||
ToolButton_Call_Stack: TToolButton;
|
||
ToolButton_Running_Documents: TToolButton;
|
||
ToolButton_Output: TToolButton;
|
||
ToolButton53: TToolButton;
|
||
ToolButton_Processes: TToolButton;
|
||
Action_Build_Project: TAction;
|
||
Action_Build_Solution: TAction;
|
||
Action_Rebuild_Solution: TAction;
|
||
Action_Cancel: TAction;
|
||
Action_Build: TAction;
|
||
ActionBuild1: TMenuItem;
|
||
BuildProject1: TMenuItem;
|
||
BuildSolution1: TMenuItem;
|
||
RebuildSolution1: TMenuItem;
|
||
Cancel1: TMenuItem;
|
||
ComboBox_Configuration: TComboBox;
|
||
Action_Toolbars_Build: TAction;
|
||
Build1: TMenuItem;
|
||
lbDockServer1: TJvDockServer;
|
||
JvDockVIDStyle1: TJvDockVIDStyle;
|
||
MainFormStatusBar: TStatusBar;
|
||
procedure Action_FileExecute(Sender: TObject);
|
||
procedure MainControlBarBandMove(Sender: TObject; Control: TControl;
|
||
var ARect: TRect);
|
||
procedure Action_New_ProjectExecute(Sender: TObject);
|
||
procedure Action_ExitExecute(Sender: TObject);
|
||
procedure Action_Task_ListExecute(Sender: TObject);
|
||
procedure MainFormStatusBarResize(Sender: TObject);
|
||
procedure Action_Project_ExplorerExecute(Sender: TObject);
|
||
procedure Action_Properties_WindowExecute(Sender: TObject);
|
||
procedure Action_ToolboxExecute(Sender: TObject);
|
||
procedure Action_ImmediateExecute(Sender: TObject);
|
||
procedure Action_AutosExecute(Sender: TObject);
|
||
procedure Action_LocalsExecute(Sender: TObject);
|
||
procedure Action_WatchExecute(Sender: TObject);
|
||
procedure Action_ThreadsExecute(Sender: TObject);
|
||
procedure Action_Call_StackExecute(Sender: TObject);
|
||
procedure Action_Running_DocumentsExecute(Sender: TObject);
|
||
procedure Action_Document_OutlineExecute(Sender: TObject);
|
||
procedure Action_OutputExecute(Sender: TObject);
|
||
procedure Action_Script_OutlineExecute(Sender: TObject);
|
||
procedure Action_Define_Window_LayoutExecute(Sender: TObject);
|
||
procedure Action_Find_and_ReplaceExecute(Sender: TObject);
|
||
procedure Load_Save_WindowUI_ComboBoxChange(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure Action_AboutExecute(Sender: TObject);
|
||
private
|
||
{ Private declarations }
|
||
FCreated: Boolean;
|
||
procedure CreateDockableForm;
|
||
procedure GetToolbarWidthArr;
|
||
procedure SaveDefaultLayout;
|
||
procedure LoadDefaultLayout;
|
||
public
|
||
{ Public declarations }
|
||
{$IFDEF USEJVCL}
|
||
JvAppStorage:TJvAppIniFileStorage;
|
||
{$ENDIF}
|
||
procedure LoadDockInfo;
|
||
end;
|
||
|
||
var
|
||
MainForm: TMainForm;
|
||
|
||
const DefineWindowLayoutFileName: string = 'DefineWindowLayout.ini';
|
||
const SectionString: string = 'DefineWindowLayout';
|
||
const DefaultLayout: string = 'DefaultLayout';
|
||
|
||
implementation
|
||
|
||
uses IniFiles, ProjectExplorerUnit, PropertiesUnit, ToolboxUnit, ImmediateUnit,
|
||
AutosUnit, LocalsUnit, WatchUnit, ThreadsUnit, CallStackUnit,
|
||
RunningDocumentsUnit, TaskListUnit, DocumentOutlineUnit, OutputUnit,
|
||
ScriptOutlineUnit, DefineWindowLayoutUnit, FindAndReplaceUnit, SplashUnit;
|
||
|
||
procedure TMainForm.CreateDockableForm;
|
||
begin
|
||
ProjectExplorerForm := TProjectExplorerForm.Create(Self); //<2F><><EFBFBD><EFBFBD>Project Explorer<65><72><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>
|
||
PropertiesForm := TPropertiesForm.Create(Self); //<2F><><EFBFBD><EFBFBD>Properties<65><73><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>
|
||
ToolboxForm := TToolboxForm.Create(Self); //<2F><><EFBFBD><EFBFBD>Toolbox<6F><78><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>
|
||
{----------------------------------------------------------------------------}
|
||
ImmediateForm := TImmediateForm.Create(Self); //<2F><><EFBFBD><EFBFBD>Immediate<74><65><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>
|
||
AutosForm := TAutosForm.Create(Self); //<2F><><EFBFBD><EFBFBD>Autos<6F><73><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>
|
||
LocalsForm := TLocalsForm.Create(Self); //<2F><><EFBFBD><EFBFBD>Locals<6C><73><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>
|
||
WatchForm := TWatchForm.Create(Self); //<2F><><EFBFBD><EFBFBD>Watch<63><68><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>
|
||
ThreadsForm := TThreadsForm.Create(Self); //<2F><><EFBFBD><EFBFBD>Threads<64><73><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>
|
||
CallStackForm := TCallStackForm.Create(Self); //<2F><><EFBFBD><EFBFBD>Call Stack<63><6B><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>
|
||
RunningDocumentsForm := TRunningDocumentsForm.Create(Self); //<2F><><EFBFBD><EFBFBD>Running Documents<74><73><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>
|
||
{----------------------------------------------------------------------------}
|
||
TaskListForm := TTaskListForm.Create(Self); //<2F><><EFBFBD><EFBFBD>Task List<73><74><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>
|
||
DocumentOutlineForm := TDocumentOutlineForm.Create(Self); //<2F><><EFBFBD><EFBFBD>Document Outline<6E><65><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>
|
||
OutputForm := TOutputForm.Create(Self); //<2F><><EFBFBD><EFBFBD>Output<75><74><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>
|
||
ScriptOutlineForm := TScriptOutlineForm.Create(Self); //<2F><><EFBFBD><EFBFBD>Script Outline<6E><65><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>
|
||
{----------------------------------------------------------------------------}
|
||
FindAndReplaceForm := TFindAndReplaceForm.Create(Self); //<2F><><EFBFBD><EFBFBD>Find And Replace<63><65><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD>
|
||
end;
|
||
|
||
{$R *.DFM}
|
||
|
||
procedure TMainForm.Action_FileExecute(Sender: TObject);
|
||
begin
|
||
//
|
||
end;
|
||
|
||
procedure TMainForm.GetToolbarWidthArr;
|
||
var i: Integer;
|
||
begin
|
||
//
|
||
for i := 0 to MainControlBar.ControlCount - 1 do
|
||
MainControlBar.Controls[i].Tag := MainControlBar.Controls[i].Width;
|
||
FCreated := True;
|
||
end;
|
||
|
||
procedure TMainForm.MainControlBarBandMove(Sender: TObject;
|
||
Control: TControl; var ARect: TRect);
|
||
begin
|
||
//
|
||
if (Control.Tag <> ARect.Right - ARect.Left - 13) and FCreated then
|
||
begin
|
||
ARect.Right := ARect.Left + Control.Tag + 13;
|
||
end;
|
||
end;
|
||
|
||
procedure TMainForm.Action_New_ProjectExecute(Sender: TObject);
|
||
begin
|
||
MainFormStatusBar.Panels[2].Text := Format('You clicked ''%s''', [TAction(Sender).Caption]);
|
||
end;
|
||
|
||
procedure TMainForm.Action_ExitExecute(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TMainForm.MainFormStatusBarResize(Sender: TObject);
|
||
begin
|
||
if MainFormStatusBar.Width > 450 then
|
||
MainFormStatusBar.Panels[0].Width := MainFormStatusBar.Width - 350
|
||
else
|
||
MainFormStatusBar.Panels[2].Width := MainFormStatusBar.Width - 200;
|
||
end;
|
||
|
||
procedure TMainForm.Action_Task_ListExecute(Sender: TObject);
|
||
begin
|
||
{ <20><>ʾTask List<73><74><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD> }
|
||
ShowDockForm(TaskListForm);
|
||
end;
|
||
|
||
procedure TMainForm.Action_Project_ExplorerExecute(Sender: TObject);
|
||
begin
|
||
{ <20><>ʾTask List<73><74><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD> }
|
||
ShowDockForm(ProjectExplorerForm);
|
||
end;
|
||
|
||
procedure TMainForm.Action_Properties_WindowExecute(Sender: TObject);
|
||
begin
|
||
{ <20><>ʾProperties<65><73><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD> }
|
||
ShowDockForm(PropertiesForm);
|
||
end;
|
||
|
||
procedure TMainForm.Action_ToolboxExecute(Sender: TObject);
|
||
begin
|
||
{ <20><>ʾToolbox<6F><78><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD> }
|
||
ShowDockForm(ToolboxForm);
|
||
end;
|
||
|
||
procedure TMainForm.Action_ImmediateExecute(Sender: TObject);
|
||
begin
|
||
{ <20><>ʾImmediate<74><65><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD> }
|
||
ShowDockForm(ImmediateForm);
|
||
end;
|
||
|
||
procedure TMainForm.Action_AutosExecute(Sender: TObject);
|
||
begin
|
||
{ <20><>ʾAutos<6F><73><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD> }
|
||
ShowDockForm(AutosForm);
|
||
end;
|
||
|
||
procedure TMainForm.Action_LocalsExecute(Sender: TObject);
|
||
begin
|
||
{ <20><>ʾLocals<6C><73><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD> }
|
||
ShowDockForm(LocalsForm);
|
||
end;
|
||
|
||
procedure TMainForm.Action_WatchExecute(Sender: TObject);
|
||
begin
|
||
{ <20><>ʾWatch<63><68><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD> }
|
||
ShowDockForm(WatchForm);
|
||
end;
|
||
|
||
procedure TMainForm.Action_ThreadsExecute(Sender: TObject);
|
||
begin
|
||
{ <20><>ʾThreads<64><73><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD> }
|
||
ShowDockForm(ThreadsForm);
|
||
end;
|
||
|
||
procedure TMainForm.Action_Call_StackExecute(Sender: TObject);
|
||
begin
|
||
{ <20><>ʾCall Stack<63><6B><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD> }
|
||
ShowDockForm(CallStackForm);
|
||
end;
|
||
|
||
procedure TMainForm.Action_Running_DocumentsExecute(Sender: TObject);
|
||
begin
|
||
{ <20><>ʾRunning Documents<74><73><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD> }
|
||
ShowDockForm(RunningDocumentsForm);
|
||
end;
|
||
|
||
procedure TMainForm.Action_Document_OutlineExecute(Sender: TObject);
|
||
begin
|
||
{ <20><>ʾDocument Outline<6E><65><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD> }
|
||
ShowDockForm(DocumentOutlineForm);
|
||
end;
|
||
|
||
procedure TMainForm.Action_OutputExecute(Sender: TObject);
|
||
begin
|
||
{ <20><>ʾOutput<75><74><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD> }
|
||
ShowDockForm(OutputForm);
|
||
end;
|
||
|
||
procedure TMainForm.Action_Script_OutlineExecute(Sender: TObject);
|
||
begin
|
||
{ <20><>ʾScript Outline<6E><65><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD> }
|
||
ShowDockForm(ScriptOutlineForm);
|
||
end;
|
||
|
||
procedure TMainForm.Action_Find_and_ReplaceExecute(Sender: TObject);
|
||
begin
|
||
{ <20><>ʾFind And Replace<63><65><EFBFBD>ߴ<EFBFBD><DFB4><EFBFBD> }
|
||
ShowDockForm(FindAndReplaceForm);
|
||
end;
|
||
|
||
procedure TMainForm.Action_Define_Window_LayoutExecute(Sender: TObject);
|
||
begin
|
||
with TDefineWindowLayoutForm.Create(nil) do
|
||
begin
|
||
ShowModal;
|
||
Load_Save_WindowUI_ComboBox.Items.Clear;
|
||
Load_Save_WindowUI_ComboBox.Items.Assign(Views_ListBox.Items);
|
||
Load_Save_WindowUI_ComboBox.ItemIndex := SelectItemIndex;
|
||
Release;
|
||
end;
|
||
end;
|
||
|
||
procedure TMainForm.LoadDockInfo;
|
||
begin
|
||
CreateDockableForm;
|
||
GetToolbarWidthArr;
|
||
LoadDefaultLayout;
|
||
end;
|
||
|
||
procedure TMainForm.LoadDefaultLayout;
|
||
var IniFile: TIniFile;
|
||
Str: string;
|
||
Sections: TStringList;
|
||
Index: Integer;
|
||
begin
|
||
IniFile := TIniFile.Create(ExtractFilePath(Application.EXEName) + DefineWindowLayoutFileName);
|
||
Sections := TStringList.Create;
|
||
try
|
||
IniFile.ReadSection(SectionString, Sections);
|
||
Index := Sections.IndexOf(DefaultLayout);
|
||
if Index <> - 1 then
|
||
Sections.Delete(Sections.IndexOf(DefaultLayout));
|
||
Sections.Sort;
|
||
Load_Save_WindowUI_ComboBox.Items.Assign(Sections);
|
||
Load_Save_WindowUI_ComboBox.ItemIndex := 0;
|
||
Str := IniFile.ReadString(SectionString, DefaultLayout, 'ERROR');
|
||
if Str <> 'ERROR' then
|
||
begin
|
||
Load_Save_WindowUI_ComboBox.ItemIndex := Load_Save_WindowUI_ComboBox.Items.IndexOf(Str);
|
||
{$IFDEF USEJVCL}
|
||
JvAppStorage.Filename := ExtractFilePath(Application.ExeName) + Str + '.ini';
|
||
LoadDockTreeFromAppStorage(JvAppStorage);
|
||
{$ELSE}
|
||
LoadDockTreeFromFile(ExtractFilePath(Application.EXEName) + Str + '.ini');
|
||
{$ENDIF}
|
||
end;
|
||
finally
|
||
Sections.Free;
|
||
IniFile.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TMainForm.SaveDefaultLayout;
|
||
//var IniFile: TIniFile;
|
||
begin
|
||
{$IFDEF USEJVCL}
|
||
JvAppStorage.Filename := ExtractFilePath(Application.EXEName) + Load_Save_WindowUI_ComboBox.Text + '.ini';
|
||
SaveDockTreeToAppStorage(JvAppStorage, Load_Save_WindowUI_ComboBox.Text);
|
||
{ JvAppStorage.WriteString(JvAppStorage.ConcatPaths([SectionString, DefaultLayout]), Load_Save_WindowUI_ComboBox.Text);
|
||
IniFile := TIniFile.Create(ExtractFilePath(Application.EXEName) + DefineWindowLayoutFileName);
|
||
try
|
||
IniFile.WriteString(SectionString, DefaultLayout, Load_Save_WindowUI_ComboBox.Text);
|
||
finally
|
||
IniFile.Free;
|
||
end;}
|
||
{$ELSE}
|
||
SaveDockTreeToFile(ExtractFilePath(Application.EXEName) + Load_Save_WindowUI_ComboBox.Text + '.ini');
|
||
{$ENDIF}
|
||
end;
|
||
|
||
procedure TMainForm.Load_Save_WindowUI_ComboBoxChange(Sender: TObject);
|
||
begin
|
||
{$IFNDEF USEJVCL}
|
||
LoadDockTreeFromFile(ExtractFilePath(Application.EXEName) + Load_Save_WindowUI_ComboBox.Text + '.ini');
|
||
{$ENDIF}
|
||
end;
|
||
|
||
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
{ <20><><EFBFBD><EFBFBD>ͣ<EFBFBD><CDA3><EFBFBD><EFBFBD>Ϣ<EFBFBD>Ĵ<EFBFBD><C4B4>벻<EFBFBD>ܷ<EFBFBD><DCB7><EFBFBD>OnDestroy<6F>¼<EFBFBD><C2BC>У<EFBFBD><D0A3><EFBFBD>Ϊ<EFBFBD><CEAA>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>Щ<EFBFBD><D0A9><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ͷ<EFBFBD><CDB7>ˣ<EFBFBD><CBA3><EFBFBD><EFBFBD>ܱ<EFBFBD><DCB1><EFBFBD><EFBFBD>档 }
|
||
SaveDefaultLayout;
|
||
end;
|
||
|
||
procedure TMainForm.FormDestroy(Sender: TObject);
|
||
begin
|
||
(* ProjectExplorerForm.Release;
|
||
PropertiesForm.Release;
|
||
ToolboxForm.Release;
|
||
{----------------------------------------------------------------------------}
|
||
ImmediateForm.Release;
|
||
AutosForm.Release;
|
||
LocalsForm.Release;
|
||
WatchForm.Release;
|
||
ThreadsForm.Release;
|
||
CallStackForm.Release;
|
||
RunningDocumentsForm.Release;
|
||
{----------------------------------------------------------------------------}
|
||
TaskListForm.Release;
|
||
DocumentOutlineForm.Release;
|
||
OutputForm.Release;
|
||
ScriptOutlineForm.Release;
|
||
{----------------------------------------------------------------------------}
|
||
FindAndReplaceForm.Release;*)
|
||
end;
|
||
|
||
procedure TMainForm.FormCreate(Sender: TObject);
|
||
begin
|
||
{$IFDEF USEJVCL}
|
||
JvAppStorage := TJvAppIniFileStorage.Create(self);
|
||
{$ENDIF}
|
||
LoadDockInfo;
|
||
end;
|
||
|
||
procedure TMainForm.Action_AboutExecute(Sender: TObject);
|
||
begin
|
||
with TSplashForm.Create(nil) do
|
||
try
|
||
ShowModal;
|
||
finally
|
||
Free;
|
||
end;
|
||
end;
|
||
|
||
end.
|