Ignore:
Timestamp:
Feb 13, 2012, 1:47:33 PM (12 years ago)
Author:
chronos
Message:
  • Added: Package Common replace units LastOpenedList and Registry.
  • Modified: Instead of unfinished advanced docking manager use static dockign to panels and PageControl sheets.
Location:
trunk/IDE
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/IDE

    • Property svn:ignore

      •  

        old new  
        11lib
        22backup
         3Transpascal.dbg
         4Transpascal.lps
         5Transpascal.exe

  • trunk/IDE/Forms/UMainForm.pas

    r30 r34  
    2222  TMainForm = class(TForm)
    2323    ABuild: TAction;
     24    AViewMessages: TAction;
     25    AViewSourceEditor: TAction;
     26    AViewObjectInspector: TAction;
     27    AViewProject: TAction;
     28    AHomepage: TAction;
     29    ARun: TAction;
     30    AAbout: TAction;
     31    AExit: TAction;
    2432    AProjectNew: TAction;
    2533    AProjectOpen: TAction;
    … …  
    2937    ActionList1: TActionList;
    3038    Button1: TButton;
    31     CDCustomize1: TCDCustomize;
    32     CDLayoutList1: TCDLayoutList;
    33     CDWindowList1: TCDWindowList;
    3439    CheckBoxLogParsing: TCheckBox;
    3540    ComboBoxAnalyzer: TComboBox;
    3641    ComboBoxProducer: TComboBox;
    37     CoolDockClient1: TCDClient;
    38     CoolDockMaster1: TCDMaster;
     42    DebugLog1: TDebugLog;
    3943    ImageList1: TImageList;
    4044    Label1: TLabel;
    … …  
    4246    MainMenu1: TMainMenu;
    4347    MenuItem1: TMenuItem;
     48    MenuItem10: TMenuItem;
     49    MenuItem11: TMenuItem;
     50    MenuItem12: TMenuItem;
     51    MenuItem13: TMenuItem;
     52    MenuItem14: TMenuItem;
     53    MenuItem15: TMenuItem;
     54    MenuItem16: TMenuItem;
     55    MenuItem17: TMenuItem;
     56    MenuItem18: TMenuItem;
    4457    MenuItem2: TMenuItem;
    4558    MenuItem3: TMenuItem;
    … …  
    5063    MenuItem8: TMenuItem;
    5164    DockPanel: TPanel;
     65    MenuItem9: TMenuItem;
    5266    MenuItemOpenRecent: TMenuItem;
    5367    OpenDialog1: TOpenDialog;
     68    PageControl1: TPageControl;
     69    PageControl2: TPageControl;
    5470    SaveDialog1: TSaveDialog;
     71    Splitter1: TSplitter;
    5572    Splitter3: TSplitter;
     73    TabSheet1: TTabSheet;
     74    TabSheet2: TTabSheet;
     75    TabSheet3: TTabSheet;
     76    TabSheet4: TTabSheet;
    5677    ToolBar1: TToolBar;
     78    procedure AAboutExecute(Sender: TObject);
     79    procedure AExitExecute(Sender: TObject);
     80    procedure AHomepageExecute(Sender: TObject);
    5781    procedure AProjectCloseExecute(Sender: TObject);
    5882    procedure AProjectNewExecute(Sender: TObject);
    … …  
    6084    procedure AProjectSaveAsExecute(Sender: TObject);
    6185    procedure AProjectSaveExecute(Sender: TObject);
     86    procedure ABuildExecute(Sender: TObject);
    6287    procedure ComboBox1Change(Sender: TObject);
    6388    procedure ComboBoxProducerChange(Sender: TObject);
    6489    procedure FormShow(Sender: TObject);
    6590    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    66     procedure ABuildExecute(Sender: TObject);
    6791    procedure FormCreate(Sender: TObject);
    6892    procedure FormDestroy(Sender: TObject);
    … …  
    91115
    92116uses
    93   UMessagesForm, UCodeForm, UProjectManager;
     117  UMessagesForm, UCodeForm, UProjectManager, UCommon, UAboutForm;
     118
     119resourcestring
     120  SNewProject = 'New project';
    94121
    95122{ TMainForm }
    … …  
    144171  Container2: TCDConjoinForm;
    145172begin
    146   ProjectManager.ManualDock(DockPanel, nil, alLeft);
     173  CodeForm.ManualDock(DockPanel, nil, alClient);
     174  CodeForm.Align := alClient;
     175  CodeForm.Show;
     176  MessagesForm.ManualDock(TabSheet3, nil, alClient);
     177  MessagesForm.Align := alClient;
     178  MessagesForm.Show;
     179  ProjectManager.ManualDock(TabSheet1, nil, alClient);
     180  ProjectManager.Align := alClient;
     181  ProjectManager.Show;
     182  CodeTreeForm.ManualDock(TabSheet2, nil, alClient);
     183  CodeTreeForm.Align := alClient;
     184  CodeTreeForm.Show;
     185  CompiledForm.ManualDock(TabSheet4, nil, alClient);
     186  CompiledForm.Align := alClient;
     187  CompiledForm.Show;
     188
     189  (*ProjectManager.ManualDock(DockPanel, nil, alLeft);
    147190  ProjectManager.Show;
    148191
    … …  
    176219
    177220  Container1.Parent.Parent.Width := MainForm.Width - ProjectManager.Width - 200;
    178   Container2.Parent.Parent.Height := MainForm.Height;
     221  Container2.Parent.Parent.Height := MainForm.Height;*)
    179222end;
    180223
    … …  
    235278  I: Integer;
    236279begin
    237   DebugLog.FileName := 'DebugLog.txt';
    238   DeleteFile(DebugLog.FileName);
     280  DeleteFile(DebugLog1.FileName);
    239281  Compiler := TCompiler.Create;
    240282  Project := TProject.Create;
    … …  
    261303procedure TMainForm.CompilerDebugLog(Text: string);
    262304begin
    263   DebugLog.Add('', Text);
     305  DebugLog1.Add('', Text);
    264306end;
    265307
    … …  
    301343end;
    302344
     345procedure TMainForm.AExitExecute(Sender: TObject);
     346begin
     347  Close;
     348end;
     349
     350procedure TMainForm.AAboutExecute(Sender: TObject);
     351begin
     352  AboutForm.ShowModal;
     353end;
     354
     355procedure TMainForm.AHomepageExecute(Sender: TObject);
     356begin
     357  OpenWebPage(ApplicationInfo.HomePage);
     358end;
     359
    303360procedure TMainForm.AProjectNewExecute(Sender: TObject);
    304361begin
    305362  Project.Clear;
    306   Project.Name := 'New project';
     363  Project.Name := SNewProject;
    307364  ProjectManager.UpdateProjectTree;
    308365  Caption := ApplicationInfo.Name + ' - ' + Project.Name;
Note: See TracChangeset for help on using the changeset viewer.