Changeset 30 for trunk/IDE/Forms
- Timestamp:
- Apr 25, 2011, 7:46:28 PM (14 years ago)
- Location:
- trunk/IDE/Forms
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/IDE/Forms/UCodeForm.lfm
r23 r30 727 727 end 728 728 end 729 object CoolDockClient1: TC oolDockClient729 object CoolDockClient1: TCDClient 730 730 Floatable = False 731 731 Master = MainForm.CoolDockMaster1 -
trunk/IDE/Forms/UCodeForm.pas
r24 r30 6 6 7 7 uses 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, UC oolDocking,8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, UCDClient, 9 9 SynEdit, SynHighlighterPas, UProject; 10 10 … … 14 14 15 15 TCodeForm = class(TForm) 16 CoolDockClient1: TC oolDockClient;16 CoolDockClient1: TCDClient; 17 17 SynEditSource: TSynEdit; 18 18 SynPasSyn1: TSynPasSyn; -
trunk/IDE/Forms/UCompiledForm.lfm
r2 r30 727 727 end 728 728 end 729 object CoolDockClient1: TC oolDockClient729 object CoolDockClient1: TCDClient 730 730 Floatable = False 731 731 Master = MainForm.CoolDockMaster1 -
trunk/IDE/Forms/UCompiledForm.pas
r12 r30 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, SynEdit, 9 9 SynHighlighterMulti, SynHighlighterVB, SynHighlighterPas, SynHighlighterCpp, 10 SynHighlighterXML, UC oolDocking;10 SynHighlighterXML, UCDClient; 11 11 12 12 type … … 15 15 16 16 TCompiledForm = class(TForm) 17 CoolDockClient1: TC oolDockClient;17 CoolDockClient1: TCDClient; 18 18 SynCppSyn1: TSynCppSyn; 19 19 SynEdit1: TSynEdit; -
trunk/IDE/Forms/UMainForm.lfm
r27 r30 1 1 object MainForm: TMainForm 2 Left = 1462 Left = 240 3 3 Height = 501 4 Top = 884 Top = 119 5 5 Width = 695 6 6 Caption = 'Transpascal IDE' 7 ClientHeight = 4 827 ClientHeight = 478 8 8 ClientWidth = 695 9 9 Font.Height = -11 … … 20 20 Left = 0 21 21 Height = 5 22 Top = 47 722 Top = 473 23 23 Width = 695 24 24 Align = alBottom … … 27 27 object DockPanel: TPanel 28 28 Left = 0 29 Height = 4 5129 Height = 447 30 30 Top = 26 31 31 Width = 695 … … 43 43 object ComboBoxProducer: TComboBox 44 44 Left = 192 45 Height = 2 145 Height = 24 46 46 Top = 2 47 47 Width = 135 48 48 Align = alLeft 49 ItemHeight = 1349 ItemHeight = 0 50 50 ItemIndex = 1 51 51 Items.Strings = ( … … 73 73 Height = 24 74 74 Top = 2 75 Width = 1 0575 Width = 124 76 76 Align = alLeft 77 77 Caption = 'Log parsing to file' … … 80 80 object ComboBoxAnalyzer: TComboBox 81 81 Left = 40 82 Height = 2 182 Height = 24 83 83 Top = 2 84 84 Width = 124 85 85 Align = alLeft 86 ItemHeight = 1386 ItemHeight = 0 87 87 Style = csDropDownList 88 88 TabOrder = 3 … … 185 185 end 186 186 end 187 object CoolDockMaster1: TCoolDockMaster 187 object CoolDockMaster1: TCDMaster 188 Customize = CDCustomize1 188 189 TabsEnabled = True 189 190 DefaultTabsPos = hpAuto … … 191 192 DefaultMoveSpeed = 0 192 193 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 197 200 Dockable = False 198 201 Floatable = False 199 Master = CoolDockMaster1200 Panel = DockPanel201 202 left = 504 202 203 top = 56 … … 212 213 top = 104 213 214 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 214 233 end -
trunk/IDE/Forms/UMainForm.pas
r27 r30 6 6 7 7 uses 8 SysUtils, Variants, Classes, Graphics, Controls, Forms, 9 Dialogs, StdCtrls, UCompiler, Registry,10 ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas,11 U Project, FileUtil, Menus, ActnList, UCoolDocking,12 UCo mpiledForm, UCodeTreeForm, URegistry, ULastOpenedList, UApplicationInfo,13 U DebugLog, 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; 14 14 15 15 const … … 29 29 ActionList1: TActionList; 30 30 Button1: TButton; 31 CDCustomize1: TCDCustomize; 32 CDLayoutList1: TCDLayoutList; 33 CDWindowList1: TCDWindowList; 31 34 CheckBoxLogParsing: TCheckBox; 32 35 ComboBoxAnalyzer: TComboBox; 33 36 ComboBoxProducer: TComboBox; 34 CoolDockClient1: TCoolDockClient; 35 CoolDockMaster1: TCoolDockMaster; 37 CoolDockClient1: TCDClient; 38 CoolDockMaster1: TCDMaster; 39 ImageList1: TImageList; 36 40 Label1: TLabel; 37 41 Label2: TLabel; … … 81 85 MainForm: TMainForm; 82 86 87 83 88 implementation 84 89 … … 136 141 procedure TMainForm.DockInit; 137 142 var 138 Container1: TC oolDockConjoinForm;139 Container2: TC oolDockConjoinForm;143 Container1: TCDConjoinForm; 144 Container2: TCDConjoinForm; 140 145 begin 141 146 ProjectManager.ManualDock(DockPanel, nil, alLeft); 142 147 ProjectManager.Show; 143 148 144 Container1 := TC oolDockManager(DockPanel.DockManager).CreateContainer(alRight);149 Container1 := TCDManager(DockPanel.DockManager).CreateConjoinForm; 145 150 Container1.Caption := 'Tools'; 146 151 Container1.Name := 'Tools'; 147 152 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); 150 157 CodeTreeForm.Show; 151 Container1.Parent.Parent.Width := MainForm.Width; 152 153 Container2 := TCoolDockManager(DockPanel.DockManager).CreateContainer(alRight); 158 159 Container2 := TCDManager(DockPanel.DockManager).CreateConjoinForm; 154 160 Container2.Caption := 'Panel'; 155 161 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); 159 166 MessagesForm.Show; 160 167 161 CodeForm.ManualDock(Container2 .Panel, nil, alTop);168 CodeForm.ManualDock(Container2, nil, alTop); 162 169 CodeForm.Show; 163 170 164 CompiledForm.ManualDock(Container2.Panel, nil, alTop); 165 CompiledForm.Show; 171 172 //CompiledForm.ManualDock(Container2.Panel, nil, alTop); 173 //CompiledForm.Show; 166 174 167 175 //TCoolDockManager(Container2.Panel.DockManager).DockStyle := dsTabs; 168 176 169 ProjectManager.Parent.Parent.Width :=200;177 Container1.Parent.Parent.Width := MainForm.Width - ProjectManager.Width - 200; 170 178 Container2.Parent.Parent.Height := MainForm.Height; 171 179 end; -
trunk/IDE/Forms/UMessagesForm.lfm
r24 r30 35 35 OnSelectItem = ListView1SelectItem 36 36 end 37 object CoolDockClient1: TC oolDockClient37 object CoolDockClient1: TCDClient 38 38 Floatable = False 39 39 Master = MainForm.CoolDockMaster1 -
trunk/IDE/Forms/UMessagesForm.pas
r24 r30 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 ComCtrls, UC oolDocking, UProject, UCompiler;9 ComCtrls, UCDClient, UProject, UCompiler; 10 10 11 11 type … … 14 14 15 15 TMessagesForm = class(TForm) 16 CoolDockClient1: TC oolDockClient;16 CoolDockClient1: TCDClient; 17 17 ListView1: TListView; 18 18 procedure ListBoxMessagesSelectionChange(Sender: TObject; User: boolean);
Note:
See TracChangeset
for help on using the changeset viewer.