Ignore:
Timestamp:
May 4, 2012, 12:27:25 PM (13 years ago)
Author:
chronos
Message:
  • Fixed: Regions size update on Control visible state change.
  • Added: Support for custom center region selection. Surrounding regions are aligned to edges and keep size on docksite resize.
Location:
Docking/CoolDocking/Demo/Testing
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/Demo/Testing/Demo.lpi

    r355 r359  
    3838      </Item2>
    3939    </RequiredPackages>
    40     <Units Count="114">
     40    <Units Count="115">
    4141      <Unit0>
    4242        <Filename Value="Demo.lpr"/>
    … …  
    5656        <ResourceBaseClass Value="Form"/>
    5757        <UnitName Value="UMainForm"/>
    58         <IsVisibleTab Value="True"/>
    59         <EditorIndex Value="3"/>
    60         <WindowIndex Value="0"/>
    61         <TopLine Value="103"/>
    62         <CursorPos X="1" Y="114"/>
     58        <EditorIndex Value="2"/>
     59        <WindowIndex Value="0"/>
     60        <TopLine Value="119"/>
     61        <CursorPos X="29" Y="132"/>
    6362        <UsageCount Value="201"/>
    6463        <Loaded Value="True"/>
    … …  
    134133        <EditorIndex Value="0"/>
    135134        <WindowIndex Value="0"/>
    136         <TopLine Value="1"/>
    137         <CursorPos X="32" Y="7"/>
     135        <TopLine Value="17"/>
     136        <CursorPos X="75" Y="3"/>
    138137        <UsageCount Value="200"/>
    139138        <Loaded Value="True"/>
    … …  
    335334        <ResourceBaseClass Value="Form"/>
    336335        <UnitName Value="SampleDockableForm"/>
    337         <EditorIndex Value="2"/>
    338336        <WindowIndex Value="0"/>
    339337        <TopLine Value="1"/>
    340338        <CursorPos X="22" Y="17"/>
    341         <UsageCount Value="155"/>
    342         <Loaded Value="True"/>
     339        <UsageCount Value="159"/>
    343340        <DefaultSyntaxHighlighter Value="Delphi"/>
    344341      </Unit31>
    … …  
    450447        <TopLine Value="1"/>
    451448        <CursorPos X="44" Y="45"/>
    452         <UsageCount Value="107"/>
     449        <UsageCount Value="111"/>
    453450        <Loaded Value="True"/>
    454451        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    768765        <Filename Value="..\..\UCDConjoinForm.pas"/>
    769766        <UnitName Value="UCDConjoinForm"/>
    770         <EditorIndex Value="7"/>
     767        <EditorIndex Value="6"/>
    771768        <WindowIndex Value="0"/>
    772769        <TopLine Value="49"/>
    773770        <CursorPos X="1" Y="55"/>
    774         <UsageCount Value="13"/>
     771        <UsageCount Value="15"/>
    775772        <Loaded Value="True"/>
    776773      </Unit82>
    … …  
    778775        <Filename Value="..\..\UCDCommon.pas"/>
    779776        <UnitName Value="UCDCommon"/>
    780         <EditorIndex Value="8"/>
     777        <EditorIndex Value="7"/>
    781778        <WindowIndex Value="0"/>
    782779        <TopLine Value="85"/>
    783780        <CursorPos X="44" Y="88"/>
    784         <UsageCount Value="13"/>
     781        <UsageCount Value="15"/>
    785782        <Loaded Value="True"/>
    786783      </Unit83>
    … …  
    788785        <Filename Value="..\..\UCDManager.pas"/>
    789786        <UnitName Value="UCDManager"/>
    790         <EditorIndex Value="4"/>
    791         <WindowIndex Value="0"/>
    792         <TopLine Value="354"/>
    793         <CursorPos X="1" Y="362"/>
    794         <UsageCount Value="13"/>
     787        <EditorIndex Value="5"/>
     788        <WindowIndex Value="0"/>
     789        <TopLine Value="75"/>
     790        <CursorPos X="65" Y="90"/>
     791        <UsageCount Value="15"/>
    795792        <Loaded Value="True"/>
    796793      </Unit84>
    … …  
    806803        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    807804        <UnitName Value="UCDManagerTabs"/>
    808         <EditorIndex Value="6"/>
    809         <WindowIndex Value="0"/>
    810         <TopLine Value="388"/>
     805        <WindowIndex Value="0"/>
     806        <TopLine Value="382"/>
    811807        <CursorPos X="57" Y="396"/>
    812         <UsageCount Value="13"/>
    813         <Loaded Value="True"/>
     808        <UsageCount Value="14"/>
    814809      </Unit86>
    815810      <Unit87>
    … …  
    952947        <Filename Value="..\..\UCDMaster.pas"/>
    953948        <UnitName Value="UCDMaster"/>
    954         <EditorIndex Value="9"/>
     949        <EditorIndex Value="8"/>
    955950        <WindowIndex Value="0"/>
    956951        <TopLine Value="4"/>
    957952        <CursorPos X="66" Y="11"/>
    958         <UsageCount Value="12"/>
     953        <UsageCount Value="14"/>
    959954        <Loaded Value="True"/>
    960955      </Unit103>
    … …  
    962957        <Filename Value="..\..\UCDClient.pas"/>
    963958        <UnitName Value="UCDClient"/>
    964         <EditorIndex Value="10"/>
     959        <EditorIndex Value="9"/>
    965960        <WindowIndex Value="0"/>
    966961        <TopLine Value="91"/>
    967962        <CursorPos X="1" Y="108"/>
    968         <UsageCount Value="12"/>
     963        <UsageCount Value="14"/>
    969964        <Loaded Value="True"/>
    970965      </Unit104>
    … …  
    972967        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    973968        <UnitName Value="UCDManagerRegions"/>
    974         <EditorIndex Value="5"/>
    975         <WindowIndex Value="0"/>
    976         <TopLine Value="301"/>
    977         <CursorPos X="1" Y="314"/>
    978         <UsageCount Value="11"/>
     969        <IsVisibleTab Value="True"/>
     970        <EditorIndex Value="4"/>
     971        <WindowIndex Value="0"/>
     972        <TopLine Value="77"/>
     973        <CursorPos X="13" Y="86"/>
     974        <UsageCount Value="13"/>
    979975        <Loaded Value="True"/>
    980976      </Unit105>
    … …  
    10381034        <UsageCount Value="10"/>
    10391035      </Unit113>
     1036      <Unit114>
     1037        <Filename Value="..\..\UCDWindowList.pas"/>
     1038        <UnitName Value="UCDWindowList"/>
     1039        <EditorIndex Value="3"/>
     1040        <WindowIndex Value="0"/>
     1041        <TopLine Value="65"/>
     1042        <CursorPos X="51" Y="79"/>
     1043        <UsageCount Value="10"/>
     1044        <Loaded Value="True"/>
     1045      </Unit114>
    10401046    </Units>
    10411047    <JumpHistory Count="30" HistoryIndex="29">
    10421048      <Position1>
    1043         <Filename Value="UMainForm.pas"/>
    1044         <Caret Line="135" Column="14" TopLine="114"/>
     1049        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1050        <Caret Line="389" Column="35" TopLine="381"/>
    10451051      </Position1>
    10461052      <Position2>
    1047         <Filename Value="UMainForm.pas"/>
    1048         <Caret Line="134" Column="14" TopLine="113"/>
     1053        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1054        <Caret Line="46" Column="13" TopLine="20"/>
    10491055      </Position2>
    10501056      <Position3>
    1051         <Filename Value="UMainForm.pas"/>
    1052         <Caret Line="140" Column="3" TopLine="124"/>
     1057        <Filename Value="..\..\UCDManager.pas"/>
     1058        <Caret Line="93" Column="21" TopLine="80"/>
    10531059      </Position3>
    10541060      <Position4>
    10551061        <Filename Value="..\..\UCDManager.pas"/>
    1056         <Caret Line="362" Column="20" TopLine="354"/>
     1062        <Caret Line="151" Column="60" TopLine="130"/>
    10571063      </Position4>
    10581064      <Position5>
    1059         <Filename Value="UMainForm.pas"/>
    1060         <Caret Line="116" Column="1" TopLine="103"/>
     1065        <Filename Value="..\..\UCDManager.pas"/>
     1066        <Caret Line="357" Column="22" TopLine="336"/>
    10611067      </Position5>
    10621068      <Position6>
    1063         <Filename Value="UMainForm.pas"/>
    1064         <Caret Line="118" Column="1" TopLine="103"/>
     1069        <Filename Value="..\..\UCDManager.pas"/>
     1070        <Caret Line="361" Column="16" TopLine="343"/>
    10651071      </Position6>
    10661072      <Position7>
    1067         <Filename Value="UMainForm.pas"/>
    1068         <Caret Line="110" Column="1" TopLine="103"/>
     1073        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1074        <Caret Line="42" Column="37" TopLine="23"/>
    10691075      </Position7>
    10701076      <Position8>
    1071         <Filename Value="UMainForm.pas"/>
    1072         <Caret Line="112" Column="1" TopLine="103"/>
     1077        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1078        <Caret Line="413" Column="40" TopLine="401"/>
    10731079      </Position8>
    10741080      <Position9>
    1075         <Filename Value="UMainForm.pas"/>
    1076         <Caret Line="116" Column="1" TopLine="103"/>
     1081        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1082        <Caret Line="427" Column="49" TopLine="405"/>
    10771083      </Position9>
    10781084      <Position10>
    1079         <Filename Value="UMainForm.pas"/>
    1080         <Caret Line="110" Column="1" TopLine="103"/>
     1085        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1086        <Caret Line="413" Column="1" TopLine="405"/>
    10811087      </Position10>
    10821088      <Position11>
    10831089        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1084         <Caret Line="368" Column="1" TopLine="355"/>
     1090        <Caret Line="414" Column="1" TopLine="405"/>
    10851091      </Position11>
    10861092      <Position12>
    1087         <Filename Value="..\..\UCDManager.pas"/>
    1088         <Caret Line="362" Column="1" TopLine="354"/>
     1093        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1094        <Caret Line="417" Column="1" TopLine="405"/>
    10891095      </Position12>
    10901096      <Position13>
    10911097        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1092         <Caret Line="368" Column="1" TopLine="355"/>
     1098        <Caret Line="419" Column="1" TopLine="405"/>
    10931099      </Position13>
    10941100      <Position14>
    10951101        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1096         <Caret Line="176" Column="1" TopLine="163"/>
     1102        <Caret Line="420" Column="1" TopLine="405"/>
    10971103      </Position14>
    10981104      <Position15>
    1099         <Filename Value="UMainForm.pas"/>
    1100         <Caret Line="116" Column="1" TopLine="103"/>
     1105        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1106        <Caret Line="421" Column="1" TopLine="405"/>
    11011107      </Position15>
    11021108      <Position16>
    1103         <Filename Value="..\..\UCDManager.pas"/>
    1104         <Caret Line="360" Column="1" TopLine="354"/>
     1109        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1110        <Caret Line="422" Column="1" TopLine="405"/>
    11051111      </Position16>
    11061112      <Position17>
    11071113        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1108         <Caret Line="314" Column="1" TopLine="301"/>
     1114        <Caret Line="423" Column="1" TopLine="405"/>
    11091115      </Position17>
    11101116      <Position18>
    1111         <Filename Value="UMainForm.pas"/>
    1112         <Caret Line="108" Column="9" TopLine="103"/>
     1117        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1118        <Caret Line="425" Column="1" TopLine="405"/>
    11131119      </Position18>
    11141120      <Position19>
    1115         <Filename Value="UMainForm.pas"/>
    1116         <Caret Line="115" Column="1" TopLine="103"/>
     1121        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1122        <Caret Line="426" Column="1" TopLine="405"/>
    11171123      </Position19>
    11181124      <Position20>
    1119         <Filename Value="UMainForm.pas"/>
    1120         <Caret Line="116" Column="1" TopLine="103"/>
     1125        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1126        <Caret Line="427" Column="28" TopLine="406"/>
    11211127      </Position20>
    11221128      <Position21>
    1123         <Filename Value="UMainForm.pas"/>
    1124         <Caret Line="109" Column="1" TopLine="103"/>
     1129        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1130        <Caret Line="411" Column="3" TopLine="447"/>
    11251131      </Position21>
    11261132      <Position22>
    1127         <Filename Value="UMainForm.pas"/>
    1128         <Caret Line="110" Column="1" TopLine="103"/>
     1133        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1134        <Caret Line="48" Column="1" TopLine="36"/>
    11291135      </Position22>
    11301136      <Position23>
    1131         <Filename Value="UMainForm.pas"/>
    1132         <Caret Line="115" Column="1" TopLine="103"/>
     1137        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1138        <Caret Line="413" Column="1" TopLine="409"/>
    11331139      </Position23>
    11341140      <Position24>
    1135         <Filename Value="..\..\UCDManager.pas"/>
    1136         <Caret Line="360" Column="1" TopLine="354"/>
     1141        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1142        <Caret Line="427" Column="1" TopLine="409"/>
    11371143      </Position24>
    11381144      <Position25>
    11391145        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1140         <Caret Line="314" Column="1" TopLine="301"/>
     1146        <Caret Line="428" Column="1" TopLine="409"/>
    11411147      </Position25>
    11421148      <Position26>
    1143         <Filename Value="UMainForm.pas"/>
    1144         <Caret Line="109" Column="1" TopLine="103"/>
     1149        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1150        <Caret Line="417" Column="56" TopLine="409"/>
    11451151      </Position26>
    11461152      <Position27>
    1147         <Filename Value="..\..\UCDManager.pas"/>
    1148         <Caret Line="362" Column="1" TopLine="354"/>
     1153        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1154        <Caret Line="84" Column="33" TopLine="71"/>
    11491155      </Position27>
    11501156      <Position28>
    1151         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1152         <Caret Line="368" Column="1" TopLine="355"/>
     1157        <Filename Value="..\..\UCDManager.pas"/>
     1158        <Caret Line="90" Column="65" TopLine="75"/>
    11531159      </Position28>
    11541160      <Position29>
    11551161        <Filename Value="UMainForm.pas"/>
    1156         <Caret Line="115" Column="1" TopLine="103"/>
     1162        <Caret Line="144" Column="5" TopLine="129"/>
    11571163      </Position29>
    11581164      <Position30>
    1159         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1160         <Caret Line="314" Column="1" TopLine="301"/>
     1165        <Filename Value="UMainForm.pas"/>
     1166        <Caret Line="109" Column="25" TopLine="107"/>
    11611167      </Position30>
    11621168    </JumpHistory>

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

    r355 r359  
    99  ComCtrls, ExtCtrls, Buttons, Menus, UCDMaster, UCDCustomize, UCDClient,
    1010  UDockForm, UComponentTree, UCDWindowList, UCDConjoinForm, UCDManager,
    11   UCDCommon;
     11  UCDCommon, UCDManagerRegions;
    1212
    1313type
    … …  
    6969  ConjoinedDockForm2: TCDConjoinForm;
    7070  Form1: TDockForm;
     71  Form2: TDockForm;
     72  Form3: TDockForm;
    7173begin
    72   NewDockForm.ManualDock(Panel1);
    7374  Form1 := NewDockForm;
    74   Form1.ManualDock(Panel1);
    75   NewDockForm.ManualDock(Form1);
    76   TCDManager(Panel1.DockManager).DockStyle := dsTabs;
    77   NewDockForm.ManualDock(Panel1);
     75  Form1.ManualDock(Panel1, nil, alRight);
     76  Form2 := NewDockForm;
     77  Form2.ManualDock(Panel1, nil, alRight);
     78  Form3 := NewDockForm;
     79  Form3.ManualDock(Panel1, nil, alRight);
     80  TCDManagerRegionsItem(TCDPanelHeader(Form2.Parent.Parent).DockItem).SetCenter;
     81
     82  //Form1 := NewDockForm;
     83  //Form1.ManualDock(Panel1);
     84  //NewDockForm.ManualDock(Form1);
     85  //TCDManager(Panel1.DockManager).DockStyle := dsTabs;
     86  //NewDockForm.ManualDock(Panel1);
    7887(*  ConjoinedDockForm1 := TCDManager(Panel1.DockManager).CreateConjoinForm;
    7988  ConjoinedDockForm1.Name := 'Model';;
Note: See TracChangeset for help on using the changeset viewer.