mainformunit.pas

一个不用编写任何代码的DELPHI停靠窗体的控件原码

{*******************************************************}
{                                                       }
{       类似Visual C++界面的程序的主窗口                }
{       MainFormUnit 单元                               }
{                                                       }
{       版权 (C) 2002,2002 鲁小班                       }
{                                                       }
{*******************************************************}

{------------------------------------------------------------------------------+
    这个程序主要用来演示TlbVCDockStyle控件的使用方法,其中程序的菜单和工具栏
    大部分和VC++类似,在Debug Windows子菜单中的工具窗体(Watch,Vatiables,WorkSpace等)有
    停靠的功能,他们的风格就是类似于VC++的停靠风格,如果您需要详细的了解VC++的停靠风格,
    请参看文档<<VC++的停靠规则.doc>>或者帮助文件。
+------------------------------------------------------------------------------}


unit MainFormUnit;

interface

uses
  Windows, Messages, SysUtils, {Variants, }Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, ImgList, ExtCtrls, StdCtrls, Menus, ActnList,
  lbDockFormControl, lbVCDockStyle, Grids{, ValEdit}, StdActns,
  lbDelphiDockStyle, lbVIDDockStyle, mwCustomEdit;

type
  TMainForm = class(TForm)
    MainControlBar: TControlBar;
    tb_Standard_ToolBar: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    WorkSpace_ToolButton: TToolButton;
    Output_ToolButton: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    Search_Panel: TPanel;
    ComboBox1: TComboBox;
    tb_Edit_ToolBar: TToolBar;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    ToolButton22: TToolButton;
    ToolButton23: TToolButton;
    ToolButton24: TToolButton;
    ToolButton25: TToolButton;
    ToolButton26: TToolButton;
    ToolButton27: TToolButton;
    ToolButton28: TToolButton;
    tb_Build_MiniBar_ToolBar: TToolBar;
    ToolButton29: TToolButton;
    ToolButton30: TToolButton;
    ToolButton31: TToolButton;
    ToolButton32: TToolButton;
    ToolButton34: TToolButton;
    ToolButton36: TToolButton;
    tb_Debug_ToolBar: TToolBar;
    ToolButton37: TToolButton;
    ToolButton38: TToolButton;
    ToolButton39: TToolButton;
    ToolButton40: TToolButton;
    ToolButton41: TToolButton;
    ToolButton42: TToolButton;
    ToolButton43: TToolButton;
    ToolButton44: TToolButton;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Edit1: TMenuItem;
    View1: TMenuItem;
    Insert1: TMenuItem;
    Project1: TMenuItem;
    Build1: TMenuItem;
    Tools1: TMenuItem;
    Window1: TMenuItem;
    Help1: TMenuItem;
    MainMenu_ToolBar: TToolBar;
    New1: TMenuItem;
    Open1: TMenuItem;
    Open2: TMenuItem;
    N1: TMenuItem;
    OpenWorkSpace1: TMenuItem;
    MainActionList: TActionList;
    File_New_Action: TAction;
    File_Open_Action: TAction;
    File_Close_Action: TAction;
    File_Open_WorkSpace_Action: TAction;
    File_Save_WorKSpace_Action: TAction;
    File_Close_WorKSpace_Action: TAction;
    File_Save_Action: TAction;
    File_SaveAs_Action: TAction;
    File_SaveAll_Action: TAction;
    File_Page_Setup_Action: TAction;
    File_Print_Action: TAction;
    File_Recent_Files_Action: TAction;
    File_Recent_WorkSpace_Action: TAction;
    File_Exit_Action: TAction;
    SaveWorkSpace1: TMenuItem;
    CloseWorkSpace1: TMenuItem;
    N2: TMenuItem;
    Save1: TMenuItem;
    SaveAs1: TMenuItem;
    SaveAll1: TMenuItem;
    N3: TMenuItem;
    PageSetup1: TMenuItem;
    Print1: TMenuItem;
    N4: TMenuItem;
    RecentFiles1: TMenuItem;
    RecentWorkSpace1: TMenuItem;
    N5: TMenuItem;
    Exit1: TMenuItem;
    Action_ImageList: TImageList;
    ToolButton45: TToolButton;
    ToolButton46: TToolButton;
    ToolButton47: TToolButton;
    ToolButton48: TToolButton;
    Watch_ToolButton: TToolButton;
    Variables_ToolButton: TToolButton;
    Registers_ToolButton: TToolButton;
    Memory_ToolButton: TToolButton;
    CallStack_ToolButton: TToolButton;
    ToolButton54: TToolButton;
    ToolButton55: TToolButton;
    Edit_Redo_Action: TAction;
    Edit_Find_Action: TAction;
    Edit_Find_In_File_Action: TAction;
    Edit_Replace_Action: TAction;
    Edit_Bookmarks_Action: TAction;
    Redo1: TMenuItem;
    Redo2: TMenuItem;
    N6: TMenuItem;
    Cut1: TMenuItem;
    Cut2: TMenuItem;
    Paste1: TMenuItem;
    Delete1: TMenuItem;
    N7: TMenuItem;
    SelectAll1: TMenuItem;
    N8: TMenuItem;
    Find1: TMenuItem;
    FindInFile1: TMenuItem;
    Replace1: TMenuItem;
    N9: TMenuItem;
    GoTo1: TMenuItem;
    View_Resource_Symbols_Action: TAction;
    View_Resource_Include_Action: TAction;
    View_Full_Screen_Action: TAction;
    View_Workspace_Action: TAction;
    View_OutPut_Action: TAction;
    View_Refresh_Action: TAction;
    View_Properties_Action: TAction;
    View_Debug_Windows_Action: TAction;
    ResourceSymbols1: TMenuItem;
    ResourceInclude1: TMenuItem;
    N10: TMenuItem;
    FullScreen1: TMenuItem;
    N11: TMenuItem;
    Workspace1: TMenuItem;
    OutPut1: TMenuItem;
    N12: TMenuItem;
    Refresh1: TMenuItem;
    N13: TMenuItem;
    Properties1: TMenuItem;
    Edit_Advanced_Action: TAction;
    Edit_Breakpoints_Action: TAction;
    Edit_List_Members_Action: TAction;
    Edit_Type_Info_Action: TAction;
    Edit_Parameter_Info_Action: TAction;
    Edit_Complete_Word_Action: TAction;
    Edit_Goto_Action: TAction;
    GoTo2: TMenuItem;
    N14: TMenuItem;
    Advanced1: TMenuItem;
    N15: TMenuItem;
    Breakpoints1: TMenuItem;
    N16: TMenuItem;
    ListMembers1: TMenuItem;
    ypeInfo1: TMenuItem;
    ParameterInfo1: TMenuItem;
    CompleteWord1: TMenuItem;
    Insert_New_Class_Action: TAction;
    Insert_New_Form_Action: TAction;
    Insert_Resource_Action: TAction;
    Insert_Resource_Copy_Action: TAction;
    Insert_File_As_Text_Action: TAction;
    Insert_New_ATL_Object_Action: TAction;
    Project_Set_Active_Project_Action: TAction;
    Project_Add_To_Project_Action: TAction;
    Project_Source_Control_Action: TAction;
    Project_DePendencies_Action: TAction;
    Project_Settings_Action: TAction;
    Project_Export_Makefile_Action: TAction;
    Project_Insert_Project_into_Workspace_Action: TAction;
    Build_Compile_Action: TAction;
    Build_Build_Action: TAction;
    Build_Rebuild_All_Action: TAction;
    Build_Batch_Build_Action: TAction;
    Build_Clean_Action: TAction;
    Build_Start_Debug_Action: TAction;
    Build_Debugger_Remote_Connection_Action: TAction;
    Build_Execute_Action: TAction;
    Build_Set_Active_Configuration_Action: TAction;
    Build_Configurations_Action: TAction;
    Build_Profile_Action: TAction;
    Tools_Source_Browser_Action: TAction;
    Tools_Close_Source_Browser_File_Action: TAction;
    Tools_Visual_Component_Manager_Action: TAction;
    Tools_Register_Control_Action: TAction;
    Tools_Error_Lookup_Action: TAction;
    Tools_ActiveX_Control_Test_Container_Action: TAction;
    Tools_OLE_COM_Object_Viewer_Action: TAction;
    Tools_Spy_Action: TAction;
    Tools_MFC_Tracer_Action: TAction;
    Tools_Customize_Action: TAction;
    Tools_Options_Action: TAction;
    Tools_Macro_Action: TAction;
    Tools_Record_Quick_Macro_Action: TAction;
    Tools_Play_Quick_Macro_Action: TAction;
    Window_New_Window_Action: TAction;
    Window_Spilt_Action: TAction;
    Window_Docking_View_Action: TAction;
    Window_Close_Action: TAction;
    Window_Close_All_Action: TAction;
    Window_Next_Action: TAction;
    Window_Previous_Action: TAction;
    Window_Cascade_Action: TAction;
    Window_Tile_Horizontally_Action: TAction;
    Window_Tile_Vertically_Action: TAction;
    Window_Windows_Action: TAction;
    Help_Contents_Action: TAction;
    Help_Search_Action: TAction;
    Help_Index_Action: TAction;
    Help_Use_Extension_Help_Action: TAction;
    Help_Keyboard_Map_Action: TAction;
    Help_Tip_of_the_Day_Action: TAction;
    Help_Technical_Support_Action: TAction;
    Help_Microsofr_on_the_Web_Action: TAction;
    Help_About_Visual_Cpp_Action: TAction;
    NewClass1: TMenuItem;
    NewForm1: TMenuItem;
    Resource1: TMenuItem;
    ResourceCopy1: TMenuItem;
    N17: TMenuItem;
    FileAsText1: TMenuItem;
    NewATLObject1: TMenuItem;
    SetActiveProject1: TMenuItem;
    AddToProject1: TMenuItem;
    N18: TMenuItem;
    SourceControl1: TMenuItem;
    N19: TMenuItem;
    DePendencies1: TMenuItem;
    Settings1: TMenuItem;
    DePendencies2: TMenuItem;
    N20: TMenuItem;
    InsertProjectintoWorkspace1: TMenuItem;
    Compile1: TMenuItem;
    Build2: TMenuItem;
    RebuildAll1: TMenuItem;
    BatchBuild1: TMenuItem;
    Clean1: TMenuItem;
    N21: TMenuItem;
    StartDebug1: TMenuItem;
    DebuggerRemoteConnection1: TMenuItem;
    N22: TMenuItem;
    Execute1: TMenuItem;
    N23: TMenuItem;
    SetActiveConfiguration1: TMenuItem;
    Configurations1: TMenuItem;
    Profile1: TMenuItem;
    SourceBrowser1: TMenuItem;
    CloseSourceBrowserFile1: TMenuItem;
    N24: TMenuItem;
    VisualComponentManager1: TMenuItem;
    ActiveXControlTestContainer1: TMenuItem;
    ErrorLookup1: TMenuItem;
    ActiveXControlTestContainer2: TMenuItem;
    OLECOMObjectViewer1: TMenuItem;
    SourceBrowser2: TMenuItem;
    MFCTracer1: TMenuItem;
    N25: TMenuItem;
    Customize1: TMenuItem;
    Options1: TMenuItem;
    Macro1: TMenuItem;
    RecordQuickMacro1: TMenuItem;
    PlayQuickMacro1: TMenuItem;
    N26: TMenuItem;
    NewWindow1: TMenuItem;
    Spilt1: TMenuItem;
    DockingView1: TMenuItem;
    Close1: TMenuItem;
    CloseAll1: TMenuItem;
    NewWindow2: TMenuItem;
    Previous1: TMenuItem;
    ileHorizontally1: TMenuItem;
    ileVertically1: TMenuItem;
    Windows1: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    Contents1: TMenuItem;
    Search1: TMenuItem;
    Index1: TMenuItem;
    UseExtensionHelp1: TMenuItem;
    KeyboardMap1: TMenuItem;
    echnicalSupport1: TMenuItem;
    echnicalSupport2: TMenuItem;
    MicrosofrontheWeb1: TMenuItem;
    AboutVisualC1: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    Debug1: TMenuItem;
    Debug_Go_Action: TAction;
    Debug_Restart_Action: TAction;