Changeset 192 for Docking


Ignore:
Timestamp:
Mar 11, 2011, 10:44:06 AM (13 years ago)
Author:
george
Message:
  • Moved: Derive dock manager units moved to Managers subdirectory.
Location:
Docking/CoolDocking
Files:
5 added
4 deleted
8 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/CoolDocking.lpk

    r191 r192  
    4646      </Item4>
    4747      <Item5>
    48         <Filename Value="UCDStyleTabs.pas"/>
    49         <UnitName Value="UCDStyleTabs"/>
     48        <Filename Value="Managers\UCDManagerTabs.pas"/>
     49        <UnitName Value="UCDManagerTabs"/>
    5050      </Item5>
    5151      <Item6>
    52         <Filename Value="UCDStyleRegions.pas"/>
    53         <UnitName Value="UCDStyleRegions"/>
     52        <Filename Value="Managers\UCDManagerRegions.pas"/>
     53        <UnitName Value="UCDManagerRegions"/>
    5454      </Item6>
    5555      <Item7>
    56         <Filename Value="UCDStylePopupTabs.pas"/>
    57         <UnitName Value="UCDStylePopupTabs"/>
     56        <Filename Value="Managers\UCDManagerTabsPopup.pas"/>
     57        <UnitName Value="UCDManagerTabsPopup"/>
    5858      </Item7>
    5959      <Item8>
    60         <Filename Value="UCDStylePopupRegions.pas"/>
    61         <UnitName Value="UCDStylePopupRegions"/>
     60        <Filename Value="Managers\UCDManagerRegionsPopup.pas"/>
     61        <UnitName Value="UCDManagerRegionsPopup"/>
    6262      </Item8>
    6363      <Item9>
    … …  
    111111    </RequiredPkgs>
    112112    <UsageOptions>
    113       <UnitPath Value="$(PkgOutDir)"/>
     113      <UnitPath Value="$(PkgOutDir);Managers"/>
    114114    </UsageOptions>
    115115    <PublishOptions>

  • Docking/CoolDocking/CoolDocking.pas

    r191 r192  
    88
    99uses
    10   UCDClient, UCDCustomize, UCDWindowList, UCDStyleTabs, UCDStyleRegions,
    11   UCDStylePopupTabs, UCDStylePopupRegions, UCDClientPanel, UCDPopupMenu,
     10  UCDClient, UCDCustomize, UCDWindowList, UCDManagerTabs, UCDManagerRegions,
     11  UCDManagerTabsPopup, UCDManagerRegionsPopup, UCDClientPanel, UCDPopupMenu,
    1212  UCDLayout, URectangle, UCDCommon, UCDManager, UCDConjoinForm, UCDMaster,
    1313  LazarusPackageIntf;

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

    r191 r192  
    4848        <IsPartOfProject Value="True"/>
    4949        <UnitName Value="IDE"/>
    50         <EditorIndex Value="32"/>
    5150        <WindowIndex Value="0"/>
    5251        <TopLine Value="1"/>
    5352        <CursorPos X="1" Y="1"/>
    54         <UsageCount Value="129"/>
    55         <Loaded Value="True"/>
     53        <UsageCount Value="131"/>
    5654      </Unit0>
    5755      <Unit1>
    … …  
    6159        <ResourceBaseClass Value="Form"/>
    6260        <UnitName Value="UMainForm"/>
    63         <EditorIndex Value="33"/>
    6461        <WindowIndex Value="0"/>
    6562        <TopLine Value="1"/>
    6663        <CursorPos X="18" Y="3"/>
    67         <UsageCount Value="129"/>
    68         <Loaded Value="True"/>
     64        <UsageCount Value="131"/>
    6965      </Unit1>
    7066      <Unit2>
    … …  
    7470        <ResourceBaseClass Value="Form"/>
    7571        <UnitName Value="UObjectInspectorForm"/>
    76         <EditorIndex Value="2"/>
    7772        <WindowIndex Value="0"/>
    7873        <TopLine Value="1"/>
    7974        <CursorPos X="31" Y="17"/>
    80         <UsageCount Value="129"/>
    81         <Loaded Value="True"/>
     75        <UsageCount Value="131"/>
    8276      </Unit2>
    8377      <Unit3>
    … …  
    8781        <ResourceBaseClass Value="Form"/>
    8882        <UnitName Value="UStructureForm"/>
    89         <EditorIndex Value="4"/>
    9083        <WindowIndex Value="0"/>
    9184        <TopLine Value="4"/>
    9285        <CursorPos X="37" Y="17"/>
    93         <UsageCount Value="129"/>
    94         <Loaded Value="True"/>
     86        <UsageCount Value="131"/>
    9587      </Unit3>
    9688      <Unit4>
    … …  
    10092        <ResourceBaseClass Value="Form"/>
    10193        <UnitName Value="UToolPaletteForm"/>
    102         <EditorIndex Value="1"/>
    10394        <WindowIndex Value="0"/>
    10495        <TopLine Value="4"/>
    10596        <CursorPos X="37" Y="17"/>
    106         <UsageCount Value="129"/>
    107         <Loaded Value="True"/>
     97        <UsageCount Value="131"/>
    10898      </Unit4>
    10999      <Unit5>
    110100        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\control.inc"/>
    111         <EditorIndex Value="7"/>
    112101        <WindowIndex Value="0"/>
    113102        <TopLine Value="3176"/>
    114103        <CursorPos X="46" Y="3187"/>
    115104        <UsageCount Value="61"/>
    116         <Loaded Value="True"/>
    117105      </Unit5>
    118106      <Unit6>
    … …  
    122110        <ResourceBaseClass Value="Form"/>
    123111        <UnitName Value="UProjectManagerForm"/>
    124         <EditorIndex Value="3"/>
    125112        <WindowIndex Value="0"/>
    126113        <TopLine Value="4"/>
    127114        <CursorPos X="24" Y="17"/>
    128         <UsageCount Value="129"/>
    129         <Loaded Value="True"/>
     115        <UsageCount Value="131"/>
    130116      </Unit6>
    131117      <Unit7>
    … …  
    142128        <ResourceBaseClass Value="Form"/>
    143129        <UnitName Value="UMessagesForm"/>
    144         <EditorIndex Value="5"/>
    145130        <WindowIndex Value="0"/>
    146131        <TopLine Value="4"/>
    147132        <CursorPos X="25" Y="17"/>
    148         <UsageCount Value="129"/>
    149         <Loaded Value="True"/>
     133        <UsageCount Value="131"/>
    150134      </Unit8>
    151135      <Unit9>
    … …  
    155139        <ResourceBaseClass Value="Form"/>
    156140        <UnitName Value="UCallStackForm"/>
    157         <EditorIndex Value="6"/>
    158141        <WindowIndex Value="0"/>
    159142        <TopLine Value="3"/>
    160143        <CursorPos X="37" Y="16"/>
    161         <UsageCount Value="129"/>
    162         <Loaded Value="True"/>
    163         <LoadedDesigner Value="True"/>
     144        <UsageCount Value="131"/>
    164145      </Unit9>
    165146      <Unit10>
    … …  
    169150        <ResourceBaseClass Value="Form"/>
    170151        <UnitName Value="ULocalVariablesForm"/>
    171         <EditorIndex Value="8"/>
    172152        <WindowIndex Value="0"/>
    173153        <TopLine Value="5"/>
    174154        <CursorPos X="37" Y="18"/>
    175         <UsageCount Value="129"/>
    176         <Loaded Value="True"/>
     155        <UsageCount Value="131"/>
    177156      </Unit10>
    178157      <Unit11>
    … …  
    182161        <ResourceBaseClass Value="Form"/>
    183162        <UnitName Value="UToDoListForm"/>
    184         <EditorIndex Value="9"/>
    185163        <WindowIndex Value="0"/>
    186164        <TopLine Value="4"/>
    187165        <CursorPos X="26" Y="17"/>
    188         <UsageCount Value="129"/>
    189         <Loaded Value="True"/>
     166        <UsageCount Value="131"/>
    190167      </Unit11>
    191168      <Unit12>
    … …  
    195172        <ResourceBaseClass Value="Form"/>
    196173        <UnitName Value="UWatchListForm"/>
    197         <EditorIndex Value="10"/>
    198174        <WindowIndex Value="0"/>
    199175        <TopLine Value="5"/>
    200176        <CursorPos X="37" Y="18"/>
    201         <UsageCount Value="129"/>
    202         <Loaded Value="True"/>
     177        <UsageCount Value="131"/>
    203178      </Unit12>
    204179      <Unit13>
    … …  
    208183        <ResourceBaseClass Value="Form"/>
    209184        <UnitName Value="UThreadStatusForm"/>
    210         <EditorIndex Value="11"/>
    211185        <WindowIndex Value="0"/>
    212186        <TopLine Value="4"/>
    213187        <CursorPos X="37" Y="17"/>
    214         <UsageCount Value="129"/>
    215         <Loaded Value="True"/>
     188        <UsageCount Value="131"/>
    216189      </Unit13>
    217190      <Unit14>
    … …  
    224197        <TopLine Value="6"/>
    225198        <CursorPos X="75" Y="7"/>
    226         <UsageCount Value="127"/>
     199        <UsageCount Value="129"/>
    227200      </Unit14>
    228201      <Unit15>
    … …  
    232205        <WindowIndex Value="0"/>
    233206        <TopLine Value="1"/>
    234         <CursorPos X="25" Y="14"/>
     207        <CursorPos X="1" Y="1"/>
    235208        <UsageCount Value="64"/>
    236209        <Loaded Value="True"/>
    … …  
    239212        <Filename Value="..\..\UCDLayout.pas"/>
    240213        <UnitName Value="UCDLayout"/>
    241         <IsVisibleTab Value="True"/>
    242         <EditorIndex Value="23"/>
    243         <WindowIndex Value="0"/>
    244         <TopLine Value="45"/>
    245         <CursorPos X="45" Y="52"/>
     214        <WindowIndex Value="0"/>
     215        <TopLine Value="36"/>
     216        <CursorPos X="30" Y="43"/>
    246217        <UsageCount Value="64"/>
    247         <Loaded Value="True"/>
    248218      </Unit16>
    249219      <Unit17>
    250220        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\classes\classesh.inc"/>
    251         <EditorIndex Value="28"/>
    252221        <WindowIndex Value="0"/>
    253222        <TopLine Value="376"/>
    254223        <CursorPos X="41" Y="389"/>
    255         <UsageCount Value="35"/>
    256         <Loaded Value="True"/>
     224        <UsageCount Value="36"/>
    257225      </Unit17>
    258226      <Unit18>
    … …  
    274242        <Filename Value="..\..\URectangle.pas"/>
    275243        <UnitName Value="URectangle"/>
    276         <EditorIndex Value="24"/>
    277244        <WindowIndex Value="0"/>
    278245        <TopLine Value="110"/>
    279246        <CursorPos X="18" Y="126"/>
    280247        <UsageCount Value="27"/>
    281         <Loaded Value="True"/>
    282248      </Unit20>
    283249      <Unit21>
    … …  
    295261        <ResourceBaseClass Value="Form"/>
    296262        <UnitName Value="UCDWindowList"/>
    297         <EditorIndex Value="21"/>
    298263        <WindowIndex Value="0"/>
    299264        <TopLine Value="2"/>
    300265        <CursorPos X="20" Y="15"/>
    301266        <UsageCount Value="11"/>
    302         <Loaded Value="True"/>
    303         <LoadedDesigner Value="True"/>
    304267      </Unit22>
    305268      <Unit23>
    306269        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\forms.pp"/>
    307270        <UnitName Value="Forms"/>
    308         <EditorIndex Value="29"/>
    309         <WindowIndex Value="0"/>
    310         <TopLine Value="1623"/>
    311         <CursorPos X="24" Y="1636"/>
     271        <WindowIndex Value="0"/>
     272        <TopLine Value="770"/>
     273        <CursorPos X="22" Y="783"/>
    312274        <UsageCount Value="33"/>
    313         <Loaded Value="True"/>
    314275      </Unit23>
    315276      <Unit24>
    … …  
    345306        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\controls.pp"/>
    346307        <UnitName Value="Controls"/>
    347         <EditorIndex Value="31"/>
    348         <WindowIndex Value="0"/>
    349         <TopLine Value="521"/>
    350         <CursorPos X="3" Y="504"/>
     308        <WindowIndex Value="0"/>
     309        <TopLine Value="3831"/>
     310        <CursorPos X="1" Y="3846"/>
    351311        <UsageCount Value="37"/>
    352         <Loaded Value="True"/>
    353312      </Unit28>
    354313      <Unit29>
    355314        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\wincontrol.inc"/>
    356         <EditorIndex Value="27"/>
    357         <WindowIndex Value="0"/>
    358         <TopLine Value="5374"/>
    359         <CursorPos X="38" Y="5384"/>
    360         <UsageCount Value="29"/>
    361         <Loaded Value="True"/>
     315        <WindowIndex Value="0"/>
     316        <TopLine Value="5393"/>
     317        <CursorPos X="35" Y="5402"/>
     318        <UsageCount Value="30"/>
    362319      </Unit29>
    363320      <Unit30>
    … …  
    374331        <ResourceBaseClass Value="Form"/>
    375332        <UnitName Value="UCDCustomize"/>
    376         <EditorIndex Value="25"/>
    377         <WindowIndex Value="0"/>
    378         <TopLine Value="36"/>
    379         <CursorPos X="35" Y="49"/>
     333        <WindowIndex Value="0"/>
     334        <TopLine Value="2"/>
     335        <CursorPos X="36" Y="15"/>
    380336        <UsageCount Value="50"/>
    381         <Loaded Value="True"/>
    382337      </Unit31>
    383338      <Unit32>
    384339        <Filename Value="..\..\UCDCommon.pas"/>
    385340        <UnitName Value="UCDCommon"/>
    386         <EditorIndex Value="22"/>
    387         <WindowIndex Value="0"/>
    388         <TopLine Value="7"/>
    389         <CursorPos X="30" Y="20"/>
     341        <WindowIndex Value="0"/>
     342        <TopLine Value="188"/>
     343        <CursorPos X="9" Y="212"/>
    390344        <UsageCount Value="55"/>
    391         <Loaded Value="True"/>
    392345      </Unit32>
    393346      <Unit33>
    394347        <Filename Value="..\..\UCDPopupMenu.pas"/>
    395348        <UnitName Value="UCDPopupMenu"/>
    396         <EditorIndex Value="20"/>
    397         <WindowIndex Value="0"/>
    398         <TopLine Value="237"/>
    399         <CursorPos X="25" Y="250"/>
     349        <IsVisibleTab Value="True"/>
     350        <EditorIndex Value="2"/>
     351        <WindowIndex Value="0"/>
     352        <TopLine Value="31"/>
     353        <CursorPos X="38" Y="9"/>
    400354        <UsageCount Value="49"/>
    401355        <Loaded Value="True"/>
    … …  
    456410        <Filename Value="..\..\UCDClientPanel.pas"/>
    457411        <UnitName Value="UCDClientPanel"/>
    458         <EditorIndex Value="13"/>
    459         <WindowIndex Value="0"/>
    460         <TopLine Value="92"/>
     412        <WindowIndex Value="0"/>
     413        <TopLine Value="3"/>
    461414        <CursorPos X="15" Y="102"/>
    462415        <UsageCount Value="38"/>
    463         <Loaded Value="True"/>
    464416      </Unit41>
    465417      <Unit42>
    … …  
    472424      </Unit42>
    473425      <Unit43>
    474         <Filename Value="..\..\UCDStyleTabs.pas"/>
    475         <UnitName Value="UCDStyleTabs"/>
    476         <EditorIndex Value="14"/>
    477         <WindowIndex Value="0"/>
    478         <TopLine Value="8"/>
    479         <CursorPos X="32" Y="15"/>
     426        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
     427        <UnitName Value="UCDManagerTabs"/>
     428        <EditorIndex Value="6"/>
     429        <WindowIndex Value="0"/>
     430        <TopLine Value="133"/>
     431        <CursorPos X="40" Y="145"/>
    480432        <UsageCount Value="37"/>
    481433        <Loaded Value="True"/>
    … …  
    505457      </Unit46>
    506458      <Unit47>
    507         <Filename Value="..\..\UCDStyleRegions.pas"/>
    508         <UnitName Value="UCDStyleRegions"/>
    509         <EditorIndex Value="12"/>
    510         <WindowIndex Value="0"/>
    511         <TopLine Value="195"/>
    512         <CursorPos X="1" Y="208"/>
     459        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     460        <UnitName Value="UCDManagerRegions"/>
     461        <EditorIndex Value="4"/>
     462        <WindowIndex Value="0"/>
     463        <TopLine Value="130"/>
     464        <CursorPos X="1" Y="140"/>
    513465        <UsageCount Value="36"/>
    514466        <Loaded Value="True"/>
    515467      </Unit47>
    516468      <Unit48>
    517         <Filename Value="..\..\UCDStylePopupTabs.pas"/>
    518         <UnitName Value="UCDStylePopupTabs"/>
    519         <EditorIndex Value="16"/>
    520         <WindowIndex Value="0"/>
    521         <TopLine Value="1"/>
    522         <CursorPos X="17" Y="9"/>
     469        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
     470        <UnitName Value="UCDManagerTabsPopup"/>
     471        <EditorIndex Value="1"/>
     472        <WindowIndex Value="0"/>
     473        <TopLine Value="52"/>
     474        <CursorPos X="46" Y="52"/>
    523475        <UsageCount Value="27"/>
    524476        <Loaded Value="True"/>
    … …  
    570522        <TopLine Value="23"/>
    571523        <CursorPos X="15" Y="24"/>
    572         <UsageCount Value="30"/>
     524        <UsageCount Value="32"/>
    573525      </Unit54>
    574526      <Unit55>
    575         <Filename Value="..\..\UCDStylePopupRegions.pas"/>
    576         <UnitName Value="UCDStylePopupRegions"/>
    577         <EditorIndex Value="17"/>
    578         <WindowIndex Value="0"/>
    579         <TopLine Value="1"/>
    580         <CursorPos X="37" Y="8"/>
     527        <Filename Value="..\..\Managers\UCDManagerRegionsPopup.pas"/>
     528        <UnitName Value="UCDManagerRegionsPopup"/>
     529        <EditorIndex Value="3"/>
     530        <WindowIndex Value="0"/>
     531        <TopLine Value="1"/>
     532        <CursorPos X="39" Y="8"/>
    581533        <UsageCount Value="11"/>
    582534        <Loaded Value="True"/>
    … …  
    585537        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\packages\fcl-base\src\custapp.pp"/>
    586538        <UnitName Value="CustApp"/>
    587         <EditorIndex Value="30"/>
    588539        <WindowIndex Value="0"/>
    589540        <TopLine Value="13"/>
    590541        <CursorPos X="3" Y="26"/>
    591542        <UsageCount Value="12"/>
    592         <Loaded Value="True"/>
    593543      </Unit56>
    594544      <Unit57>
    595545        <Filename Value="..\..\UCDManager.pas"/>
    596546        <UnitName Value="UCDManager"/>
    597         <EditorIndex Value="26"/>
    598         <WindowIndex Value="0"/>
    599         <TopLine Value="325"/>
    600         <CursorPos X="7" Y="341"/>
     547        <EditorIndex Value="5"/>
     548        <WindowIndex Value="0"/>
     549        <TopLine Value="56"/>
     550        <CursorPos X="44" Y="69"/>
    601551        <UsageCount Value="12"/>
    602552        <Loaded Value="True"/>
    … …  
    605555        <Filename Value="..\..\UCDConjoinForm.pas"/>
    606556        <UnitName Value="UCDConjoinForm"/>
    607         <EditorIndex Value="19"/>
    608         <WindowIndex Value="0"/>
    609         <TopLine Value="1"/>
    610         <CursorPos X="17" Y="13"/>
     557        <WindowIndex Value="0"/>
     558        <TopLine Value="49"/>
     559        <CursorPos X="1" Y="54"/>
    611560        <UsageCount Value="11"/>
    612         <Loaded Value="True"/>
    613561      </Unit58>
    614562      <Unit59>
    … …  
    623571        <Filename Value="..\..\UCDMaster.pas"/>
    624572        <UnitName Value="UCDMaster"/>
    625         <EditorIndex Value="18"/>
    626573        <WindowIndex Value="0"/>
    627574        <TopLine Value="1"/>
    628575        <CursorPos X="33" Y="8"/>
    629576        <UsageCount Value="11"/>
    630         <Loaded Value="True"/>
    631577      </Unit60>
    632578      <Unit61>
    … …  
    641587        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\comctrls.pp"/>
    642588        <UnitName Value="ComCtrls"/>
    643         <EditorIndex Value="15"/>
    644589        <WindowIndex Value="0"/>
    645590        <TopLine Value="296"/>
    646591        <CursorPos X="14" Y="309"/>
    647         <UsageCount Value="10"/>
    648         <Loaded Value="True"/>
     592        <UsageCount Value="11"/>
    649593      </Unit62>
    650594    </Units>
    651     <JumpHistory Count="28" HistoryIndex="26">
     595    <JumpHistory Count="9" HistoryIndex="8">
    652596      <Position1>
    653         <Filename Value="..\..\UCDPopupMenu.pas"/>
    654         <Caret Line="15" Column="15" TopLine="20"/>
     597        <Filename Value="..\..\UCDManager.pas"/>
     598        <Caret Line="318" Column="17" TopLine="312"/>
    655599      </Position1>
    656600      <Position2>
    657         <Filename Value="..\..\UCDPopupMenu.pas"/>
    658         <Caret Line="202" Column="18" TopLine="189"/>
     601        <Filename Value="..\..\UCDManager.pas"/>
     602        <Caret Line="130" Column="11" TopLine="120"/>
    659603      </Position2>
    660604      <Position3>
    661         <Filename Value="..\..\UCDPopupMenu.pas"/>
    662         <Caret Line="214" Column="18" TopLine="201"/>
     605        <Filename Value="..\..\UCDManager.pas"/>
     606        <Caret Line="100" Column="1" TopLine="100"/>
    663607      </Position3>
    664608      <Position4>
    665         <Filename Value="..\..\UCDPopupMenu.pas"/>
    666         <Caret Line="226" Column="25" TopLine="213"/>
     609        <Filename Value="..\..\UCDManager.pas"/>
     610        <Caret Line="28" Column="1" TopLine="15"/>
    667611      </Position4>
    668612      <Position5>
    669         <Filename Value="..\..\UCDPopupMenu.pas"/>
    670         <Caret Line="238" Column="25" TopLine="225"/>
     613        <Filename Value="..\..\UCDClient.pas"/>
     614        <Caret Line="80" Column="29" TopLine="74"/>
    671615      </Position5>
    672616      <Position6>
    673         <Filename Value="..\..\UCDClientPanel.pas"/>
    674         <Caret Line="27" Column="27" TopLine="14"/>
     617        <Filename Value="..\..\UCDClient.pas"/>
     618        <Caret Line="13" Column="14" TopLine="1"/>
    675619      </Position6>
    676620      <Position7>
    677         <Filename Value="..\..\UCDClientPanel.pas"/>
    678         <Caret Line="70" Column="14" TopLine="57"/>
     621        <Filename Value="..\..\UCDClient.pas"/>
     622        <Caret Line="1" Column="1" TopLine="1"/>
    679623      </Position7>
    680624      <Position8>
    681         <Filename Value="..\..\UCDClientPanel.pas"/>
    682         <Caret Line="86" Column="1" TopLine="73"/>
     625        <Filename Value="..\..\UCDPopupMenu.pas"/>
     626        <Caret Line="250" Column="25" TopLine="237"/>
    683627      </Position8>
    684628      <Position9>
    685         <Filename Value="..\..\UCDClientPanel.pas"/>
    686         <Caret Line="99" Column="1" TopLine="86"/>
     629        <Filename Value="..\..\UCDPopupMenu.pas"/>
     630        <Caret Line="1" Column="1" TopLine="1"/>
    687631      </Position9>
    688       <Position10>
    689         <Filename Value="..\..\UCDClientPanel.pas"/>
    690         <Caret Line="100" Column="1" TopLine="87"/>
    691       </Position10>
    692       <Position11>
    693         <Filename Value="..\..\UCDClientPanel.pas"/>
    694         <Caret Line="98" Column="16" TopLine="89"/>
    695       </Position11>
    696       <Position12>
    697         <Filename Value="..\..\UCDStyleTabs.pas"/>
    698         <Caret Line="15" Column="27" TopLine="14"/>
    699       </Position12>
    700       <Position13>
    701         <Filename Value="..\..\UCDManager.pas"/>
    702         <Caret Line="42" Column="47" TopLine="24"/>
    703       </Position13>
    704       <Position14>
    705         <Filename Value="..\..\UCDClientPanel.pas"/>
    706         <Caret Line="98" Column="16" TopLine="89"/>
    707       </Position14>
    708       <Position15>
    709         <Filename Value="..\..\UCDClientPanel.pas"/>
    710         <Caret Line="102" Column="15" TopLine="92"/>
    711       </Position15>
    712       <Position16>
    713         <Filename Value="..\..\UCDStyleTabs.pas"/>
    714         <Caret Line="15" Column="32" TopLine="8"/>
    715       </Position16>
    716       <Position17>
    717         <Filename Value="..\..\UCDManager.pas"/>
    718         <Caret Line="43" Column="78" TopLine="30"/>
    719       </Position17>
    720       <Position18>
    721         <Filename Value="..\..\UCDMaster.pas"/>
    722         <Caret Line="59" Column="9" TopLine="25"/>
    723       </Position18>
    724       <Position19>
    725         <Filename Value="..\..\UCDMaster.pas"/>
    726         <Caret Line="8" Column="33" TopLine="1"/>
    727       </Position19>
    728       <Position20>
    729         <Filename Value="..\..\UCDManager.pas"/>
    730         <Caret Line="340" Column="27" TopLine="327"/>
    731       </Position20>
    732       <Position21>
    733         <Filename Value="..\..\UCDManager.pas"/>
    734         <Caret Line="44" Column="15" TopLine="31"/>
    735       </Position21>
    736       <Position22>
    737         <Filename Value="..\..\UCDManager.pas"/>
    738         <Caret Line="382" Column="40" TopLine="375"/>
    739       </Position22>
    740       <Position23>
    741         <Filename Value="..\..\UCDManager.pas"/>
    742         <Caret Line="384" Column="16" TopLine="375"/>
    743       </Position23>
    744       <Position24>
    745         <Filename Value="..\..\UCDManager.pas"/>
    746         <Caret Line="385" Column="33" TopLine="371"/>
    747       </Position24>
    748       <Position25>
    749         <Filename Value="..\..\UCDManager.pas"/>
    750         <Caret Line="344" Column="21" TopLine="331"/>
    751       </Position25>
    752       <Position26>
    753         <Filename Value="..\..\UCDManager.pas"/>
    754         <Caret Line="343" Column="1" TopLine="331"/>
    755       </Position26>
    756       <Position27>
    757         <Filename Value="..\..\UCDManager.pas"/>
    758         <Caret Line="341" Column="7" TopLine="325"/>
    759       </Position27>
    760       <Position28>
    761         <Filename Value="..\..\UCDLayout.pas"/>
    762         <Caret Line="596" Column="1" TopLine="571"/>
    763       </Position28>
    764632    </JumpHistory>
    765633  </ProjectOptions>
    … …  
    786654  </CompilerOptions>
    787655  <Debugging>
     656    <BreakPoints Count="1">
     657      <Item1>
     658        <Source Value="..\..\UCDManager.pas"/>
     659        <Line Value="313"/>
     660      </Item1>
     661    </BreakPoints>
    788662    <Watches Count="1">
    789663      <Item1>

  • Docking/CoolDocking/UCDClient.pas

    r191 r192  
    1111  Buttons, ExtCtrls, Contnrs, Forms, ComCtrls, Dialogs, Menus, FileUtil,
    1212  UCDCustomize, DOM, XMLWrite, XMLRead, UCDCommon,
    13   DateUtils, UCDStyleTabs, UCDStyleRegions, UCDStylePopupTabs,
    14   UCDStylePopupRegions, UCDClientPanel,
     13  DateUtils, UCDManagerTabs, UCDManagerRegions, UCDManagerTabsPopup,
     14  UCDManagerRegionsPopup, UCDClientPanel,
    1515  UCDPopupMenu, UCDManager;
    1616

  • Docking/CoolDocking/UCDCommon.pas

    r189 r192  
    210210end;
    211211
    212 
    213 
    214 
    215212end.
    216213

  • Docking/CoolDocking/UCDCustomize.pas

    r189 r192  
    1111type
    1212
    13   { TCoolDockCustomizeForm }
     13  { TCDCustomizeForm }
    1414
    15   TCoolDockCustomizeForm = class(TForm)
     15  TCDCustomizeForm = class(TForm)
    1616  published
    1717    ButtonLayoutDelete: TButton;
    … …  
    5050  private
    5151    FLayoutList: TCDLayoutList;
    52     Form: TCoolDockCustomizeForm;
     52    Form: TCDCustomizeForm;
    5353    procedure SetLayoutList(const AValue: TCDLayoutList);
    5454  public
    … …  
    7070  SEnterNewName = 'Enter new name';
    7171
    72 { TCoolDockCustomizeForm }
     72{ TCDCustomizeForm }
    7373
    74 procedure TCoolDockCustomizeForm.ButtonCloseClick(Sender: TObject);
     74procedure TCDCustomizeForm.ButtonCloseClick(Sender: TObject);
    7575begin
    7676  Close;
    7777end;
    7878
    79 procedure TCoolDockCustomizeForm.ButtonLayoutApplyClick(Sender: TObject);
     79procedure TCDCustomizeForm.ButtonLayoutApplyClick(Sender: TObject);
    8080begin
    8181  if ListBox1.ItemIndex <> - 1 then
    … …  
    8383end;
    8484
    85 procedure TCoolDockCustomizeForm.ButtonLayoutDeleteClick(Sender: TObject);
     85procedure TCDCustomizeForm.ButtonLayoutDeleteClick(Sender: TObject);
    8686begin
    8787  if ListBox1.ItemIndex <> - 1 then begin
    … …  
    9191end;
    9292
    93 procedure TCoolDockCustomizeForm.ButtonLayoutNewClick(Sender: TObject);
     93procedure TCDCustomizeForm.ButtonLayoutNewClick(Sender: TObject);
    9494var
    9595  NewLayout: TCDLayout;
    … …  
    107107end;
    108108
    109 procedure TCoolDockCustomizeForm.ButtonLayoutRenameClick(Sender: TObject);
     109procedure TCDCustomizeForm.ButtonLayoutRenameClick(Sender: TObject);
    110110var
    111111  NewName: string;
    … …  
    118118end;
    119119
    120 procedure TCoolDockCustomizeForm.FormShow(Sender: TObject);
     120procedure TCDCustomizeForm.FormShow(Sender: TObject);
    121121begin
    122122  if Assigned(LayoutList) then begin
    … …  
    125125end;
    126126
    127 procedure TCoolDockCustomizeForm.ListBox1SelectionChange(Sender: TObject;
     127procedure TCDCustomizeForm.ListBox1SelectionChange(Sender: TObject;
    128128  User: boolean);
    129129begin
    … …  
    145145function TCDCustomize.Execute: Boolean;
    146146begin
    147   Form := TCoolDockCustomizeForm.Create(Self);
     147  Form := TCDCustomizeForm.Create(Self);
    148148  if Assigned(Master) then begin
    149149    Form.SpinEdit1.Value := TCDMaster(Master).DefaultMoveSpeed;

  • Docking/CoolDocking/UCDManager.pas

    r191 r192  
    2626    FDockPanels: TCDPanels;
    2727    function GetDockSite: TWinControl;
    28     function GetDockStyle: TCDStyleType;
    2928    function GetHeaderPos: THeaderPos;
    3029    function GetMoveDuration: Integer;
    31     procedure InsertControlPanel(Control: TControl; InsertAt: TAlign;
    32       DropCtl: TControl);
    3330    procedure SetDockStyle(const AValue: TCDStyleType);
    3431    procedure SetHeaderPos(const AValue: THeaderPos);
    … …  
    4340    procedure ChangeVisible(Control: TWinControl; Visible: Boolean); virtual;
    4441    procedure Assign(Source: TCDManager); virtual;
     42    procedure InsertControlPanel(Control: TControl; InsertAt: TAlign;
     43      DropCtl: TControl); virtual;
    4544
    4645    // Inherited from TDockManager
    … …  
    6867    function CreateContainer(InsertAt: TAlign): TCDConjoinForm;
    6968    property DockPanels: TCDPanels read FDockPanels write FDockPanels;
    70     property DockStyle: TCDStyleType read GetDockStyle write SetDockStyle;
     69    property DockStyle: TCDStyleType read FDockStyle write SetDockStyle;
    7170    property MoveDuration: Integer read GetMoveDuration write SetMoveDuration;
    7271    property DockSite: TWinControl read GetDockSite;
    … …  
    7978
    8079uses
    81   UCDStyleRegions, UCDStyleTabs, UCDStylePopupRegions, UCDStylePopupTabs;
     80  UCDManagerRegions, UCDManagerTabs, UCDManagerRegionsPopup, UCDManagerTabsPopup;
    8281
    8382{ TCDManager }
    … …  
    10099end;
    101100
    102 function TCDManager.GetDockStyle: TCDStyleType;
    103 begin
    104   if Self is TCDStyleRegions then Result := dsList
    105   else if Self is TCDStyleTabs then Result := dsTabs
    106   else if Self is TCDStylePopupRegions then Result := dsPopupList
    107   else if Self is TCDStylePopupTabs then Result := dsPopupTabs;
    108 end;
    109 
    110101function TCDManager.GetHeaderPos: THeaderPos;
    111102begin
    … …  
    124115begin
    125116  inherited Create(ADockSite);
     117
    126118  FDockSite := ADockSite;
    127119  FDockPanels := TCDPanels.Create;
    128120
    129   FDockStyle := dsTabs; // To initialize style value have to be different
    130   DockStyle := dsList;
     121  FDockStyle := dsList; // dsNone
    131122  PopupMenu := TCDPopupMenu.Create(Self);
    132123  PopupMenu.Parent := ADockSite;
    … …  
    168159  DropCtl: TControl);
    169160begin
    170   //DockStyleHandler.InsertControl(Control, InsertAt);
    171161end;
    172162
    … …  
    325315    FDockStyle := AValue;
    326316    if AValue = dsTabs then begin
    327       NewManager := TCDStyleTabs.Create(Self);
     317      NewManager := TCDStyleTabs.Create(FDockSite);
    328318      TCDStyleTabs(Self).TabControlChange(Self);
    329319    end else
    330320    if AValue = dsList then begin
    331       NewManager := TCDStyleRegions.Create(Self);
     321      NewManager := TCDStyleRegions.Create(FDockSite);
    332322    end else
    333323    if AValue = dsPopupList then begin
    334       NewManager := TCDStylePopupRegions.Create(Self);
     324      NewManager := TCDStylePopupRegions.Create(FDockSite);
    335325    end else
    336326    if AValue = dsPopupTabs then begin
    337       NewManager := TCDStylePopupTabs.Create(Self);
     327      NewManager := TCDStylePopupTabs.Create(FDockSite);
    338328    end;
    339329    if DockSite.DockManager is TCDManager then
    … …  
    364354procedure TCDManager.UpdateClientSize;
    365355begin
    366 //  DockStyleHandler.UpdateClientSize;
    367356end;
    368357

  • Docking/CoolDocking/UCDPopupMenu.pas

    r191 r192  
    3535
    3636uses
    37   UCDClient, UCDStyleTabs, UCDCustomize, UCDManager;
     37  UCDClient, UCDManagerTabs, UCDCustomize, UCDManager;
    3838
    3939resourcestring
Note: See TracChangeset for help on using the changeset viewer.