Changeset 209 for Docking/CoolDocking


Ignore:
Timestamp:
Mar 18, 2011, 2:16:28 PM (14 years ago)
Author:
george
Message:
 
Location:
Docking/CoolDocking
Files:
5 edited

Legend:

Unmodified
Added
Removed

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

    r208 r209  
    4747      </Item4>
    4848    </RequiredPackages>
    49     <Units Count="62">
     49    <Units Count="65">
    5050      <Unit0>
    5151        <Filename Value="IDE.lpr"/>
    … …  
    6363        <ResourceBaseClass Value="Form"/>
    6464        <UnitName Value="UMainForm"/>
    65         <EditorIndex Value="1"/>
     65        <IsVisibleTab Value="True"/>
     66        <EditorIndex Value="2"/>
    6667        <WindowIndex Value="0"/>
    6768        <TopLine Value="161"/>
    … …  
    106107      <Unit5>
    107108        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\control.inc"/>
    108         <WindowIndex Value="0"/>
    109         <TopLine Value="2414"/>
    110         <CursorPos X="1" Y="2427"/>
    111         <UsageCount Value="78"/>
     109        <EditorIndex Value="8"/>
     110        <WindowIndex Value="0"/>
     111        <TopLine Value="2415"/>
     112        <CursorPos X="43" Y="2423"/>
     113        <UsageCount Value="79"/>
     114        <Loaded Value="True"/>
    112115      </Unit5>
    113116      <Unit6>
    … …  
    124127      <Unit7>
    125128        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\customform.inc"/>
    126         <WindowIndex Value="0"/>
    127         <TopLine Value="1121"/>
    128         <CursorPos X="1" Y="1134"/>
    129         <UsageCount Value="31"/>
     129        <EditorIndex Value="9"/>
     130        <WindowIndex Value="0"/>
     131        <TopLine Value="1350"/>
     132        <CursorPos X="1" Y="1363"/>
     133        <UsageCount Value="32"/>
     134        <Loaded Value="True"/>
    130135      </Unit7>
    131136      <Unit8>
    … …  
    255260        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\controls.pp"/>
    256261        <UnitName Value="Controls"/>
    257         <EditorIndex Value="3"/>
     262        <EditorIndex Value="4"/>
    258263        <WindowIndex Value="0"/>
    259264        <TopLine Value="508"/>
    260265        <CursorPos X="15" Y="521"/>
    261         <UsageCount Value="58"/>
     266        <UsageCount Value="59"/>
    262267        <Loaded Value="True"/>
    263268      </Unit21>
    264269      <Unit22>
    265270        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\wincontrol.inc"/>
    266         <EditorIndex Value="6"/>
    267         <WindowIndex Value="0"/>
    268         <TopLine Value="6712"/>
    269         <CursorPos X="1" Y="6725"/>
     271        <EditorIndex Value="11"/>
     272        <WindowIndex Value="0"/>
     273        <TopLine Value="5327"/>
     274        <CursorPos X="1" Y="5340"/>
    270275        <UsageCount Value="111"/>
    271276        <Loaded Value="True"/>
    … …  
    325330        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    326331        <UnitName Value="UCDManagerTabs"/>
    327         <IsVisibleTab Value="True"/>
    328         <EditorIndex Value="5"/>
    329         <WindowIndex Value="0"/>
    330         <TopLine Value="32"/>
    331         <CursorPos X="1" Y="46"/>
     332        <EditorIndex Value="6"/>
     333        <WindowIndex Value="0"/>
     334        <TopLine Value="264"/>
     335        <CursorPos X="8" Y="266"/>
    332336        <UsageCount Value="130"/>
    333337        <Loaded Value="True"/>
    … …  
    336340        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    337341        <UnitName Value="UCDManagerRegions"/>
    338         <EditorIndex Value="4"/>
    339         <WindowIndex Value="0"/>
    340         <TopLine Value="208"/>
    341         <CursorPos X="3" Y="221"/>
     342        <EditorIndex Value="5"/>
     343        <WindowIndex Value="0"/>
     344        <TopLine Value="329"/>
     345        <CursorPos X="1" Y="339"/>
    342346        <UsageCount Value="129"/>
    343347        <Loaded Value="True"/>
    … …  
    348352        <EditorIndex Value="0"/>
    349353        <WindowIndex Value="0"/>
    350         <TopLine Value="259"/>
    351         <CursorPos X="1" Y="266"/>
     354        <TopLine Value="55"/>
     355        <CursorPos X="30" Y="66"/>
    352356        <UsageCount Value="120"/>
    353357        <Loaded Value="True"/>
    … …  
    376380        <Filename Value="..\..\UCDManager.pas"/>
    377381        <UnitName Value="UCDManager"/>
    378         <EditorIndex Value="2"/>
    379         <WindowIndex Value="0"/>
    380         <TopLine Value="458"/>
    381         <CursorPos X="1" Y="471"/>
     382        <EditorIndex Value="3"/>
     383        <WindowIndex Value="0"/>
     384        <TopLine Value="555"/>
     385        <CursorPos X="11" Y="559"/>
    382386        <UsageCount Value="105"/>
    383387        <Loaded Value="True"/>
    … …  
    386390        <Filename Value="..\..\UCDConjoinForm.pas"/>
    387391        <UnitName Value="UCDConjoinForm"/>
    388         <WindowIndex Value="0"/>
    389         <TopLine Value="38"/>
    390         <CursorPos X="17" Y="51"/>
    391         <UsageCount Value="99"/>
     392        <EditorIndex Value="10"/>
     393        <WindowIndex Value="0"/>
     394        <TopLine Value="32"/>
     395        <CursorPos X="31" Y="34"/>
     396        <UsageCount Value="100"/>
     397        <Loaded Value="True"/>
    392398      </Unit35>
    393399      <Unit36>
    … …  
    522528        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclproc.pas"/>
    523529        <UnitName Value="LCLProc"/>
    524         <WindowIndex Value="0"/>
    525         <TopLine Value="1429"/>
    526         <CursorPos X="1" Y="1442"/>
     530        <EditorIndex Value="7"/>
     531        <WindowIndex Value="0"/>
     532        <TopLine Value="1531"/>
     533        <CursorPos X="1" Y="1544"/>
    527534        <UsageCount Value="25"/>
     535        <Loaded Value="True"/>
    528536      </Unit52>
    529537      <Unit53>
    … …  
    544552      <Unit55>
    545553        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\dragmanager.inc"/>
     554        <EditorIndex Value="12"/>
    546555        <WindowIndex Value="0"/>
    547556        <TopLine Value="553"/>
    548557        <CursorPos X="1" Y="566"/>
    549         <UsageCount Value="10"/>
     558        <UsageCount Value="11"/>
     559        <Loaded Value="True"/>
    550560      </Unit55>
    551561      <Unit56>
    … …  
    566576        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclmessageglue.pas"/>
    567577        <UnitName Value="LCLMessageGlue"/>
    568         <WindowIndex Value="0"/>
    569         <TopLine Value="98"/>
    570         <CursorPos X="1" Y="111"/>
    571         <UsageCount Value="10"/>
     578        <EditorIndex Value="15"/>
     579        <WindowIndex Value="0"/>
     580        <TopLine Value="101"/>
     581        <CursorPos X="1" Y="122"/>
     582        <UsageCount Value="11"/>
     583        <Loaded Value="True"/>
    572584      </Unit58>
    573585      <Unit59>
    574586        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\interfaces\win32\win32proc.pp"/>
    575587        <UnitName Value="win32proc"/>
     588        <EditorIndex Value="16"/>
    576589        <WindowIndex Value="0"/>
    577590        <TopLine Value="756"/>
    578         <CursorPos X="1" Y="769"/>
    579         <UsageCount Value="10"/>
     591        <CursorPos X="1" Y="771"/>
     592        <UsageCount Value="11"/>
     593        <Loaded Value="True"/>
    580594      </Unit59>
    581595      <Unit60>
    582596        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\interfaces\win32\win32wscontrols.pp"/>
    583597        <UnitName Value="Win32WSControls"/>
     598        <EditorIndex Value="17"/>
    584599        <WindowIndex Value="0"/>
    585600        <TopLine Value="474"/>
    586         <CursorPos X="1" Y="487"/>
    587         <UsageCount Value="10"/>
     601        <CursorPos X="1" Y="488"/>
     602        <UsageCount Value="11"/>
     603        <Loaded Value="True"/>
    588604      </Unit60>
    589605      <Unit61>
    … …  
    594610        <UsageCount Value="10"/>
    595611      </Unit61>
     612      <Unit62>
     613        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\pagecontrol.inc"/>
     614        <EditorIndex Value="1"/>
     615        <WindowIndex Value="0"/>
     616        <TopLine Value="112"/>
     617        <CursorPos X="23" Y="123"/>
     618        <UsageCount Value="11"/>
     619        <Loaded Value="True"/>
     620      </Unit62>
     621      <Unit63>
     622        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\customcontrol.inc"/>
     623        <EditorIndex Value="13"/>
     624        <WindowIndex Value="0"/>
     625        <TopLine Value="48"/>
     626        <CursorPos X="1" Y="61"/>
     627        <UsageCount Value="11"/>
     628        <Loaded Value="True"/>
     629      </Unit63>
     630      <Unit64>
     631        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\scrollingwincontrol.inc"/>
     632        <EditorIndex Value="14"/>
     633        <WindowIndex Value="0"/>
     634        <TopLine Value="233"/>
     635        <CursorPos X="1" Y="256"/>
     636        <UsageCount Value="11"/>
     637        <Loaded Value="True"/>
     638      </Unit64>
    596639    </Units>
    597     <JumpHistory Count="30" HistoryIndex="29">
     640    <JumpHistory Count="29" HistoryIndex="28">
    598641      <Position1>
    599642        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    600         <Caret Line="362" Column="1" TopLine="341"/>
     643        <Caret Line="100" Column="1" TopLine="87"/>
    601644      </Position1>
    602645      <Position2>
    603646        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    604         <Caret Line="365" Column="1" TopLine="344"/>
     647        <Caret Line="271" Column="1" TopLine="258"/>
    605648      </Position2>
    606649      <Position3>
    607650        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    608         <Caret Line="366" Column="1" TopLine="345"/>
     651        <Caret Line="272" Column="74" TopLine="258"/>
    609652      </Position3>
    610653      <Position4>
    611654        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    612         <Caret Line="367" Column="1" TopLine="346"/>
     655        <Caret Line="276" Column="1" TopLine="258"/>
    613656      </Position4>
    614657      <Position5>
    615658        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    616         <Caret Line="368" Column="1" TopLine="347"/>
     659        <Caret Line="277" Column="1" TopLine="264"/>
    617660      </Position5>
    618661      <Position6>
    619662        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    620         <Caret Line="369" Column="1" TopLine="348"/>
     663        <Caret Line="280" Column="1" TopLine="264"/>
    621664      </Position6>
    622665      <Position7>
    623666        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    624         <Caret Line="370" Column="1" TopLine="349"/>
     667        <Caret Line="282" Column="1" TopLine="267"/>
    625668      </Position7>
    626669      <Position8>
    627670        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    628         <Caret Line="371" Column="1" TopLine="350"/>
     671        <Caret Line="292" Column="21" TopLine="276"/>
    629672      </Position8>
    630673      <Position9>
    631674        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    632         <Caret Line="372" Column="1" TopLine="351"/>
     675        <Caret Line="276" Column="2" TopLine="273"/>
    633676      </Position9>
    634677      <Position10>
    635         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    636         <Caret Line="373" Column="1" TopLine="352"/>
     678        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclproc.pas"/>
     679        <Caret Line="1544" Column="1" TopLine="1531"/>
    637680      </Position10>
    638681      <Position11>
    639682        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    640         <Caret Line="366" Column="1" TopLine="352"/>
     683        <Caret Line="348" Column="58" TopLine="339"/>
    641684      </Position11>
    642685      <Position12>
    643686        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    644         <Caret Line="367" Column="1" TopLine="352"/>
     687        <Caret Line="277" Column="1" TopLine="264"/>
    645688      </Position12>
    646689      <Position13>
    647690        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    648         <Caret Line="368" Column="1" TopLine="352"/>
     691        <Caret Line="280" Column="1" TopLine="264"/>
    649692      </Position13>
    650693      <Position14>
    651694        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    652         <Caret Line="369" Column="1" TopLine="352"/>
     695        <Caret Line="291" Column="1" TopLine="278"/>
    653696      </Position14>
    654697      <Position15>
    655698        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    656         <Caret Line="370" Column="1" TopLine="352"/>
     699        <Caret Line="293" Column="1" TopLine="278"/>
    657700      </Position15>
    658701      <Position16>
    659702        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    660         <Caret Line="371" Column="1" TopLine="352"/>
     703        <Caret Line="291" Column="4" TopLine="278"/>
    661704      </Position16>
    662705      <Position17>
    663706        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    664         <Caret Line="372" Column="1" TopLine="352"/>
     707        <Caret Line="266" Column="8" TopLine="264"/>
    665708      </Position17>
    666709      <Position18>
    667         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    668         <Caret Line="373" Column="1" TopLine="352"/>
     710        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\control.inc"/>
     711        <Caret Line="2415" Column="16" TopLine="2415"/>
    669712      </Position18>
    670713      <Position19>
    671         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    672         <Caret Line="378" Column="1" TopLine="365"/>
     714        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     715        <Caret Line="165" Column="48" TopLine="147"/>
    673716      </Position19>
    674717      <Position20>
    675         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    676         <Caret Line="379" Column="1" TopLine="329"/>
     718        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     719        <Caret Line="19" Column="55" TopLine="12"/>
    677720      </Position20>
    678721      <Position21>
    679         <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    680         <Caret Line="266" Column="18" TopLine="256"/>
     722        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     723        <Caret Line="63" Column="20" TopLine="59"/>
    681724      </Position21>
    682725      <Position22>
    683         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    684         <Caret Line="271" Column="3" TopLine="266"/>
     726        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     727        <Caret Line="294" Column="3" TopLine="301"/>
    685728      </Position22>
    686729      <Position23>
    687         <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    688         <Caret Line="266" Column="18" TopLine="256"/>
     730        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\dragmanager.inc"/>
     731        <Caret Line="566" Column="1" TopLine="553"/>
    689732      </Position23>
    690733      <Position24>
    691         <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    692         <Caret Line="264" Column="1" TopLine="256"/>
     734        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     735        <Caret Line="298" Column="24" TopLine="285"/>
    693736      </Position24>
    694737      <Position25>
    695         <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    696         <Caret Line="266" Column="1" TopLine="256"/>
     738        <Filename Value="..\..\UCDConjoinForm.pas"/>
     739        <Caret Line="50" Column="20" TopLine="47"/>
    697740      </Position25>
    698741      <Position26>
    699         <Filename Value="..\..\UCDManager.pas"/>
    700         <Caret Line="469" Column="29" TopLine="458"/>
     742        <Filename Value="..\..\UCDConjoinForm.pas"/>
     743        <Caret Line="34" Column="31" TopLine="32"/>
    701744      </Position26>
    702745      <Position27>
    703         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    704         <Caret Line="38" Column="22" TopLine="25"/>
     746        <Filename Value="..\..\UCDManager.pas"/>
     747        <Caret Line="135" Column="40" TopLine="122"/>
    705748      </Position27>
    706749      <Position28>
    707         <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    708         <Caret Line="266" Column="12" TopLine="262"/>
     750        <Filename Value="..\..\UCDManager.pas"/>
     751        <Caret Line="559" Column="11" TopLine="555"/>
    709752      </Position28>
    710753      <Position29>
    711         <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    712         <Caret Line="264" Column="1" TopLine="259"/>
     754        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     755        <Caret Line="339" Column="1" TopLine="329"/>
    713756      </Position29>
    714       <Position30>
    715         <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    716         <Caret Line="266" Column="1" TopLine="259"/>
    717       </Position30>
    718757    </JumpHistory>
    719758  </ProjectOptions>
    … …  
    755794  </CompilerOptions>
    756795  <Debugging>
    757     <BreakPoints Count="2">
    758       <Item1>
    759         <Source Value="..\..\Managers\UCDManagerTabs.pas"/>
    760         <Line Value="270"/>
    761       </Item1>
    762       <Item2>
    763         <Source Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    764         <Line Value="263"/>
    765       </Item2>
    766     </BreakPoints>
    767796    <Watches Count="1">
    768797      <Item1>

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

    r198 r209  
    1818    Align = alClient
    1919    BevelOuter = bvNone
     20    Color = clWindow
     21    ParentColor = False
    2022    TabOrder = 0
    2123  end

  • Docking/CoolDocking/Managers/UCDManagerRegions.pas

    r207 r209  
    1717    PanelHeader: TCDPanelHeader;
    1818    Splitter: TSplitter;
     19    procedure VisibleChange(Sender: TObject); override;
    1920    procedure Paint(Sender: TObject); override;
    2021    constructor Create;
    … …  
    5657{ TCDManagerRegionsItem }
    5758
     59procedure TCDManagerRegionsItem.VisibleChange(Sender: TObject);
     60begin
     61  inherited VisibleChange(Sender);
     62  PanelHeader.Visible := Control.Visible;
     63  Manager.UpdateClientSize;
     64end;
     65
    5866procedure TCDManagerRegionsItem.Paint(Sender: TObject);
    5967var
    … …  
    273281  SplitterTop: Integer;
    274282  BaseAlign: TAlign;
     283  VisibleControlsCount: Integer;
    275284begin
    276285  inherited UpdateClientSize;
    … …  
    280289  SplitterLeft := 0;
    281290  SplitterTop := 0;
     291  VisibleControlsCount := DockSite.VisibleDockClientCount;
     292  DockSite.Visible := VisibleControlsCount > 0;
     293  if VisibleControlsCount = 0 then VisibleControlsCount := 1;
     294
    282295  for I := 0 to DockItems.Count - 1 do
    283   with TCDManagerRegionsItem(DockItems[I]) do begin
     296  with TCDManagerRegionsItem(DockItems[I]) do
     297  begin
    284298    PanelHeader.Left := SplitterLeft;
    285299    PanelHeader.Top := SplitterTop;
    286300    PanelHeader.Height := Self.DockSite.Height div
    287       Self.DockSite.DockClientCount;
     301      VisibleControlsCount;
    288302    PanelHeader.Width := Self.DockSite.Width div
    289       Self.DockSite.DockClientCount;
    290     PanelHeader.Header.Visible := TCDManager(TWinControl(Control).DockManager).HeaderVisible;
     303      VisibleControlsCount;
     304    if Assigned(TWinControl(Control).DockManager) then
     305      PanelHeader.Header.Visible := TCDManager(TWinControl(Control).DockManager).HeaderVisible;
    291306    PanelHeader.Header.Title.Caption := TForm(Control).Caption;
    292307    Paint(Self);

  • Docking/CoolDocking/Managers/UCDManagerTabs.pas

    r208 r209  
    3434    procedure InsertControlPanel(AControl: TControl; InsertAt: TAlign;
    3535      DropCtl: TControl); override;
    36     procedure UpdateClientSize; override;
    3736    function FindControlInPanels(Control: TControl): TCDManagerItem; override;
    3837    function GetHeaderPos: THeaderPos; override;
    … …  
    4140    TabImageList: TImageList;
    4241    PageControl: TPageControl;
     42    procedure UpdateClientSize; override;
    4343    procedure SetHeaderPos(const AValue: THeaderPos); override;
    4444    procedure InsertControlNoUpdate(Control: TControl; InsertAt: TAlign); virtual;
    … …  
    290290  end;
    291291  inherited RemoveControl(Control);
    292   if ClientCount > 1 then UpdateClientSize;
     292  //if ClientCount > 0 then
     293  UpdateClientSize;
    293294end;
    294295
    … …  
    348349
    349350  while PageControl.PageList.Count > DockItems.Count do begin
    350     PageControl.Pages[PageControl.PageCount - 1].Parent := nil;
     351    //PageControl.Pages[PageControl.PageCount - 1].Parent := nil;
    351352    PageControl.Pages[PageControl.PageCount - 1].Free;
    352353    TabImageList.Delete(TabImageList.Count - 1);

  • Docking/CoolDocking/UCDManager.pas

    r208 r209  
    282282  Temp2: TControl;
    283283begin
     284
    284285{  Temp := TControl(Sender);
    285286  if Assigned(Control) then
Note: See TracChangeset for help on using the changeset viewer.