Changeset 30 for trunk/IDE/Forms


Ignore:
Timestamp:
Apr 25, 2011, 7:46:28 PM (13 years ago)
Author:
george
Message:
Location:
trunk/IDE/Forms
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • trunk/IDE/Forms/UCodeForm.lfm

    r23 r30  
    727727    end
    728728  end
    729   object CoolDockClient1: TCoolDockClient
     729  object CoolDockClient1: TCDClient
    730730    Floatable = False
    731731    Master = MainForm.CoolDockMaster1

  • trunk/IDE/Forms/UCodeForm.pas

    r24 r30  
    66
    77uses
    8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, UCoolDocking,
     8  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, UCDClient,
    99  SynEdit, SynHighlighterPas, UProject;
    1010
    … …  
    1414
    1515  TCodeForm = class(TForm)
    16     CoolDockClient1: TCoolDockClient;
     16    CoolDockClient1: TCDClient;
    1717    SynEditSource: TSynEdit;
    1818    SynPasSyn1: TSynPasSyn;

  • trunk/IDE/Forms/UCompiledForm.lfm

    r2 r30  
    727727    end
    728728  end
    729   object CoolDockClient1: TCoolDockClient
     729  object CoolDockClient1: TCDClient
    730730    Floatable = False
    731731    Master = MainForm.CoolDockMaster1

  • trunk/IDE/Forms/UCompiledForm.pas

    r12 r30  
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, SynEdit,
    99  SynHighlighterMulti, SynHighlighterVB, SynHighlighterPas, SynHighlighterCpp,
    10   SynHighlighterXML, UCoolDocking;
     10  SynHighlighterXML, UCDClient;
    1111
    1212type
    … …  
    1515
    1616  TCompiledForm = class(TForm)
    17     CoolDockClient1: TCoolDockClient;
     17    CoolDockClient1: TCDClient;
    1818    SynCppSyn1: TSynCppSyn;
    1919    SynEdit1: TSynEdit;

  • trunk/IDE/Forms/UMainForm.lfm

    r27 r30  
    11object MainForm: TMainForm
    2   Left = 146
     2  Left = 240
    33  Height = 501
    4   Top = 88
     4  Top = 119
    55  Width = 695
    66  Caption = 'Transpascal IDE'
    7   ClientHeight = 482
     7  ClientHeight = 478
    88  ClientWidth = 695
    99  Font.Height = -11
    … …  
    2020    Left = 0
    2121    Height = 5
    22     Top = 477
     22    Top = 473
    2323    Width = 695
    2424    Align = alBottom
    … …  
    2727  object DockPanel: TPanel
    2828    Left = 0
    29     Height = 451
     29    Height = 447
    3030    Top = 26
    3131    Width = 695
    … …  
    4343    object ComboBoxProducer: TComboBox
    4444      Left = 192
    45       Height = 21
     45      Height = 24
    4646      Top = 2
    4747      Width = 135
    4848      Align = alLeft
    49       ItemHeight = 13
     49      ItemHeight = 0
    5050      ItemIndex = 1
    5151      Items.Strings = (
    … …  
    7373      Height = 24
    7474      Top = 2
    75       Width = 105
     75      Width = 124
    7676      Align = alLeft
    7777      Caption = 'Log parsing to file'
    … …  
    8080    object ComboBoxAnalyzer: TComboBox
    8181      Left = 40
    82       Height = 21
     82      Height = 24
    8383      Top = 2
    8484      Width = 124
    8585      Align = alLeft
    86       ItemHeight = 13
     86      ItemHeight = 0
    8787      Style = csDropDownList
    8888      TabOrder = 3
    … …  
    185185    end
    186186  end
    187   object CoolDockMaster1: TCoolDockMaster
     187  object CoolDockMaster1: TCDMaster
     188    Customize = CDCustomize1
    188189    TabsEnabled = True
    189190    DefaultTabsPos = hpAuto
    … …  
    191192    DefaultMoveSpeed = 0
    192193    ShowIcons = False
    193     left = 428
    194     top = 56
    195   end
    196   object CoolDockClient1: TCoolDockClient
     194    left = 504
     195    top = 104
     196  end
     197  object CoolDockClient1: TCDClient
     198    Master = CoolDockMaster1
     199    Panel = DockPanel
    197200    Dockable = False
    198201    Floatable = False
    199     Master = CoolDockMaster1
    200     Panel = DockPanel
    201202    left = 504
    202203    top = 56
    … …  
    212213    top = 104
    213214  end
     215  object CDWindowList1: TCDWindowList
     216    left = 502
     217    top = 157
     218  end
     219  object CDLayoutList1: TCDLayoutList
     220    left = 502
     221    top = 205
     222  end
     223  object CDCustomize1: TCDCustomize
     224    Master = CoolDockMaster1
     225    LayoutList = CDLayoutList1
     226    left = 499
     227    top = 260
     228  end
     229  object ImageList1: TImageList
     230    left = 624
     231    top = 112
     232  end
    214233end

  • trunk/IDE/Forms/UMainForm.pas

    r27 r30  
    66
    77uses
    8   SysUtils, Variants, Classes, Graphics, Controls, Forms,
    9   Dialogs, StdCtrls, UCompiler, Registry,
    10   ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas,
    11   UProject, FileUtil, Menus, ActnList, UCoolDocking,
    12   UCompiledForm, UCodeTreeForm, URegistry, ULastOpenedList, UApplicationInfo,
    13   UDebugLog, UAnalyzer, UProducer;
     8  SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
     9  UCompiler, Registry, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas,
     10  UCDManager, UProject, FileUtil, Menus, ActnList, UCDClient, UCDMaster,
     11  UCDConjoinForm, UCDWindowList, UCDLayout, UCDCustomize, UCompiledForm,
     12  UCodeTreeForm, URegistry, ULastOpenedList, UApplicationInfo, UDebugLog,
     13  UAnalyzer, UProducer;
    1414
    1515const
    … …  
    2929    ActionList1: TActionList;
    3030    Button1: TButton;
     31    CDCustomize1: TCDCustomize;
     32    CDLayoutList1: TCDLayoutList;
     33    CDWindowList1: TCDWindowList;
    3134    CheckBoxLogParsing: TCheckBox;
    3235    ComboBoxAnalyzer: TComboBox;
    3336    ComboBoxProducer: TComboBox;
    34     CoolDockClient1: TCoolDockClient;
    35     CoolDockMaster1: TCoolDockMaster;
     37    CoolDockClient1: TCDClient;
     38    CoolDockMaster1: TCDMaster;
     39    ImageList1: TImageList;
    3640    Label1: TLabel;
    3741    Label2: TLabel;
    … …  
    8185  MainForm: TMainForm;
    8286
     87
    8388implementation
    8489
    … …  
    136141procedure TMainForm.DockInit;
    137142var
    138   Container1: TCoolDockConjoinForm;
    139   Container2: TCoolDockConjoinForm;
     143  Container1: TCDConjoinForm;
     144  Container2: TCDConjoinForm;
    140145begin
    141146  ProjectManager.ManualDock(DockPanel, nil, alLeft);
    142147  ProjectManager.Show;
    143148
    144   Container1 := TCoolDockManager(DockPanel.DockManager).CreateContainer(alRight);
     149  Container1 := TCDManager(DockPanel.DockManager).CreateConjoinForm;
    145150  Container1.Caption := 'Tools';
    146151  Container1.Name := 'Tools';
    147152  Container1.ManualDock(DockPanel, nil, alRight);
    148 
    149   CodeTreeForm.ManualDock(DockPanel, nil, alLeft);
     153  Container1.Show;
     154  Container1.Parent.Parent.Width := MainForm.Width;
     155
     156  CodeTreeForm.ManualDock(DockPanel, nil, alRight);
    150157  CodeTreeForm.Show;
    151   Container1.Parent.Parent.Width := MainForm.Width;
    152 
    153   Container2 := TCoolDockManager(DockPanel.DockManager).CreateContainer(alRight);
     158
     159  Container2 := TCDManager(DockPanel.DockManager).CreateConjoinForm;
    154160  Container2.Caption := 'Panel';
    155161  Container2.Name := 'Tools2';
    156   Container2.ManualDock(Container1.Panel, nil, alRight);
    157 
    158   MessagesForm.ManualDock(Container1.Panel, nil, alBottom);
     162  Container2.ManualDock(Container1, nil, alRight);
     163  Container2.Show;
     164
     165  MessagesForm.ManualDock(Container1, nil, alBottom);
    159166  MessagesForm.Show;
    160167
    161   CodeForm.ManualDock(Container2.Panel, nil, alTop);
     168  CodeForm.ManualDock(Container2, nil, alTop);
    162169  CodeForm.Show;
    163170
    164   CompiledForm.ManualDock(Container2.Panel, nil, alTop);
    165   CompiledForm.Show;
     171
     172  //CompiledForm.ManualDock(Container2.Panel, nil, alTop);
     173  //CompiledForm.Show;
    166174
    167175  //TCoolDockManager(Container2.Panel.DockManager).DockStyle := dsTabs;
    168176
    169   ProjectManager.Parent.Parent.Width := 200;
     177  Container1.Parent.Parent.Width := MainForm.Width - ProjectManager.Width - 200;
    170178  Container2.Parent.Parent.Height := MainForm.Height;
    171179end;

  • trunk/IDE/Forms/UMessagesForm.lfm

    r24 r30  
    3535    OnSelectItem = ListView1SelectItem
    3636  end
    37   object CoolDockClient1: TCoolDockClient
     37  object CoolDockClient1: TCDClient
    3838    Floatable = False
    3939    Master = MainForm.CoolDockMaster1

  • trunk/IDE/Forms/UMessagesForm.pas

    r24 r30  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   ComCtrls, UCoolDocking, UProject, UCompiler;
     9  ComCtrls, UCDClient, UProject, UCompiler;
    1010
    1111type
    … …  
    1414
    1515  TMessagesForm = class(TForm)
    16     CoolDockClient1: TCoolDockClient;
     16    CoolDockClient1: TCDClient;
    1717    ListView1: TListView;
    1818    procedure ListBoxMessagesSelectionChange(Sender: TObject; User: boolean);
Note: See TracChangeset for help on using the changeset viewer.