Changeset 184 for Docking


Ignore:
Timestamp:
Mar 10, 2011, 9:57:21 AM (14 years ago)
Author:
george
Message:
  • Fixed: Placing new form inside regions with different orientation.
Location:
Docking/CoolDocking
Files:
2 added
10 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/Demo/IDE/IDE.lpi

    r183 r184  
    4747      </Item4>
    4848    </RequiredPackages>
    49     <Units Count="54">
     49    <Units Count="56">
    5050      <Unit0>
    5151        <Filename Value="IDE.lpr"/>
    5252        <IsPartOfProject Value="True"/>
    5353        <UnitName Value="IDE"/>
    54         <UsageCount Value="116"/>
     54        <WindowIndex Value="0"/>
     55        <TopLine Value="11"/>
     56        <CursorPos X="15" Y="34"/>
     57        <UsageCount Value="120"/>
    5558      </Unit0>
    5659      <Unit1>
    … …  
    6063        <ResourceBaseClass Value="Form"/>
    6164        <UnitName Value="UMainForm"/>
    62         <EditorIndex Value="4"/>
    63         <WindowIndex Value="0"/>
    64         <TopLine Value="138"/>
    65         <CursorPos X="18" Y="150"/>
    66         <UsageCount Value="116"/>
     65        <EditorIndex Value="13"/>
     66        <WindowIndex Value="0"/>
     67        <TopLine Value="1"/>
     68        <CursorPos X="70" Y="2"/>
     69        <UsageCount Value="120"/>
    6770        <Loaded Value="True"/>
    6871        <LoadedDesigner Value="True"/>
    … …  
    7780        <TopLine Value="1"/>
    7881        <CursorPos X="12" Y="16"/>
    79         <UsageCount Value="116"/>
     82        <UsageCount Value="120"/>
    8083      </Unit2>
    8184      <Unit3>
    … …  
    8588        <ResourceBaseClass Value="Form"/>
    8689        <UnitName Value="UStructureForm"/>
    87         <WindowIndex Value="0"/>
    88         <TopLine Value="1"/>
    89         <CursorPos X="3" Y="16"/>
    90         <UsageCount Value="116"/>
     90        <EditorIndex Value="3"/>
     91        <WindowIndex Value="0"/>
     92        <TopLine Value="1"/>
     93        <CursorPos X="22" Y="4"/>
     94        <UsageCount Value="120"/>
     95        <Loaded Value="True"/>
     96        <LoadedDesigner Value="True"/>
    9197      </Unit3>
    9298      <Unit4>
    … …  
    99105        <TopLine Value="1"/>
    100106        <CursorPos X="15" Y="10"/>
    101         <UsageCount Value="116"/>
     107        <UsageCount Value="120"/>
    102108      </Unit4>
    103109      <Unit5>
    104110        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\control.inc"/>
    105         <WindowIndex Value="0"/>
    106         <TopLine Value="1672"/>
    107         <CursorPos X="1" Y="1685"/>
    108         <UsageCount Value="54"/>
     111        <EditorIndex Value="6"/>
     112        <WindowIndex Value="0"/>
     113        <TopLine Value="3508"/>
     114        <CursorPos X="1" Y="3512"/>
     115        <UsageCount Value="55"/>
     116        <Loaded Value="True"/>
    109117      </Unit5>
    110118      <Unit6>
    … …  
    117125        <TopLine Value="1"/>
    118126        <CursorPos X="20" Y="16"/>
    119         <UsageCount Value="116"/>
     127        <UsageCount Value="120"/>
    120128      </Unit6>
    121129      <Unit7>
    122130        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\customform.inc"/>
    123         <WindowIndex Value="0"/>
    124         <TopLine Value="2822"/>
    125         <CursorPos X="1" Y="2835"/>
    126         <UsageCount Value="57"/>
     131        <EditorIndex Value="9"/>
     132        <WindowIndex Value="0"/>
     133        <TopLine Value="941"/>
     134        <CursorPos X="1" Y="954"/>
     135        <UsageCount Value="59"/>
     136        <Loaded Value="True"/>
    127137      </Unit7>
    128138      <Unit8>
    … …  
    132142        <ResourceBaseClass Value="Form"/>
    133143        <UnitName Value="UMessagesForm"/>
     144        <EditorIndex Value="8"/>
    134145        <WindowIndex Value="0"/>
    135146        <TopLine Value="1"/>
    136147        <CursorPos X="7" Y="16"/>
    137         <UsageCount Value="116"/>
     148        <UsageCount Value="120"/>
     149        <Loaded Value="True"/>
    138150      </Unit8>
    139151      <Unit9>
    … …  
    146158        <TopLine Value="1"/>
    147159        <CursorPos X="12" Y="15"/>
    148         <UsageCount Value="116"/>
     160        <UsageCount Value="120"/>
    149161      </Unit9>
    150162      <Unit10>
    … …  
    157169        <TopLine Value="1"/>
    158170        <CursorPos X="21" Y="4"/>
    159         <UsageCount Value="116"/>
     171        <UsageCount Value="120"/>
    160172      </Unit10>
    161173      <Unit11>
    … …  
    168180        <TopLine Value="1"/>
    169181        <CursorPos X="12" Y="16"/>
    170         <UsageCount Value="116"/>
     182        <UsageCount Value="120"/>
    171183      </Unit11>
    172184      <Unit12>
    … …  
    179191        <TopLine Value="1"/>
    180192        <CursorPos X="12" Y="17"/>
    181         <UsageCount Value="116"/>
     193        <UsageCount Value="120"/>
    182194      </Unit12>
    183195      <Unit13>
    … …  
    190202        <TopLine Value="1"/>
    191203        <CursorPos X="12" Y="16"/>
    192         <UsageCount Value="116"/>
     204        <UsageCount Value="120"/>
    193205      </Unit13>
    194206      <Unit14>
    … …  
    198210        <ResourceBaseClass Value="Form"/>
    199211        <UnitName Value="USourceEditorForm"/>
    200         <WindowIndex Value="0"/>
    201         <TopLine Value="1"/>
    202         <CursorPos X="41" Y="17"/>
    203         <UsageCount Value="114"/>
     212        <EditorIndex Value="2"/>
     213        <WindowIndex Value="0"/>
     214        <TopLine Value="6"/>
     215        <CursorPos X="31" Y="3"/>
     216        <UsageCount Value="118"/>
     217        <Loaded Value="True"/>
     218        <LoadedDesigner Value="True"/>
    204219      </Unit14>
    205220      <Unit15>
    … …  
    208223        <EditorIndex Value="0"/>
    209224        <WindowIndex Value="0"/>
    210         <TopLine Value="406"/>
    211         <CursorPos X="3" Y="411"/>
    212         <UsageCount Value="57"/>
     225        <TopLine Value="287"/>
     226        <CursorPos X="4" Y="289"/>
     227        <UsageCount Value="58"/>
    213228        <Loaded Value="True"/>
    214229      </Unit15>
    … …  
    216231        <Filename Value="..\..\UCoolDockLayout.pas"/>
    217232        <UnitName Value="UCoolDockLayout"/>
    218         <EditorIndex Value="5"/>
    219         <WindowIndex Value="0"/>
    220         <TopLine Value="379"/>
    221         <CursorPos X="101" Y="394"/>
    222         <UsageCount Value="57"/>
     233        <EditorIndex Value="1"/>
     234        <WindowIndex Value="0"/>
     235        <TopLine Value="381"/>
     236        <CursorPos X="36" Y="404"/>
     237        <UsageCount Value="58"/>
    223238        <Loaded Value="True"/>
    224239      </Unit16>
    … …  
    248263        <Filename Value="..\..\URectangle.pas"/>
    249264        <UnitName Value="URectangle"/>
    250         <WindowIndex Value="0"/>
    251         <TopLine Value="90"/>
    252         <CursorPos X="61" Y="104"/>
     265        <EditorIndex Value="4"/>
     266        <WindowIndex Value="0"/>
     267        <TopLine Value="110"/>
     268        <CursorPos X="18" Y="126"/>
    253269        <UsageCount Value="27"/>
     270        <Loaded Value="True"/>
    254271      </Unit20>
    255272      <Unit21>
    … …  
    292309        <WindowIndex Value="0"/>
    293310        <TopLine Value="913"/>
    294         <CursorPos X="1" Y="930"/>
     311        <CursorPos X="1" Y="926"/>
    295312        <UsageCount Value="24"/>
    296313      </Unit25>
    297314      <Unit26>
    298315        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\containedaction.inc"/>
     316        <EditorIndex Value="7"/>
    299317        <WindowIndex Value="0"/>
    300318        <TopLine Value="91"/>
    301319        <CursorPos X="1" Y="104"/>
    302         <UsageCount Value="6"/>
     320        <UsageCount Value="11"/>
     321        <Loaded Value="True"/>
    303322      </Unit26>
    304323      <Unit27>
    … …  
    312331        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\controls.pp"/>
    313332        <UnitName Value="Controls"/>
    314         <EditorIndex Value="7"/>
    315         <WindowIndex Value="0"/>
    316         <TopLine Value="1050"/>
    317         <CursorPos X="14" Y="1429"/>
    318         <UsageCount Value="33"/>
    319         <Loaded Value="True"/>
     333        <WindowIndex Value="0"/>
     334        <TopLine Value="3859"/>
     335        <CursorPos X="1" Y="3872"/>
     336        <UsageCount Value="35"/>
    320337      </Unit28>
    321338      <Unit29>
    322339        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\wincontrol.inc"/>
    323340        <WindowIndex Value="0"/>
    324         <TopLine Value="5229"/>
    325         <CursorPos X="1" Y="5242"/>
    326         <UsageCount Value="28"/>
     341        <TopLine Value="7662"/>
     342        <CursorPos X="1" Y="7675"/>
     343        <UsageCount Value="29"/>
    327344      </Unit29>
    328345      <Unit30>
    … …  
    347364        <Filename Value="..\..\UCoolDockCommon.pas"/>
    348365        <UnitName Value="UCoolDockCommon"/>
    349         <EditorIndex Value="1"/>
    350         <WindowIndex Value="0"/>
    351         <TopLine Value="1"/>
    352         <CursorPos X="1" Y="14"/>
    353         <UsageCount Value="48"/>
     366        <EditorIndex Value="10"/>
     367        <WindowIndex Value="0"/>
     368        <TopLine Value="1"/>
     369        <CursorPos X="25" Y="11"/>
     370        <UsageCount Value="50"/>
    354371        <Loaded Value="True"/>
    355372      </Unit32>
    … …  
    409426        <Filename Value="..\..\UCoolDockStyle.pas"/>
    410427        <UnitName Value="UCoolDockStyle"/>
    411         <EditorIndex Value="3"/>
    412         <WindowIndex Value="0"/>
    413         <TopLine Value="59"/>
    414         <CursorPos X="3" Y="65"/>
    415         <UsageCount Value="31"/>
     428        <EditorIndex Value="12"/>
     429        <WindowIndex Value="0"/>
     430        <TopLine Value="10"/>
     431        <CursorPos X="15" Y="23"/>
     432        <UsageCount Value="32"/>
    416433        <Loaded Value="True"/>
    417434      </Unit40>
    … …  
    419436        <Filename Value="..\..\UCoolDockClientPanel.pas"/>
    420437        <UnitName Value="UCoolDockClientPanel"/>
    421         <EditorIndex Value="2"/>
    422         <WindowIndex Value="0"/>
    423         <TopLine Value="25"/>
    424         <CursorPos X="22" Y="40"/>
    425         <UsageCount Value="31"/>
     438        <IsVisibleTab Value="True"/>
     439        <EditorIndex Value="11"/>
     440        <WindowIndex Value="0"/>
     441        <TopLine Value="259"/>
     442        <CursorPos X="1" Y="271"/>
     443        <UsageCount Value="32"/>
    426444        <Loaded Value="True"/>
    427445      </Unit41>
    … …  
    437455        <Filename Value="..\..\UCoolDockStyleTabs.pas"/>
    438456        <UnitName Value="UCoolDockStyleTabs"/>
    439         <EditorIndex Value="8"/>
    440         <WindowIndex Value="0"/>
    441         <TopLine Value="238"/>
    442         <CursorPos X="3" Y="240"/>
    443         <UsageCount Value="30"/>
     457        <EditorIndex Value="15"/>
     458        <WindowIndex Value="0"/>
     459        <TopLine Value="192"/>
     460        <CursorPos X="52" Y="205"/>
     461        <UsageCount Value="31"/>
    444462        <Loaded Value="True"/>
    445463      </Unit43>
    … …  
    470488        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    471489        <UnitName Value="UCoolDockStyleRegions"/>
    472         <IsVisibleTab Value="True"/>
    473         <EditorIndex Value="6"/>
    474         <WindowIndex Value="0"/>
    475         <TopLine Value="61"/>
    476         <CursorPos X="36" Y="66"/>
    477         <UsageCount Value="29"/>
     490        <EditorIndex Value="14"/>
     491        <WindowIndex Value="0"/>
     492        <TopLine Value="64"/>
     493        <CursorPos X="31" Y="77"/>
     494        <UsageCount Value="30"/>
    478495        <Loaded Value="True"/>
    479496      </Unit47>
    … …  
    522539        <DefaultSyntaxHighlighter Value="None"/>
    523540      </Unit53>
     541      <Unit54>
     542        <Filename Value="UComponentTree.pas"/>
     543        <IsPartOfProject Value="True"/>
     544        <ComponentName Value="ComponentTree"/>
     545        <HasResources Value="True"/>
     546        <ResourceBaseClass Value="Form"/>
     547        <UnitName Value="UComponentTree"/>
     548        <WindowIndex Value="0"/>
     549        <TopLine Value="23"/>
     550        <CursorPos X="15" Y="24"/>
     551        <UsageCount Value="21"/>
     552      </Unit54>
     553      <Unit55>
     554        <Filename Value="..\..\UCoolDockStylePopupRegions.pas"/>
     555        <UnitName Value="UCoolDockStylePopupRegions"/>
     556        <EditorIndex Value="5"/>
     557        <WindowIndex Value="0"/>
     558        <TopLine Value="1"/>
     559        <CursorPos X="1" Y="1"/>
     560        <UsageCount Value="10"/>
     561        <Loaded Value="True"/>
     562      </Unit55>
    524563    </Units>
    525564    <JumpHistory Count="30" HistoryIndex="29">
    526565      <Position1>
    527566        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    528         <Caret Line="64" Column="1" TopLine="59"/>
     567        <Caret Line="66" Column="1" TopLine="56"/>
    529568      </Position1>
    530569      <Position2>
    531570        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    532         <Caret Line="65" Column="1" TopLine="59"/>
     571        <Caret Line="83" Column="1" TopLine="70"/>
    533572      </Position2>
    534573      <Position3>
    535574        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    536         <Caret Line="66" Column="1" TopLine="59"/>
     575        <Caret Line="85" Column="1" TopLine="70"/>
    537576      </Position3>
    538577      <Position4>
    539         <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    540         <Caret Line="68" Column="1" TopLine="59"/>
     578        <Filename Value="..\..\UCoolDocking.pas"/>
     579        <Caret Line="211" Column="1" TopLine="198"/>
    541580      </Position4>
    542581      <Position5>
    543         <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    544         <Caret Line="82" Column="1" TopLine="61"/>
     582        <Filename Value="..\..\UCoolDocking.pas"/>
     583        <Caret Line="212" Column="1" TopLine="198"/>
    545584      </Position5>
    546585      <Position6>
    547586        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    548         <Caret Line="64" Column="1" TopLine="59"/>
     587        <Caret Line="86" Column="1" TopLine="70"/>
    549588      </Position6>
    550589      <Position7>
    551590        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    552         <Caret Line="65" Column="1" TopLine="59"/>
     591        <Caret Line="87" Column="1" TopLine="70"/>
    553592      </Position7>
    554593      <Position8>
    555594        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    556         <Caret Line="66" Column="1" TopLine="59"/>
     595        <Caret Line="88" Column="1" TopLine="70"/>
    557596      </Position8>
    558597      <Position9>
    559598        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    560         <Caret Line="68" Column="1" TopLine="59"/>
     599        <Caret Line="91" Column="1" TopLine="70"/>
    561600      </Position9>
    562601      <Position10>
    563602        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    564         <Caret Line="69" Column="1" TopLine="59"/>
     603        <Caret Line="92" Column="1" TopLine="71"/>
    565604      </Position10>
    566605      <Position11>
    567606        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    568         <Caret Line="70" Column="1" TopLine="59"/>
     607        <Caret Line="94" Column="1" TopLine="73"/>
    569608      </Position11>
    570609      <Position12>
    571610        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    572         <Caret Line="82" Column="1" TopLine="61"/>
     611        <Caret Line="95" Column="1" TopLine="74"/>
    573612      </Position12>
    574613      <Position13>
    575614        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    576         <Caret Line="64" Column="1" TopLine="59"/>
     615        <Caret Line="96" Column="1" TopLine="75"/>
    577616      </Position13>
    578617      <Position14>
    579618        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    580         <Caret Line="65" Column="1" TopLine="59"/>
     619        <Caret Line="97" Column="31" TopLine="76"/>
    581620      </Position14>
    582621      <Position15>
    583622        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    584         <Caret Line="66" Column="1" TopLine="59"/>
     623        <Caret Line="98" Column="1" TopLine="77"/>
    585624      </Position15>
    586625      <Position16>
    587626        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    588         <Caret Line="68" Column="1" TopLine="59"/>
     627        <Caret Line="100" Column="1" TopLine="64"/>
    589628      </Position16>
    590629      <Position17>
    591630        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    592         <Caret Line="69" Column="1" TopLine="59"/>
     631        <Caret Line="64" Column="1" TopLine="51"/>
    593632      </Position17>
    594633      <Position18>
    595634        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    596         <Caret Line="70" Column="1" TopLine="59"/>
     635        <Caret Line="65" Column="1" TopLine="51"/>
    597636      </Position18>
    598637      <Position19>
    599638        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    600         <Caret Line="72" Column="1" TopLine="59"/>
     639        <Caret Line="66" Column="1" TopLine="51"/>
    601640      </Position19>
    602641      <Position20>
    603642        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    604         <Caret Line="73" Column="1" TopLine="59"/>
     643        <Caret Line="83" Column="1" TopLine="70"/>
    605644      </Position20>
    606645      <Position21>
    607646        <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    608         <Caret Line="75" Column="1" TopLine="59"/>
     647        <Caret Line="85" Column="1" TopLine="70"/>
    609648      </Position21>
    610649      <Position22>
    611         <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    612         <Caret Line="76" Column="1" TopLine="59"/>
     650        <Filename Value="..\..\UCoolDocking.pas"/>
     651        <Caret Line="211" Column="1" TopLine="198"/>
    613652      </Position22>
    614653      <Position23>
    615         <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    616         <Caret Line="64" Column="1" TopLine="59"/>
     654        <Filename Value="..\..\UCoolDocking.pas"/>
     655        <Caret Line="212" Column="1" TopLine="198"/>
    617656      </Position23>
    618657      <Position24>
    619         <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    620         <Caret Line="65" Column="1" TopLine="59"/>
     658        <Filename Value="..\..\UCoolDockLayout.pas"/>
     659        <Caret Line="403" Column="30" TopLine="390"/>
    621660      </Position24>
    622661      <Position25>
    623         <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    624         <Caret Line="66" Column="1" TopLine="59"/>
     662        <Filename Value="..\..\UCoolDockLayout.pas"/>
     663        <Caret Line="24" Column="17" TopLine="11"/>
    625664      </Position25>
    626665      <Position26>
    627         <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    628         <Caret Line="82" Column="1" TopLine="61"/>
     666        <Filename Value="..\..\URectangle.pas"/>
     667        <Caret Line="43" Column="58" TopLine="23"/>
    629668      </Position26>
    630669      <Position27>
    631         <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    632         <Caret Line="64" Column="1" TopLine="59"/>
     670        <Filename Value="..\..\URectangle.pas"/>
     671        <Caret Line="126" Column="24" TopLine="107"/>
    633672      </Position27>
    634673      <Position28>
    635         <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    636         <Caret Line="65" Column="1" TopLine="59"/>
     674        <Filename Value="..\..\UCoolDockLayout.pas"/>
     675        <Caret Line="24" Column="17" TopLine="11"/>
    637676      </Position28>
    638677      <Position29>
    639         <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    640         <Caret Line="66" Column="1" TopLine="59"/>
     678        <Filename Value="..\..\UCoolDockLayout.pas"/>
     679        <Caret Line="403" Column="43" TopLine="384"/>
    641680      </Position29>
    642681      <Position30>
    643         <Filename Value="..\..\UCoolDockStyleRegions.pas"/>
    644         <Caret Line="68" Column="1" TopLine="59"/>
     682        <Filename Value="..\..\UCoolDockClientPanel.pas"/>
     683        <Caret Line="154" Column="30" TopLine="150"/>
    645684      </Position30>
    646685    </JumpHistory>
    … …  
    668707  </CompilerOptions>
    669708  <Debugging>
    670     <BreakPoints Count="1">
     709    <Watches Count="1">
    671710      <Item1>
    672         <Source Value="..\..\UCoolDockStyleRegions.pas"/>
    673         <Line Value="61"/>
     711        <Expression Value="AControl.FName"/>
    674712      </Item1>
    675     </BreakPoints>
     713    </Watches>
    676714    <Exceptions Count="3">
    677715      <Item1>

  • Docking/CoolDocking/Demo/IDE/IDE.lpr

    r178 r184  
    1111UToolPaletteForm, UProjectManagerForm, UMessagesForm, UCallStackForm,
    1212ULocalVariablesForm, UToDoListForm, UWatchListForm, UThreadStatusForm,
    13 USourceEditorForm
     13USourceEditorForm, UComponentTree
    1414  { you can add units after this };
    1515
    … …  
    3131  Application.CreateForm(TThreadStatusForm, ThreadStatusForm);
    3232  Application.CreateForm(TSourceEditorForm, SourceEditorForm);
     33  Application.CreateForm(TComponentTree, ComponentTree);
    3334  Application.Run;
    3435end.

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

    r182 r184  
    1111  OnShow = FormShow
    1212  LCLVersion = '0.9.31'
    13   object Panel1: TPanel
     13  object DockPanel: TPanel
    1414    Left = 0
    1515    Height = 400
    … …  
    127127        Action = ADesktopSave
    128128      end
     129      object MenuItem22: TMenuItem
     130        Action = AViewComponentTree
     131      end
    129132    end
    130133    object MenuItem11: TMenuItem
    … …  
    208211      Caption = 'Exit'
    209212      OnExecute = AExitExecute
     213    end
     214    object AViewComponentTree: TAction
     215      Caption = 'Component Tree'
     216      OnExecute = AViewComponentTreeExecute
    210217    end
    211218  end
    … …  
    228235    Floatable = False
    229236    Master = CoolDockMaster1
    230     Panel = Panel1
     237    Panel = DockPanel
    231238    left = 284
    232239    top = 127

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

    r182 r184  
    1111  UMessagesForm, UCallStackForm, ULocalVariablesForm, UToDoListForm,
    1212  UWatchListForm, UThreadStatusForm, USourceEditorForm, UCoolDockWindowList,
    13   UCoolDockCustomize;
     13  UCoolDockCustomize, UComponentTree;
    1414
    1515const
    … …  
    2222  TMainForm = class(TForm)
    2323  published
     24    AViewComponentTree: TAction;
    2425    AExit: TAction;
    2526    ANewFile: TAction;
    … …  
    5758    MenuItem20: TMenuItem;
    5859    MenuItem21: TMenuItem;
     60    MenuItem22: TMenuItem;
    5961    MenuItem23: TMenuItem;
    6062    MenuItem24: TMenuItem;
    … …  
    7375    MenuItem1: TMenuItem;
    7476    MainMenu1: TMainMenu;
    75     Panel1: TPanel;
     77    DockPanel: TPanel;
    7678    ToolBar1: TToolBar;
    7779    ToolButton1: TToolButton;
    … …  
    8082    procedure AExitExecute(Sender: TObject);
    8183    procedure ANewFileExecute(Sender: TObject);
     84    procedure AViewComponentTreeExecute(Sender: TObject);
    8285    procedure AViewThreadStatusExecute(Sender: TObject);
    8386    procedure AViewCallStackExecute(Sender: TObject);
    … …  
    153156  DefaultLayout := CoolDockLayoutList1.FindByName(DefaultLayoutName);
    154157  if not Assigned(DefaultLayout) then begin
    155     NewContainer1 := TCoolDockConjoinForm.Create(nil);
     158    NewContainer1 := TCoolDockManager(DockPanel.DockManager).CreateContainer(alRight);
    156159    NewContainer1.Show;
    157160
    … …  
    161164    ObjectInspectorForm.Show;
    162165
    163     NewContainer2 := TCoolDockConjoinForm.Create(nil);
     166    NewContainer2 := TCoolDockManager(DockPanel.DockManager).CreateContainer(alRight);
    164167    NewContainer2.Show;
    165168    ProjectManagerForm.ManualDock(NewContainer2.Panel, nil, alTop);
    … …  
    168171    ToolPaletteForm.Show;
    169172
    170     NewContainer1.ManualDock(Panel1);
    171     SourceEditorForm.ManualDock(Panel1);
     173    NewContainer1.ManualDock(DockPanel);
     174    SourceEditorForm.ManualDock(DockPanel);
    172175    SourceEditorForm.Show;
    173     NewContainer2.ManualDock(Panel1);
     176    NewContainer2.ManualDock(DockPanel);
    174177
    175178    DefaultLayout := TCoolDockLayout.Create;
    … …  
    220223    CoolDockLayoutList1.Items.Add(NewLayout);
    221224  end else
    222     TCoolDockLayout(CoolDockLayoutList1.Items[ComboBox1.ItemIndex]).Store;
     225    TCoolDockLayout(CoolDockLayoutList1.Items[ComboBox1.Items.IndexOf(ComboBox1.Text)]).Store;
     226  CoolDockLayoutList1.SaveToFile(DockLayoutFileName);
    223227  CoolDockLayoutList1.PopulateStringList(ComboBox1.Items);
    224228end;
    … …  
    232236begin
    233237  SourceEditorForm.Show;
     238end;
     239
     240procedure TMainForm.AViewComponentTreeExecute(Sender: TObject);
     241begin
     242  ComponentTree.Show;
    234243end;
    235244

  • Docking/CoolDocking/UCoolDockClientPanel.pas

    r183 r184  
    77uses
    88  Classes, Controls, SysUtils, Forms, StdCtrls, ExtCtrls, Graphics,
    9   Buttons;
     9  Buttons, UCoolDockCommon;
    1010
    1111type
    … …  
    4747    procedure SetShowHeader(const AValue: Boolean);
    4848  public
    49     OwnerDockManager: TObject; // TCoolDockManager;
     49    OwnerDockManager: TCoolDockManagerBase;
    5050    Splitter: TSplitter;
    5151    ClientAreaPanel: TPanel;
    … …  
    6868
    6969uses
    70   UCoolDocking;
     70  UCoolDocking, UCoolDockStyle;
    7171
    7272{ TCoolDockClientPanel }
    … …  
    8484  Temp: TControl;
    8585  Temp2: TControl;
     86  Temp3: TCoolDockStyle;
    8687begin
    8788  Temp := TControl(Sender);
    … …  
    99100    if Assigned(DockStyleHandler) then
    100101    with DockStyleHandler do begin
     102      Temp3 := DockStyleHandler;
    101103      //UpdateClientSize;
    102104      if ControlVisible then
    … …  
    258260    Brush.Style := bsClear;
    259261  end;
     262  Title := TLabel.Create(Self);
     263  with Title do begin
     264    Parent := Self;
     265    Visible := True;
     266    Top := 4;
     267    Left := 6;
     268    BevelInner := bvNone;
     269    BevelOuter := bvNone;
     270  end;
    260271  CloseButton := TSpeedButton.Create(Self);
    261272  with CloseButton do begin
    … …  
    271282    OnClick := CloseButtonClick;
    272283  end;
    273   Title := TLabel.Create(Self);
    274   with Title do begin
    275     Parent := Self;
    276     Visible := True;
    277     Top := 4;
    278     Left := 6;
    279     BevelInner := bvNone;
    280     BevelOuter := bvNone;
    281   end;
    282284  Icon := TImage.Create(Self);
    283285  with Icon do begin

  • Docking/CoolDocking/UCoolDockLayout.pas

    r182 r184  
    401401    if Assigned(ParentComponent) and (ParentComponent is TCoolDockConjoinForm) then
    402402      Form.ManualDock(TCoolDockConjoinForm(ParentComponent).Panel);
    403   end;
     403  end else
     404  if Assigned(Form.HostDockSite) then Form.ManualFloat(Rect.AsTRect);
    404405end;
    405406

  • Docking/CoolDocking/UCoolDockStyleRegions.pas

    r183 r184  
    7373        NewDockSite := DockSite.HostDockSite;
    7474        // FDockSite.ManualFloat(FDockSite.BoundsRect);
     75        AControl.ManualDock(NewConjoinDockForm.Panel, nil, InsertAt);
     76        if DockSite is TForm then
     77          DockSite.ManualDock(NewConjoinDockForm.Panel)
     78        else
     79        if DockSite is TPanel then
     80          DockSite.Parent.ManualDock(NewConjoinDockForm.Panel);
    7581        NewConjoinDockForm.ManualDock(NewDockSite);
    76         DockSite.ManualDock(NewConjoinDockForm.Panel);
    77         AControl.ManualDock(NewConjoinDockForm.Panel, nil, InsertAt);
     82        UpdateClientSize;
    7883        Exit;
    7984      end;
    … …  
    8388    with NewPanel do begin
    8489      Parent := TCoolDockManager(Manager).DockSite;
    85       OwnerDockManager := Self;
     90      OwnerDockManager := Manager;
    8691      if DockStyle = dsList then Visible := True;
    8792      Header.PopupMenu := TCoolDockManager(Manager).PopupMenu;
    … …  
    103108
    104109procedure TCoolDockStyleRegions.RemoveControl(Control: TControl);
    105 begin
     110var
     111  ClientPanel: TCoolDockClientPanel;
     112begin
     113  ClientPanel := TCoolDockManager(Manager).FindControlInPanels(Control);
     114  Control.RemoveHandlerOnVisibleChanged(ClientPanel.VisibleChange);
     115
    106116  if TCoolDockManager(Manager).DockSite.DockClientCount = 2 then FDockDirection := ddNone;
    107117  inherited RemoveControl(Control);
    … …  
    174184    Splitter.Parent := TCoolDockManager(Manager).DockSite;
    175185    Splitter.Align := BaseAlign;
    176     Splitter.Visible := True;
     186    Splitter.Visible := I < (DockPanels.Count - 1);
    177187
    178188

  • Docking/CoolDocking/UCoolDockStyleTabs.pas

    r183 r184  
    203203    with NewPanel do begin
    204204      Parent := TCoolDockManager(Manager).DockSite;
    205       OwnerDockManager := Self;
     205      OwnerDockManager := TCoolDockManager(Manager);
    206206      if DockStyle = dsList then Visible := True;
    207207      Align := alClient;

  • Docking/CoolDocking/UCoolDocking.pas

    r183 r184  
    297297      NewDockSite := FDockSite.HostDockSite;
    298298//      FDockSite.ManualFloat(FDockSite.BoundsRect);
    299       NewConjoinDockForm.ManualDock(NewDockSite);
    300299      FDockSite.ManualDock(NewConjoinDockForm.Panel);
    301300      Control.ManualDock(NewConjoinDockForm.Panel, nil, InsertAt);
     301      NewConjoinDockForm.ManualDock(NewDockSite);
    302302    end;
    303303  end else
    … …  
    415415  NewConjoinDockForm.CoolDockClient.Master := Self.Master;
    416416  NewDockSite := FDockSite.HostDockSite;
    417   //      FDockSite.ManualFloat(FDockSite.BoundsRect);
    418   NewConjoinDockForm.ManualDock(NewDockSite, nil, InsertAt);
     417  // FDockSite.ManualFloat(FDockSite.BoundsRect);
     418  //NewConjoinDockForm.ManualDock(NewDockSite, nil, InsertAt);
    419419  Result := NewConjoinDockForm;
    420420end;
    … …  
    529529begin
    530530  inherited SetName(NewName);
    531   Panel.Name := Name + '_Panel';
     531  Panel.Name := Name + 'Panel';
    532532  Panel.Caption := '';
    533   CoolDockClient.Name := Name + '_CoolDockClient';
     533  CoolDockClient.Name := Name + 'CoolDockClient';
    534534end;
    535535

  • Docking/CoolDocking/URectangle.pas

    r178 r184  
    1818    function GetTopLeft: TPoint;
    1919    function GetTopRight: TPoint;
     20    function GetTRect: TRect;
    2021    function GetWidth: Integer;
    2122    procedure SetBottomLeft(const AValue: TPoint);
    … …  
    2425    procedure SetTopLeft(const AValue: TPoint);
    2526    procedure SetTopRight(const AValue: TPoint);
     27    procedure SetTRect(const AValue: TRect);
    2628    procedure SetWidth(const AValue: Integer);
    2729  public
    … …  
    3840    property BottomLeft: TPoint read GetBottomLeft write SetBottomLeft;
    3941    property BottomRight: TPoint read GetBottomRight write SetBottomRight;
     42
     43    property AsTRect: TRect read GetTRect write SetTRect;
    4044  end;
    4145
    … …  
    7175  Result.X := Right;
    7276  Result.Y := Top;
     77end;
     78
     79function TRectangle.GetTRect: TRect;
     80begin
     81  Result.Left := Left;
     82  Result.Top := Top;
     83  Result.Bottom := Bottom;
     84  Result.Right := Right;
    7385end;
    7486
    … …  
    107119end;
    108120
     121procedure TRectangle.SetTRect(const AValue: TRect);
     122begin
     123  Left := AValue.Left;
     124  Top := AValue.Top;
     125  Bottom := AValue.Bottom;
     126  Right := AValue.Right;
     127end;
     128
    109129procedure TRectangle.SetWidth(const AValue: Integer);
    110130begin
Note: See TracChangeset for help on using the changeset viewer.