Ignore:
Timestamp:
Mar 8, 2011, 10:34:54 AM (14 years ago)
Author:
george
Message:
  • Added: Unit UCoolDockLayout for dock layouts management.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/Demo/IDE/UMainForm.pas

    r177 r178  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
    9   ActnList, UCoolDocking, UToolPaletteForm, UObjectInspectorForm,
    10   UProjectManagerForm, UStructureForm;
     9  ActnList, ExtCtrls, ComCtrls, StdCtrls, UCoolDocking, UCoolDockLayout,
     10  UToolPaletteForm, UObjectInspectorForm, UProjectManagerForm, UStructureForm,
     11  UMessagesForm, UCallStackForm, ULocalVariablesForm, UToDoListForm,
     12  UWatchListForm, UThreadStatusForm, USourceEditorForm;
    1113
    1214type
    … …  
    1618  TMainForm = class(TForm)
    1719  published
     20    ANewFile: TAction;
     21    ACustomizeDocking: TAction;
     22    ADesktopSave: TAction;
     23    AViewThreadStatus: TAction;
     24    AViewWatchList: TAction;
     25    AViewToDoList: TAction;
     26    AViewLocalVariables: TAction;
     27    AViewCallStack: TAction;
     28    AViewMessages: TAction;
    1829    AViewStructure: TAction;
    1930    AViewToolPalette: TAction;
    … …  
    2132    AViewObjectInspector: TAction;
    2233    AViewWindowList: TAction;
     34    ComboBox1: TComboBox;
     35    CoolDockClient1: TCoolDockClient;
     36    CoolDockCustomize1: TCoolDockCustomize;
     37    CoolDockLayoutList1: TCoolDockLayoutList;
    2338    CoolDockMaster1: TCoolDockMaster;
    2439    CoolDockWindowList1: TCoolDockWindowList;
     40    ImageList1: TImageList;
    2541    MenuItem11: TMenuItem;
    2642    MenuItem10: TMenuItem;
    … …  
    2844    MenuItem13: TMenuItem;
    2945    MenuItem14: TMenuItem;
     46    MenuItem15: TMenuItem;
     47    MenuItem16: TMenuItem;
     48    MenuItem17: TMenuItem;
     49    MenuItem18: TMenuItem;
     50    MenuItem19: TMenuItem;
     51    MenuItem20: TMenuItem;
     52    MenuItem21: TMenuItem;
     53    MenuItem22: TMenuItem;
     54    MenuItem23: TMenuItem;
    3055    MenuItem9: TMenuItem;
    3156    MenuItem8: TMenuItem;
    … …  
    3964    MenuItem1: TMenuItem;
    4065    MainMenu1: TMainMenu;
     66    Panel1: TPanel;
     67    ToolBar1: TToolBar;
     68    ToolButton1: TToolButton;
     69    procedure ACustomizeDockingExecute(Sender: TObject);
     70    procedure ADesktopSaveExecute(Sender: TObject);
     71    procedure ANewFileExecute(Sender: TObject);
     72    procedure AViewThreadStatusExecute(Sender: TObject);
     73    procedure AViewCallStackExecute(Sender: TObject);
     74    procedure AViewLocalVariablesExecute(Sender: TObject);
     75    procedure AViewMessagesExecute(Sender: TObject);
    4176    procedure AViewObjectInspectorExecute(Sender: TObject);
    4277    procedure AViewProjectManagerExecute(Sender: TObject);
    4378    procedure AViewStructureExecute(Sender: TObject);
     79    procedure AViewToDoListExecute(Sender: TObject);
    4480    procedure AViewToolPaletteExecute(Sender: TObject);
     81    procedure AViewWatchListExecute(Sender: TObject);
    4582    procedure AViewWindowListExecute(Sender: TObject);
    46     { private declarations }
    4783  public
    4884    { public declarations }
    … …  
    6399end;
    64100
     101procedure TMainForm.AViewWatchListExecute(Sender: TObject);
     102begin
     103  WatchListForm.Show;
     104end;
     105
    65106procedure TMainForm.AViewWindowListExecute(Sender: TObject);
    66107begin
    … …  
    78119end;
    79120
     121procedure TMainForm.AViewToDoListExecute(Sender: TObject);
     122begin
     123  ToDoListForm.Show;
     124end;
     125
    80126procedure TMainForm.AViewObjectInspectorExecute(Sender: TObject);
    81127begin
    … …  
    83129end;
    84130
     131procedure TMainForm.AViewCallStackExecute(Sender: TObject);
     132begin
     133  CallStackForm.Show;
     134end;
     135
     136procedure TMainForm.AViewThreadStatusExecute(Sender: TObject);
     137begin
     138  ThreadStatusForm.Show;
     139end;
     140
     141procedure TMainForm.ADesktopSaveExecute(Sender: TObject);
     142begin
     143
     144end;
     145
     146procedure TMainForm.ANewFileExecute(Sender: TObject);
     147begin
     148  SourceEditorForm.Show;
     149end;
     150
     151procedure TMainForm.ACustomizeDockingExecute(Sender: TObject);
     152begin
     153  CoolDockCustomize1.Execute;
     154end;
     155
     156procedure TMainForm.AViewLocalVariablesExecute(Sender: TObject);
     157begin
     158  LocalVariablesForm.Show;
     159end;
     160
     161procedure TMainForm.AViewMessagesExecute(Sender: TObject);
     162begin
     163  MessagesForm.Show;
     164end;
     165
    85166end.
    86167
Note: See TracChangeset for help on using the changeset viewer.