Changeset 96


Ignore:
Timestamp:
Dec 8, 2010, 10:40:38 AM (14 years ago)
Author:
george
Message:
  • Added: Windows showing application component tree with names and types.
Location:
Docking/CoolDocking
Files:
2 added
8 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/CoolDocking.lpk

    r89 r96  
    2424    </CompilerOptions>
    2525    <Description Value="Set of components for docking of windows."/>
    26     <Version Major="1"/>
     26    <Version Minor="1"/>
    2727    <Files Count="8">
    2828      <Item1>
    … …  
    7575    </RequiredPkgs>
    7676    <UsageOptions>
    77       <UnitPath Value="$(PkgOutDir)\"/>
     77      <UnitPath Value="$(PkgOutDir)"/>
    7878    </UsageOptions>
    7979    <PublishOptions>

  • Docking/CoolDocking/Demo/Demo.lpi

    r63 r96  
    1717      <StringTable ProductVersion=""/>
    1818    </VersionInfo>
     19    <BuildModes Count="1">
     20      <Item1 Name="default" Default="True"/>
     21    </BuildModes>
    1922    <PublishOptions>
    2023      <Version Value="2"/>
    … …  
    3538      </Item2>
    3639    </RequiredPackages>
    37     <Units Count="54">
     40    <Units Count="57">
    3841      <Unit0>
    3942        <Filename Value="Demo.lpr"/>
    … …  
    4346        <TopLine Value="1"/>
    4447        <CursorPos X="6" Y="10"/>
    45         <UsageCount Value="126"/>
     48        <UsageCount Value="128"/>
    4649        <DefaultSyntaxHighlighter Value="Delphi"/>
    4750      </Unit0>
    … …  
    5255        <ResourceBaseClass Value="Form"/>
    5356        <UnitName Value="UMainForm"/>
    54         <WindowIndex Value="0"/>
    55         <TopLine Value="58"/>
    56         <CursorPos X="3" Y="72"/>
    57         <UsageCount Value="126"/>
     57        <EditorIndex Value="10"/>
     58        <WindowIndex Value="0"/>
     59        <TopLine Value="65"/>
     60        <CursorPos X="47" Y="78"/>
     61        <UsageCount Value="128"/>
     62        <Loaded Value="True"/>
     63        <LoadedDesigner Value="True"/>
    5864        <DefaultSyntaxHighlighter Value="Delphi"/>
    5965      </Unit1>
    … …  
    6167        <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
    6268        <UnitName Value="Controls"/>
    63         <WindowIndex Value="0"/>
    64         <TopLine Value="1296"/>
    65         <CursorPos X="15" Y="1309"/>
    66         <UsageCount Value="62"/>
     69        <EditorIndex Value="5"/>
     70        <WindowIndex Value="0"/>
     71        <TopLine Value="1916"/>
     72        <CursorPos X="14" Y="1929"/>
     73        <UsageCount Value="63"/>
     74        <Loaded Value="True"/>
    6775      </Unit2>
    6876      <Unit3>
    … …  
    7785      <Unit4>
    7886        <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    79         <WindowIndex Value="0"/>
    80         <TopLine Value="71"/>
    81         <CursorPos X="1" Y="83"/>
    82         <UsageCount Value="55"/>
     87        <EditorIndex Value="7"/>
     88        <WindowIndex Value="0"/>
     89        <TopLine Value="4767"/>
     90        <CursorPos X="1" Y="4794"/>
     91        <UsageCount Value="56"/>
     92        <Loaded Value="True"/>
    8393      </Unit4>
    8494      <Unit5>
    8595        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    86         <WindowIndex Value="0"/>
    87         <TopLine Value="5229"/>
    88         <CursorPos X="33" Y="5245"/>
     96        <EditorIndex Value="14"/>
     97        <WindowIndex Value="0"/>
     98        <TopLine Value="3429"/>
     99        <CursorPos X="1" Y="3442"/>
    89100        <UsageCount Value="61"/>
     101        <Loaded Value="True"/>
    90102      </Unit5>
    91103      <Unit6>
    … …  
    122134        <Filename Value="E:\Programy\Lazarus\lcl\lclproc.pas"/>
    123135        <UnitName Value="LCLProc"/>
    124         <WindowIndex Value="0"/>
    125         <TopLine Value="1495"/>
    126         <CursorPos X="1" Y="1516"/>
     136        <EditorIndex Value="12"/>
     137        <WindowIndex Value="0"/>
     138        <TopLine Value="2412"/>
     139        <CursorPos X="38" Y="2417"/>
    127140        <UsageCount Value="26"/>
     141        <Loaded Value="True"/>
    128142      </Unit10>
    129143      <Unit11>
    … …  
    166180        <TopLine Value="7"/>
    167181        <CursorPos X="33" Y="21"/>
    168         <UsageCount Value="125"/>
     182        <UsageCount Value="127"/>
    169183        <DefaultSyntaxHighlighter Value="Delphi"/>
    170184      </Unit15>
    … …  
    214228        <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
    215229        <UnitName Value="ExtCtrls"/>
    216         <WindowIndex Value="0"/>
    217         <TopLine Value="1250"/>
    218         <CursorPos X="19" Y="1263"/>
     230        <EditorIndex Value="4"/>
     231        <WindowIndex Value="0"/>
     232        <TopLine Value="263"/>
     233        <CursorPos X="3" Y="273"/>
    219234        <UsageCount Value="28"/>
     235        <Loaded Value="True"/>
    220236      </Unit21>
    221237      <Unit22>
    222238        <Filename Value="E:\Programy\Lazarus\lcl\interfaces\win32\win32wsbuttons.pp"/>
    223239        <UnitName Value="Win32WSButtons"/>
    224         <WindowIndex Value="0"/>
    225         <TopLine Value="479"/>
    226         <CursorPos X="30" Y="488"/>
    227         <UsageCount Value="1"/>
     240        <EditorIndex Value="15"/>
     241        <WindowIndex Value="0"/>
     242        <TopLine Value="480"/>
     243        <CursorPos X="37" Y="496"/>
     244        <UsageCount Value="10"/>
     245        <Loaded Value="True"/>
    228246      </Unit22>
    229247      <Unit23>
    … …  
    236254      <Unit24>
    237255        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    238         <WindowIndex Value="0"/>
    239         <TopLine Value="1452"/>
    240         <CursorPos X="5" Y="1467"/>
     256        <EditorIndex Value="11"/>
     257        <WindowIndex Value="0"/>
     258        <TopLine Value="2573"/>
     259        <CursorPos X="36" Y="2586"/>
    241260        <UsageCount Value="11"/>
     261        <Loaded Value="True"/>
    242262      </Unit24>
    243263      <Unit25>
    … …  
    252272        <Filename Value="E:\Programy\Lazarus\lcl\comctrls.pp"/>
    253273        <UnitName Value="ComCtrls"/>
    254         <WindowIndex Value="0"/>
    255         <TopLine Value="398"/>
    256         <CursorPos X="59" Y="408"/>
    257         <UsageCount Value="12"/>
     274        <EditorIndex Value="2"/>
     275        <WindowIndex Value="0"/>
     276        <TopLine Value="553"/>
     277        <CursorPos X="29" Y="560"/>
     278        <UsageCount Value="12"/>
     279        <Loaded Value="True"/>
    258280      </Unit26>
    259281      <Unit27>
    260282        <Filename Value="E:\Programy\Lazarus\lcl\forms.pp"/>
    261283        <UnitName Value="Forms"/>
    262         <WindowIndex Value="0"/>
    263         <TopLine Value="529"/>
    264         <CursorPos X="21" Y="541"/>
     284        <EditorIndex Value="13"/>
     285        <WindowIndex Value="0"/>
     286        <TopLine Value="492"/>
     287        <CursorPos X="14" Y="505"/>
    265288        <UsageCount Value="35"/>
     289        <Loaded Value="True"/>
    266290      </Unit27>
    267291      <Unit28>
    … …  
    272296        <TopLine Value="2148"/>
    273297        <CursorPos X="21" Y="2148"/>
    274         <UsageCount Value="30"/>
     298        <UsageCount Value="31"/>
    275299        <Loaded Value="True"/>
    276300      </Unit28>
    … …  
    314338        <EditorIndex Value="1"/>
    315339        <WindowIndex Value="0"/>
    316         <TopLine Value="1044"/>
    317         <CursorPos X="49" Y="1054"/>
    318         <UsageCount Value="53"/>
     340        <TopLine Value="819"/>
     341        <CursorPos X="78" Y="826"/>
     342        <UsageCount Value="54"/>
    319343        <Loaded Value="True"/>
    320344        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    389413        <TopLine Value="1"/>
    390414        <CursorPos X="53" Y="2"/>
    391         <UsageCount Value="68"/>
     415        <UsageCount Value="70"/>
    392416        <DefaultSyntaxHighlighter Value="Delphi"/>
    393417      </Unit41>
    … …  
    416440      <Unit45>
    417441        <Filename Value="E:\Programy\Lazarus\lcl\include\tabcontrol.inc"/>
    418         <WindowIndex Value="0"/>
    419         <TopLine Value="182"/>
    420         <CursorPos X="3" Y="184"/>
    421         <UsageCount Value="12"/>
     442        <EditorIndex Value="3"/>
     443        <WindowIndex Value="0"/>
     444        <TopLine Value="233"/>
     445        <CursorPos X="45" Y="239"/>
     446        <UsageCount Value="12"/>
     447        <Loaded Value="True"/>
    422448      </Unit45>
    423449      <Unit46>
    … …  
    477503        <UsageCount Value="11"/>
    478504      </Unit53>
     505      <Unit54>
     506        <Filename Value="UComponentTree.pas"/>
     507        <IsPartOfProject Value="True"/>
     508        <ComponentName Value="ComponentTree"/>
     509        <ResourceBaseClass Value="Form"/>
     510        <UnitName Value="UComponentTree"/>
     511        <EditorIndex Value="8"/>
     512        <WindowIndex Value="0"/>
     513        <TopLine Value="37"/>
     514        <CursorPos X="33" Y="52"/>
     515        <UsageCount Value="22"/>
     516        <Loaded Value="True"/>
     517        <LoadedDesigner Value="True"/>
     518        <DefaultSyntaxHighlighter Value="Delphi"/>
     519      </Unit54>
     520      <Unit55>
     521        <Filename Value="E:\Programy\Lazarus\lcl\include\treeview.inc"/>
     522        <EditorIndex Value="9"/>
     523        <WindowIndex Value="0"/>
     524        <TopLine Value="311"/>
     525        <CursorPos X="3" Y="332"/>
     526        <UsageCount Value="11"/>
     527        <Loaded Value="True"/>
     528      </Unit55>
     529      <Unit56>
     530        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\classes\classesh.inc"/>
     531        <EditorIndex Value="6"/>
     532        <WindowIndex Value="0"/>
     533        <TopLine Value="1659"/>
     534        <CursorPos X="17" Y="1675"/>
     535        <UsageCount Value="11"/>
     536        <Loaded Value="True"/>
     537      </Unit56>
    479538    </Units>
    480     <JumpHistory Count="13" HistoryIndex="12">
     539    <JumpHistory Count="30" HistoryIndex="28">
    481540      <Position1>
    482         <Filename Value="..\UCoolDocking.pas"/>
    483         <Caret Line="1032" Column="39" TopLine="1017"/>
     541        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     542        <Caret Line="4520" Column="1" TopLine="4507"/>
    484543      </Position1>
    485544      <Position2>
    486         <Filename Value="..\UCoolDocking.pas"/>
    487         <Caret Line="1020" Column="1" TopLine="1015"/>
     545        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     546        <Caret Line="4525" Column="1" TopLine="4507"/>
    488547      </Position2>
    489548      <Position3>
    490         <Filename Value="..\UCoolDocking.pas"/>
    491         <Caret Line="1020" Column="14" TopLine="1015"/>
     549        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     550        <Caret Line="4520" Column="1" TopLine="4507"/>
    492551      </Position3>
    493552      <Position4>
    494         <Filename Value="..\UCoolDocking.pas"/>
    495         <Caret Line="1020" Column="49" TopLine="1007"/>
     553        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     554        <Caret Line="4521" Column="1" TopLine="4507"/>
    496555      </Position4>
    497556      <Position5>
    498         <Filename Value="..\UCoolDocking.pas"/>
    499         <Caret Line="1022" Column="1" TopLine="1013"/>
     557        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     558        <Caret Line="4523" Column="1" TopLine="4507"/>
    500559      </Position5>
    501560      <Position6>
    502         <Filename Value="..\UCoolDocking.pas"/>
    503         <Caret Line="1020" Column="45" TopLine="1007"/>
     561        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     562        <Caret Line="4525" Column="1" TopLine="4507"/>
    504563      </Position6>
    505564      <Position7>
    506         <Filename Value="..\UCoolDocking.pas"/>
    507         <Caret Line="13" Column="11" TopLine="1"/>
     565        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     566        <Caret Line="4411" Column="23" TopLine="4401"/>
    508567      </Position7>
    509568      <Position8>
    510         <Filename Value="..\UCoolDocking.pas"/>
    511         <Caret Line="1021" Column="68" TopLine="1008"/>
     569        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     570        <Caret Line="4410" Column="1" TopLine="4401"/>
    512571      </Position8>
    513572      <Position9>
    514         <Filename Value="..\UCoolDocking.pas"/>
    515         <Caret Line="1027" Column="1" TopLine="1008"/>
     573        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     574        <Caret Line="4457" Column="1" TopLine="4436"/>
    516575      </Position9>
    517576      <Position10>
    518         <Filename Value="..\UCoolDocking.pas"/>
    519         <Caret Line="1024" Column="9" TopLine="1008"/>
     577        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     578        <Caret Line="799" Column="1" TopLine="786"/>
    520579      </Position10>
    521580      <Position11>
    522         <Filename Value="..\UCoolDocking.pas"/>
    523         <Caret Line="904" Column="77" TopLine="899"/>
     581        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     582        <Caret Line="800" Column="1" TopLine="786"/>
    524583      </Position11>
    525584      <Position12>
    526         <Filename Value="..\UCoolDocking.pas"/>
    527         <Caret Line="1064" Column="38" TopLine="1045"/>
     585        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     586        <Caret Line="1727" Column="1" TopLine="1714"/>
    528587      </Position12>
    529588      <Position13>
     589        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     590        <Caret Line="1728" Column="1" TopLine="1714"/>
     591      </Position13>
     592      <Position14>
     593        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     594        <Caret Line="1729" Column="1" TopLine="1714"/>
     595      </Position14>
     596      <Position15>
     597        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     598        <Caret Line="1733" Column="20" TopLine="1714"/>
     599      </Position15>
     600      <Position16>
     601        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     602        <Caret Line="1734" Column="1" TopLine="1714"/>
     603      </Position16>
     604      <Position17>
     605        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     606        <Caret Line="1737" Column="22" TopLine="1725"/>
     607      </Position17>
     608      <Position18>
     609        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     610        <Caret Line="3442" Column="1" TopLine="3429"/>
     611      </Position18>
     612      <Position19>
     613        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     614        <Caret Line="1737" Column="1" TopLine="1725"/>
     615      </Position19>
     616      <Position20>
     617        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     618        <Caret Line="3442" Column="1" TopLine="3429"/>
     619      </Position20>
     620      <Position21>
     621        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     622        <Caret Line="2586" Column="1" TopLine="2573"/>
     623      </Position21>
     624      <Position22>
     625        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     626        <Caret Line="1737" Column="1" TopLine="1724"/>
     627      </Position22>
     628      <Position23>
     629        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     630        <Caret Line="2587" Column="32" TopLine="2570"/>
     631      </Position23>
     632      <Position24>
     633        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     634        <Caret Line="2586" Column="1" TopLine="2570"/>
     635      </Position24>
     636      <Position25>
     637        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     638        <Caret Line="2588" Column="1" TopLine="2570"/>
     639      </Position25>
     640      <Position26>
     641        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     642        <Caret Line="1744" Column="1" TopLine="1731"/>
     643      </Position26>
     644      <Position27>
     645        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     646        <Caret Line="2587" Column="34" TopLine="2573"/>
     647      </Position27>
     648      <Position28>
     649        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     650        <Caret Line="1744" Column="1" TopLine="1731"/>
     651      </Position28>
     652      <Position29>
    530653        <Filename Value="..\UCoolDocking.pas"/>
    531         <Caret Line="1054" Column="1" TopLine="1044"/>
    532       </Position13>
     654        <Caret Line="826" Column="47" TopLine="819"/>
     655      </Position29>
     656      <Position30>
     657        <Filename Value="..\UCoolDocking.pas"/>
     658        <Caret Line="69" Column="5" TopLine="56"/>
     659      </Position30>
    533660    </JumpHistory>
    534661  </ProjectOptions>
    … …  
    562689        <UseHeaptrc Value="True"/>
    563690      </Debugging>
    564       <Options>
    565         <Win32>
    566           <GraphicApplication Value="True"/>
    567         </Win32>
    568       </Options>
    569691    </Linking>
    570692    <Other>
    … …  
    577699  </CompilerOptions>
    578700  <Debugging>
    579     <Watches Count="1">
     701    <Watches Count="2">
    580702      <Item1>
    581         <Expression Value="TabControl"/>
     703        <Expression Value="Self.FName"/>
    582704      </Item1>
     705      <Item2>
     706        <Expression Value="List.FCount"/>
     707      </Item2>
    583708    </Watches>
    584709    <Exceptions Count="3">

  • Docking/CoolDocking/Demo/Demo.lpr

    r58 r96  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UMainForm, UDockForm, CoolDocking, SampleDockableForm;
     10  Forms, UMainForm, UDockForm, CoolDocking, SampleDockableForm, UComponentTree;
    1111
    1212{$R *.res}
    … …  
    1616  Application.CreateForm(TMainForm, MainForm);
    1717  Application.CreateForm(TForm1, Form1);
     18  Application.CreateForm(TComponentTree, ComponentTree);
    1819  Application.Run;
    1920end.

  • Docking/CoolDocking/Demo/UMainForm.lfm

    r59 r96  
    3131    TabOrder = 1
    3232  end
     33  object Button2: TButton
     34    Left = 94
     35    Height = 25
     36    Top = 10
     37    Width = 107
     38    Caption = 'Component tree'
     39    OnClick = Button2Click
     40    TabOrder = 2
     41  end
    3342  object CoolDockMaster1: TCoolDockMaster
    3443    TabsEnabled = False
     44    DefaultTabsPos = hpAuto
    3545    DefaultHeaderPos = hpAuto
    3646    Customize = CoolDockCustomize1
    … …  
    6575  object CoolDockClient1: TCoolDockClient
    6676    Dockable = False
     77    Floatable = False
    6778    Master = CoolDockMaster1
    6879    Panel = Panel1

  • Docking/CoolDocking/Demo/UMainForm.pas

    r62 r96  
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    99  ComCtrls, ExtCtrls, Buttons, Menus, UCoolDocking, UCoolDockCustomize,
    10   UDockForm;
     10  UDockForm, UComponentTree;
    1111
    1212type
    … …  
    1616  TMainForm = class(TForm)
    1717    Button1: TButton;
     18    Button2: TButton;
    1819    CoolDockClient1: TCoolDockClient;
    1920    CoolDockCustomize1: TCoolDockCustomize;
    … …  
    2728    Panel1: TPanel;
    2829    procedure Button1Click(Sender: TObject);
     30    procedure Button2Click(Sender: TObject);
    2931    procedure FormCreate(Sender: TObject);
    3032    procedure FormDestroy(Sender: TObject);
    … …  
    7072  ConjoinedDockForm1.ManualDock(Panel1);
    7173  TCoolDockManager(ConjoinedDockForm1.Panel.DockManager).DockStyle := dsTabs;
    72   (*NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
     74  NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
    7375  NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
    7476  NewDockForm.ManualDock(TForm(DockForms[0]));
    7577  NewDockForm.ManualDock(TForm(DockForms[0]));
    76   NewDockForm.ManualDock(TForm(DockForms[0]));*)
     78  NewDockForm.ManualDock(TForm(DockForms[0]));
    7779//  TCustomDockManager(TDockForm(DockForms[0]).DockManager).DockStyle := dsTabs;
    7880end;
    … …  
    107109end;
    108110
     111procedure TMainForm.Button2Click(Sender: TObject);
     112begin
     113  ComponentTree.Show;
     114end;
     115
    109116end.
    110117

  • Docking/CoolDocking/UCoolDockCustomize.lfm

    r89 r96  
    11object CoolDockCustomizeForm: TCoolDockCustomizeForm
     2  Left = 338
    23  Left = 431
    34  Height = 323
     5  Top = 96
    46  Top = 139
    57  Width = 407

  • Docking/CoolDocking/UCoolDockCustomize.lrs

    r89 r96  
    22
    33LazarusResources.Add('TCoolDockCustomizeForm','FORMDATA',[
     4  'TPF0'#22'TCoolDockCustomizeForm'#21'CoolDockCustomizeForm'#4'Left'#3'R'#1#6
     5  +'Height'#3'C'#1#3'Top'#2'`'#5'Width'#3#151#1#7'Caption'#6#17'Customize docki'
     6  +'ng'#12'ClientHeight'#3'C'#1#11'ClientWidth'#3#151#1#10'LCLVersion'#6#6'0.9.'
     7  +'29'#0#12'TPageControl'#12'PageControl1'#4'Left'#2#8#6'Height'#3#22#1#3'Top'
     8  +#2#8#5'Width'#3#137#1#10'ActivePage'#7#15'TabSheetSetting'#7'Anchors'#11#5'a'
     9  +'kTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'TabIndex'#2#0#8'TabOrder'#2#0#0#9
     10  +'TTabSheet'#15'TabSheetSetting'#7'Caption'#6#7'Options'#12'ClientHeight'#3
     11  +#252#0#11'ClientWidth'#3#129#1#0#6'TLabel'#6'Label1'#4'Left'#2#7#6'Height'#2
     12  +#14#3'Top'#2#13#5'Width'#2'h'#7'Caption'#6#22'Default tabs position:'#11'Par'
     13  +'entColor'#8#0#0#9'TComboBox'#9'ComboBox1'#4'Left'#3#132#0#6'Height'#2#21#3
     14  +'Top'#2#10#5'Width'#2'd'#10'ItemHeight'#2#13#8'TabOrder'#2#0#4'Text'#6#9'Com'
     15  +'boBox1'#0#0#6'TLabel'#6'Label2'#4'Left'#2#7#6'Height'#2#14#3'Top'#2')'#5'Wi'
     16  +'dth'#2'u'#7'Caption'#6#24'Default header position:'#11'ParentColor'#8#0#0#9
     17  +'TComboBox'#9'ComboBox2'#4'Left'#3#132#0#6'Height'#2#21#3'Top'#2'&'#5'Width'
     18  +#2'd'#10'ItemHeight'#2#13#8'TabOrder'#2#1#4'Text'#6#9'ComboBox1'#0#0#0#9'TTa'
     19  +'bSheet'#15'TabSheetLayouts'#7'Caption'#6#7'Layouts'#12'ClientHeight'#3#252#0
     20  +#11'ClientWidth'#3#129#1#0#8'TListBox'#8'ListBox1'#4'Left'#2#10#6'Height'#3
     21  +#231#0#3'Top'#2#11#5'Width'#3#180#0#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBot'
     22  +'tom'#0#10'ItemHeight'#2#0#8'TabOrder'#2#0#0#0#0#0#7'TButton'#11'ButtonClose'
     23  +#4'Left'#3'D'#1#6'Height'#2#22#3'Top'#3'&'#1#5'Width'#2'K'#7'Anchors'#11#7'a'
     24  +'kRight'#8'akBottom'#0#7'Caption'#6#5'Close'#7'OnClick'#7#16'ButtonCloseClic'
     25  +'k'#8'TabOrder'#2#1#0#0#0
    426  'TPF0'#22'TCoolDockCustomizeForm'#21'CoolDockCustomizeForm'#4'Left'#3#175#1#6
    527  +'Height'#3'C'#1#3'Top'#3#139#0#5'Width'#3#151#1#7'Caption'#6#17'Customize do'

  • Docking/CoolDocking/UCoolDocking.pas

    r89 r96  
    3232    Panel: TPanel;
    3333    CoolDockClient: TCoolDockClient;
     34    procedure FormShow(Sender : TObject);
    3435    constructor Create(TheOwner: TComponent); override;
    3536  end;
    … …  
    365366
    366367  PopupMenuTabs := TPopupMenu.Create(FDockSite);
     368  PopupMenuTabs.Name := ADockSite.Name + '_' + 'PopupMenuTabs';
    367369
    368370  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    … …  
    432434
    433435  PopupMenuHeader := TPopupMenu.Create(FDockSite);
     436  PopupMenuHeader.Name := ADockSite.Name + '_' + 'PopupMenuHeader';
    434437
    435438  NewMenuItem := TMenuItem.Create(PopupMenuHeader);
    … …  
    498501  TabImageList := TImageList.Create(FDockSite);
    499502  with TabImageList do begin
     503    Name := ADockSite.Name + '_' + 'ImageList';
    500504  end;
    501505  TabControl := TTabControl.Create(FDockSite);
    502506  with TabControl do begin
    503507    Parent := FDockSite;
     508    Name := ADockSite.Name + '_' + 'TabControl';
    504509    Visible := False;
    505510    Align := alTop;
    … …  
    863868    TCoolDockClientPanel(FDockPanels[I]).Control.Align := alClient;
    864869    TCoolDockClientPanel(FDockPanels[I]).Control.Visible := False;
     870
     871    // Workaround for "Cannot focus" error
     872    TForm(TCoolDockClientPanel(FDockPanels[I]).Control).ActiveControl := nil;
    865873  end;
    866874  if (TabControl.TabIndex <> -1) and (FDockPanels.Count > TabControl.TabIndex) then begin
    … …  
    882890      end;
    883891    end;
    884 //  TCoolDockClientPanel(FDockPanels[TabControl.TabIndex]).Visible := True;
     892  //TCoolDockClientPanel(FDockPanels[TabControl.TabIndex]).Visible := True;
    885893  end;
    886894  MouseDownSkip := True;
    … …  
    11081116{ TCoolDockConjoinForm }
    11091117
     1118procedure TCoolDockConjoinForm.FormShow(Sender: TObject);
     1119begin
     1120  //Panel.Show;
     1121end;
     1122
    11101123constructor TCoolDockConjoinForm.Create(TheOwner: TComponent);
    11111124begin
    … …  
    11141127  with Panel do begin
    11151128    Parent := Self;
     1129    Name := Parent.Name + '_Panel';
    11161130    DockSite := True;
    11171131    UseDockManager := True;
    … …  
    11241138  with CoolDockClient do begin
    11251139    Panel := Self.Panel;
    1126   end;
     1140    Name := Owner.Name + '_CoolDockClient';
     1141  end;
     1142  OnShow := FormShow;
    11271143end;
    11281144
Note: See TracChangeset for help on using the changeset viewer.