Changeset 197 for Docking


Ignore:
Timestamp:
Mar 16, 2011, 7:47:27 AM (13 years ago)
Author:
george
Message:
  • Modified: Docked client header redone to delphi visual style.
Location:
Docking/CoolDocking
Files:
9 added
1 deleted
14 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/CoolDocking.lpk

    r194 r197  
    99      <PathDelim Value="\"/>
    1010      <SearchPaths>
    11         <OtherUnitFiles Value="Managers"/>
     11        <OtherUnitFiles Value="Managers;Common"/>
    1212        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    1313      </SearchPaths>
    … …  
    2727    <License Value="GNU/GPL"/>
    2828    <Version Minor="3"/>
    29     <Files Count="15">
     29    <Files Count="16">
    3030      <Item1>
    3131        <Filename Value="UCDClient.pas"/>
    … …  
    6363      </Item8>
    6464      <Item9>
     65        <Filename Value="Common\URectangle.pas"/>
     66        <UnitName Value="URectangle"/>
     67      </Item9>
     68      <Item10>
    6569        <Filename Value="UCDPopupMenu.pas"/>
    6670        <UnitName Value="UCDPopupMenu"/>
    67       </Item9>
    68       <Item10>
     71      </Item10>
     72      <Item11>
    6973        <Filename Value="UCDLayout.pas"/>
    7074        <HasRegisterProc Value="True"/>
    7175        <UnitName Value="UCDLayout"/>
    72       </Item10>
    73       <Item11>
    74         <Filename Value="URectangle.pas"/>
    75         <UnitName Value="URectangle"/>
    7676      </Item11>
    7777      <Item12>
    … …  
    9292        <UnitName Value="UCDMaster"/>
    9393      </Item15>
     94      <Item16>
     95        <Filename Value="UCDResource.pas"/>
     96        <UnitName Value="UCDResource"/>
     97      </Item16>
    9498    </Files>
    9599    <i18n>
    … …  
    98102    </i18n>
    99103    <Type Value="RunAndDesignTime"/>
    100     <RequiredPkgs Count="2">
     104    <RequiredPkgs Count="3">
    101105      <Item1>
    102         <PackageName Value="LCL"/>
     106        <PackageName Value="LCLBase"/>
    103107      </Item1>
    104108      <Item2>
     109        <PackageName Value="LCL"/>
     110      </Item2>
     111      <Item3>
    105112        <PackageName Value="FCL"/>
    106113        <MinVersion Major="1" Valid="True"/>
    107       </Item2>
     114      </Item3>
    108115    </RequiredPkgs>
    109116    <UsageOptions>
    110       <UnitPath Value="$(PkgOutDir);Managers"/>
     117      <UnitPath Value="$(PkgOutDir);Managers;Common"/>
    111118    </UsageOptions>
    112119    <PublishOptions>

  • Docking/CoolDocking/CoolDocking.pas

    r194 r197  
    99uses
    1010  UCDClient, UCDCustomize, UCDWindowList, UCDManagerTabs, UCDManagerRegions,
    11   UCDManagerTabsPopup, UCDManagerRegionsPopup, UCDPopupMenu, UCDLayout,
    12   URectangle, UCDCommon, UCDManager, UCDConjoinForm, UCDMaster,
     11  UCDManagerTabsPopup, UCDManagerRegionsPopup, URectangle, UCDPopupMenu,
     12  UCDLayout, UCDCommon, UCDManager, UCDConjoinForm, UCDMaster, UCDResource,
    1313  LazarusPackageIntf;
    1414

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

    r195 r197  
    3030      </local>
    3131    </RunParams>
    32     <RequiredPackages Count="3">
     32    <RequiredPackages Count="4">
    3333      <Item1>
     34        <PackageName Value="LCLBase"/>
     35        <MinVersion Major="1" Release="1" Valid="True"/>
     36      </Item1>
     37      <Item2>
    3438        <PackageName Value="SynEdit"/>
    3539        <MinVersion Major="1" Valid="True"/>
    36       </Item1>
    37       <Item2>
     40      </Item2>
     41      <Item3>
    3842        <PackageName Value="CoolDocking"/>
    3943        <MinVersion Minor="2" Valid="True"/>
    40       </Item2>
    41       <Item3>
     44      </Item3>
     45      <Item4>
    4246        <PackageName Value="LCL"/>
    43       </Item3>
     47      </Item4>
    4448    </RequiredPackages>
    45     <Units Count="67">
     49    <Units Count="52">
    4650      <Unit0>
    4751        <Filename Value="IDE.lpr"/>
    … …  
    5054        <WindowIndex Value="0"/>
    5155        <TopLine Value="1"/>
    52         <CursorPos X="1" Y="1"/>
    53         <UsageCount Value="136"/>
     56        <CursorPos X="1" Y="17"/>
     57        <UsageCount Value="314"/>
    5458      </Unit0>
    5559      <Unit1>
    … …  
    5963        <ResourceBaseClass Value="Form"/>
    6064        <UnitName Value="UMainForm"/>
     65        <EditorIndex Value="8"/>
    6166        <WindowIndex Value="0"/>
    6267        <TopLine Value="1"/>
    63         <CursorPos X="18" Y="3"/>
    64         <UsageCount Value="136"/>
     68        <CursorPos X="1" Y="17"/>
     69        <UsageCount Value="314"/>
     70        <Loaded Value="True"/>
     71        <LoadedDesigner Value="True"/>
    6572      </Unit1>
    6673      <Unit2>
    … …  
    7380        <TopLine Value="1"/>
    7481        <CursorPos X="31" Y="17"/>
    75         <UsageCount Value="136"/>
     82        <UsageCount Value="314"/>
    7683      </Unit2>
    7784      <Unit3>
    … …  
    8491        <TopLine Value="4"/>
    8592        <CursorPos X="37" Y="17"/>
    86         <UsageCount Value="136"/>
     93        <UsageCount Value="314"/>
    8794      </Unit3>
    8895      <Unit4>
    … …  
    95102        <TopLine Value="4"/>
    96103        <CursorPos X="37" Y="17"/>
    97         <UsageCount Value="136"/>
     104        <UsageCount Value="314"/>
    98105      </Unit4>
    99106      <Unit5>
    100107        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\control.inc"/>
    101         <WindowIndex Value="0"/>
    102         <TopLine Value="1070"/>
    103         <CursorPos X="1" Y="1083"/>
    104         <UsageCount Value="61"/>
     108        <EditorIndex Value="12"/>
     109        <WindowIndex Value="0"/>
     110        <TopLine Value="2320"/>
     111        <CursorPos X="1" Y="2333"/>
     112        <UsageCount Value="59"/>
     113        <Loaded Value="True"/>
    105114      </Unit5>
    106115      <Unit6>
    … …  
    113122        <TopLine Value="4"/>
    114123        <CursorPos X="24" Y="17"/>
    115         <UsageCount Value="136"/>
     124        <UsageCount Value="314"/>
    116125      </Unit6>
    117126      <Unit7>
    … …  
    120129        <TopLine Value="941"/>
    121130        <CursorPos X="1" Y="954"/>
    122         <UsageCount Value="58"/>
     131        <UsageCount Value="37"/>
    123132      </Unit7>
    124133      <Unit8>
    … …  
    131140        <TopLine Value="4"/>
    132141        <CursorPos X="25" Y="17"/>
    133         <UsageCount Value="136"/>
     142        <UsageCount Value="314"/>
    134143      </Unit8>
    135144      <Unit9>
    … …  
    142151        <TopLine Value="3"/>
    143152        <CursorPos X="37" Y="16"/>
    144         <UsageCount Value="136"/>
     153        <UsageCount Value="314"/>
    145154      </Unit9>
    146155      <Unit10>
    … …  
    153162        <TopLine Value="5"/>
    154163        <CursorPos X="37" Y="18"/>
    155         <UsageCount Value="136"/>
     164        <UsageCount Value="314"/>
    156165      </Unit10>
    157166      <Unit11>
    … …  
    164173        <TopLine Value="4"/>
    165174        <CursorPos X="26" Y="17"/>
    166         <UsageCount Value="136"/>
     175        <UsageCount Value="314"/>
    167176      </Unit11>
    168177      <Unit12>
    … …  
    175184        <TopLine Value="5"/>
    176185        <CursorPos X="37" Y="18"/>
    177         <UsageCount Value="136"/>
     186        <UsageCount Value="314"/>
    178187      </Unit12>
    179188      <Unit13>
    … …  
    186195        <TopLine Value="4"/>
    187196        <CursorPos X="37" Y="17"/>
    188         <UsageCount Value="136"/>
     197        <UsageCount Value="314"/>
    189198      </Unit13>
    190199      <Unit14>
    … …  
    197206        <TopLine Value="6"/>
    198207        <CursorPos X="75" Y="7"/>
    199         <UsageCount Value="134"/>
     208        <UsageCount Value="312"/>
    200209      </Unit14>
    201210      <Unit15>
    … …  
    206215        <TopLine Value="1"/>
    207216        <CursorPos X="14" Y="13"/>
    208         <UsageCount Value="68"/>
     217        <UsageCount Value="157"/>
    209218        <Loaded Value="True"/>
    210219      </Unit15>
    … …  
    212221        <Filename Value="..\..\UCDLayout.pas"/>
    213222        <UnitName Value="UCDLayout"/>
    214         <WindowIndex Value="0"/>
    215         <TopLine Value="36"/>
    216         <CursorPos X="30" Y="43"/>
    217         <UsageCount Value="64"/>
     223        <EditorIndex Value="19"/>
     224        <WindowIndex Value="0"/>
     225        <TopLine Value="1"/>
     226        <CursorPos X="22" Y="16"/>
     227        <UsageCount Value="66"/>
     228        <Loaded Value="True"/>
    218229      </Unit16>
    219230      <Unit17>
    … …  
    222233        <TopLine Value="1524"/>
    223234        <CursorPos X="5" Y="1537"/>
    224         <UsageCount Value="37"/>
     235        <UsageCount Value="16"/>
    225236      </Unit17>
    226237      <Unit18>
    227         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\types.pp"/>
    228         <UnitName Value="types"/>
    229         <WindowIndex Value="0"/>
    230         <TopLine Value="274"/>
    231         <CursorPos X="10" Y="287"/>
    232         <UsageCount Value="13"/>
     238        <Filename Value="..\..\Common\URectangle.pas"/>
     239        <UnitName Value="URectangle"/>
     240        <EditorIndex Value="18"/>
     241        <WindowIndex Value="0"/>
     242        <TopLine Value="110"/>
     243        <CursorPos X="18" Y="126"/>
     244        <UsageCount Value="31"/>
     245        <Loaded Value="True"/>
    233246      </Unit18>
    234247      <Unit19>
    235         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\win\wininc\struct.inc"/>
    236         <WindowIndex Value="0"/>
    237         <TopLine Value="220"/>
    238         <CursorPos X="16" Y="233"/>
    239         <UsageCount Value="3"/>
     248        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\forms.pp"/>
     249        <UnitName Value="Forms"/>
     250        <WindowIndex Value="0"/>
     251        <TopLine Value="770"/>
     252        <CursorPos X="22" Y="783"/>
     253        <UsageCount Value="12"/>
    240254      </Unit19>
    241255      <Unit20>
    242         <Filename Value="..\..\URectangle.pas"/>
    243         <UnitName Value="URectangle"/>
    244         <WindowIndex Value="0"/>
    245         <TopLine Value="110"/>
    246         <CursorPos X="18" Y="126"/>
    247         <UsageCount Value="27"/>
     256        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\customcombobox.inc"/>
     257        <WindowIndex Value="0"/>
     258        <TopLine Value="913"/>
     259        <CursorPos X="1" Y="930"/>
     260        <UsageCount Value="5"/>
    248261      </Unit20>
    249262      <Unit21>
    250         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\packages\fcl-xml\src\xmlread.pp"/>
    251         <UnitName Value="XMLRead"/>
    252         <WindowIndex Value="0"/>
    253         <TopLine Value="34"/>
    254         <CursorPos X="11" Y="47"/>
    255         <UsageCount Value="3"/>
     263        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\controls.pp"/>
     264        <UnitName Value="Controls"/>
     265        <EditorIndex Value="14"/>
     266        <WindowIndex Value="0"/>
     267        <TopLine Value="1389"/>
     268        <CursorPos X="14" Y="1432"/>
     269        <UsageCount Value="35"/>
     270        <Loaded Value="True"/>
    256271      </Unit21>
    257272      <Unit22>
    258         <Filename Value="..\..\UCDWindowList.pas"/>
    259         <ComponentName Value="CoolDockWindowListForm"/>
    260         <HasResources Value="True"/>
    261         <ResourceBaseClass Value="Form"/>
    262         <UnitName Value="UCDWindowList"/>
    263         <WindowIndex Value="0"/>
    264         <TopLine Value="2"/>
    265         <CursorPos X="20" Y="15"/>
    266         <UsageCount Value="11"/>
     273        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\wincontrol.inc"/>
     274        <WindowIndex Value="0"/>
     275        <TopLine Value="7151"/>
     276        <CursorPos X="1" Y="7164"/>
     277        <UsageCount Value="115"/>
    267278      </Unit22>
    268279      <Unit23>
    269         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\forms.pp"/>
    270         <UnitName Value="Forms"/>
    271         <WindowIndex Value="0"/>
    272         <TopLine Value="770"/>
    273         <CursorPos X="22" Y="783"/>
    274         <UsageCount Value="33"/>
     280        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\toolbutton.inc"/>
     281        <WindowIndex Value="0"/>
     282        <TopLine Value="751"/>
     283        <CursorPos X="1" Y="764"/>
     284        <UsageCount Value="3"/>
    275285      </Unit23>
    276286      <Unit24>
    277         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\packages\fcl-xml\src\xmlwrite.pp"/>
    278         <UnitName Value="XMLWrite"/>
    279         <WindowIndex Value="0"/>
    280         <TopLine Value="835"/>
    281         <CursorPos X="3" Y="837"/>
    282         <UsageCount Value="10"/>
     287        <Filename Value="..\..\UCDCustomize.pas"/>
     288        <ComponentName Value="CDCustomizeForm"/>
     289        <HasResources Value="True"/>
     290        <ResourceBaseClass Value="Form"/>
     291        <UnitName Value="UCDCustomize"/>
     292        <EditorIndex Value="5"/>
     293        <WindowIndex Value="0"/>
     294        <TopLine Value="145"/>
     295        <CursorPos X="34" Y="147"/>
     296        <UsageCount Value="141"/>
     297        <Loaded Value="True"/>
     298        <LoadedDesigner Value="True"/>
    283299      </Unit24>
    284300      <Unit25>
    285         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\customcombobox.inc"/>
    286         <WindowIndex Value="0"/>
    287         <TopLine Value="913"/>
    288         <CursorPos X="1" Y="930"/>
    289         <UsageCount Value="26"/>
     301        <Filename Value="..\..\UCDCommon.pas"/>
     302        <UnitName Value="UCDCommon"/>
     303        <EditorIndex Value="7"/>
     304        <WindowIndex Value="0"/>
     305        <TopLine Value="30"/>
     306        <CursorPos X="4" Y="37"/>
     307        <UsageCount Value="56"/>
     308        <Loaded Value="True"/>
    290309      </Unit25>
    291310      <Unit26>
    292         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\containedaction.inc"/>
    293         <WindowIndex Value="0"/>
    294         <TopLine Value="91"/>
    295         <CursorPos X="1" Y="104"/>
    296         <UsageCount Value="9"/>
    297       </Unit26>
    298       <Unit27>
    299         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\customaction.inc"/>
    300         <WindowIndex Value="0"/>
    301         <TopLine Value="239"/>
    302         <CursorPos X="1" Y="252"/>
    303         <UsageCount Value="4"/>
    304       </Unit27>
    305       <Unit28>
    306         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\controls.pp"/>
    307         <UnitName Value="Controls"/>
    308         <WindowIndex Value="0"/>
    309         <TopLine Value="3831"/>
    310         <CursorPos X="1" Y="3846"/>
    311         <UsageCount Value="37"/>
    312       </Unit28>
    313       <Unit29>
    314         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\wincontrol.inc"/>
    315         <EditorIndex Value="9"/>
    316         <WindowIndex Value="0"/>
    317         <TopLine Value="6253"/>
    318         <CursorPos X="1" Y="6270"/>
    319         <UsageCount Value="29"/>
    320         <Loaded Value="True"/>
    321       </Unit29>
    322       <Unit30>
    323         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\toolbutton.inc"/>
    324         <WindowIndex Value="0"/>
    325         <TopLine Value="751"/>
    326         <CursorPos X="1" Y="764"/>
    327         <UsageCount Value="24"/>
    328       </Unit30>
    329       <Unit31>
    330         <Filename Value="..\..\UCDCustomize.pas"/>
    331         <ComponentName Value="CoolDockCustomizeForm"/>
    332         <HasResources Value="True"/>
    333         <ResourceBaseClass Value="Form"/>
    334         <UnitName Value="UCDCustomize"/>
    335         <EditorIndex Value="5"/>
    336         <WindowIndex Value="0"/>
    337         <TopLine Value="22"/>
    338         <CursorPos X="36" Y="36"/>
    339         <UsageCount Value="52"/>
    340         <Loaded Value="True"/>
    341         <LoadedDesigner Value="True"/>
    342       </Unit31>
    343       <Unit32>
    344         <Filename Value="..\..\UCDCommon.pas"/>
    345         <UnitName Value="UCDCommon"/>
    346         <WindowIndex Value="0"/>
    347         <TopLine Value="1"/>
    348         <CursorPos X="1" Y="1"/>
    349         <UsageCount Value="55"/>
    350       </Unit32>
    351       <Unit33>
    352311        <Filename Value="..\..\UCDPopupMenu.pas"/>
    353312        <UnitName Value="UCDPopupMenu"/>
    … …  
    356315        <TopLine Value="255"/>
    357316        <CursorPos X="27" Y="268"/>
    358         <UsageCount Value="53"/>
    359         <Loaded Value="True"/>
    360       </Unit33>
    361       <Unit34>
    362         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\dialogs.pp"/>
    363         <UnitName Value="Dialogs"/>
    364         <WindowIndex Value="0"/>
    365         <TopLine Value="503"/>
    366         <CursorPos X="10" Y="516"/>
    367         <UsageCount Value="20"/>
    368       </Unit34>
    369       <Unit35>
    370         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\classes\compon.inc"/>
    371         <WindowIndex Value="0"/>
    372         <TopLine Value="539"/>
    373         <CursorPos X="3" Y="544"/>
    374         <UsageCount Value="3"/>
    375       </Unit35>
    376       <Unit36>
    377         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\scrollingwincontrol.inc"/>
    378         <WindowIndex Value="0"/>
    379         <TopLine Value="224"/>
    380         <CursorPos X="29" Y="238"/>
    381         <UsageCount Value="5"/>
    382       </Unit36>
    383       <Unit37>
    384         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\classes\classes.inc"/>
    385         <WindowIndex Value="0"/>
    386         <TopLine Value="514"/>
    387         <CursorPos X="60" Y="523"/>
    388         <UsageCount Value="10"/>
    389       </Unit37>
    390       <Unit38>
    391         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\classes\cregist.inc"/>
    392         <WindowIndex Value="0"/>
    393         <TopLine Value="79"/>
    394         <CursorPos X="14" Y="82"/>
    395         <UsageCount Value="4"/>
    396       </Unit38>
    397       <Unit39>
     317        <UsageCount Value="142"/>
     318        <Loaded Value="True"/>
     319      </Unit26>
     320      <Unit27>
    398321        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclclasses.pp"/>
    399322        <UnitName Value="LCLClasses"/>
    … …  
    401324        <TopLine Value="32"/>
    402325        <CursorPos X="20" Y="45"/>
    403         <UsageCount Value="28"/>
    404       </Unit39>
    405       <Unit40>
     326        <UsageCount Value="7"/>
     327      </Unit27>
     328      <Unit28>
    406329        <Filename Value="..\..\UCDStyle.pas"/>
    407330        <UnitName Value="UCDStyle"/>
    … …  
    409332        <TopLine Value="1"/>
    410333        <CursorPos X="24" Y="16"/>
    411         <UsageCount Value="36"/>
    412       </Unit40>
    413       <Unit41>
     334        <UsageCount Value="15"/>
     335      </Unit28>
     336      <Unit29>
    414337        <Filename Value="..\..\UCDClientPanel.pas"/>
    415338        <UnitName Value="UCDClientPanel"/>
    … …  
    417340        <TopLine Value="1"/>
    418341        <CursorPos X="5" Y="11"/>
    419         <UsageCount Value="39"/>
    420       </Unit41>
    421       <Unit42>
    422         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclproc.pas"/>
    423         <UnitName Value="LCLProc"/>
    424         <WindowIndex Value="0"/>
    425         <TopLine Value="1531"/>
    426         <CursorPos X="33" Y="1544"/>
    427         <UsageCount Value="4"/>
    428       </Unit42>
    429       <Unit43>
     342        <UsageCount Value="18"/>
     343      </Unit29>
     344      <Unit30>
    430345        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    431346        <UnitName Value="UCDManagerTabs"/>
    432         <EditorIndex Value="8"/>
    433         <WindowIndex Value="0"/>
    434         <TopLine Value="31"/>
    435         <CursorPos X="15" Y="44"/>
    436         <UsageCount Value="41"/>
    437         <Loaded Value="True"/>
    438       </Unit43>
    439       <Unit44>
    440         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\themes.pas"/>
    441         <UnitName Value="Themes"/>
    442         <WindowIndex Value="0"/>
    443         <TopLine Value="45"/>
    444         <CursorPos X="28" Y="558"/>
    445         <UsageCount Value="4"/>
    446       </Unit44>
    447       <Unit45>
    448         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\interfaces\win32\win32wsforms.pp"/>
    449         <UnitName Value="Win32WSForms"/>
    450         <WindowIndex Value="0"/>
    451         <TopLine Value="344"/>
    452         <CursorPos X="1" Y="357"/>
    453         <UsageCount Value="4"/>
    454       </Unit45>
    455       <Unit46>
    456         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\interfaces\win32\win32callback.inc"/>
    457         <WindowIndex Value="0"/>
    458         <TopLine Value="2403"/>
    459         <CursorPos X="74" Y="2413"/>
    460         <UsageCount Value="4"/>
    461       </Unit46>
    462       <Unit47>
     347        <EditorIndex Value="17"/>
     348        <WindowIndex Value="0"/>
     349        <TopLine Value="11"/>
     350        <CursorPos X="3" Y="24"/>
     351        <UsageCount Value="130"/>
     352        <Loaded Value="True"/>
     353      </Unit30>
     354      <Unit31>
    463355        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    464356        <UnitName Value="UCDManagerRegions"/>
    465         <IsVisibleTab Value="True"/>
    466         <EditorIndex Value="6"/>
    467         <WindowIndex Value="0"/>
    468         <TopLine Value="96"/>
    469         <CursorPos X="44" Y="112"/>
    470         <UsageCount Value="40"/>
    471         <Loaded Value="True"/>
    472       </Unit47>
    473       <Unit48>
     357        <EditorIndex Value="9"/>
     358        <WindowIndex Value="0"/>
     359        <TopLine Value="12"/>
     360        <CursorPos X="39" Y="16"/>
     361        <UsageCount Value="129"/>
     362        <Loaded Value="True"/>
     363      </Unit31>
     364      <Unit32>
    474365        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    475366        <UnitName Value="UCDManagerTabsPopup"/>
    476367        <EditorIndex Value="2"/>
    477368        <WindowIndex Value="0"/>
    478         <TopLine Value="190"/>
    479         <CursorPos X="3" Y="202"/>
    480         <UsageCount Value="31"/>
    481         <Loaded Value="True"/>
    482       </Unit48>
    483       <Unit49>
     369        <TopLine Value="146"/>
     370        <CursorPos X="15" Y="159"/>
     371        <UsageCount Value="120"/>
     372        <Loaded Value="True"/>
     373      </Unit32>
     374      <Unit33>
    484375        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\dragmanager.inc"/>
    485376        <WindowIndex Value="0"/>
    486377        <TopLine Value="762"/>
    487378        <CursorPos X="1" Y="775"/>
    488         <UsageCount Value="25"/>
    489       </Unit49>
    490       <Unit50>
     379        <UsageCount Value="4"/>
     380      </Unit33>
     381      <Unit34>
    491382        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\dragobject.inc"/>
    492383        <WindowIndex Value="0"/>
    493384        <TopLine Value="148"/>
    494385        <CursorPos X="32" Y="160"/>
    495         <UsageCount Value="25"/>
    496       </Unit50>
    497       <Unit51>
     386        <UsageCount Value="4"/>
     387      </Unit34>
     388      <Unit35>
    498389        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\lclintfh.inc"/>
    499390        <WindowIndex Value="0"/>
    500391        <TopLine Value="53"/>
    501392        <CursorPos X="11" Y="66"/>
    502         <UsageCount Value="25"/>
    503       </Unit51>
    504       <Unit52>
     393        <UsageCount Value="4"/>
     394      </Unit35>
     395      <Unit36>
    505396        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\lclintf.inc"/>
    506397        <WindowIndex Value="0"/>
    507398        <TopLine Value="141"/>
    508399        <CursorPos X="3" Y="143"/>
    509         <UsageCount Value="25"/>
    510       </Unit52>
    511       <Unit53>
     400        <UsageCount Value="4"/>
     401      </Unit36>
     402      <Unit37>
    512403        <Filename Value="..\..\ReadMe.txt"/>
    513404        <WindowIndex Value="0"/>
    514405        <TopLine Value="2"/>
    515406        <CursorPos X="40" Y="3"/>
    516         <UsageCount Value="24"/>
     407        <UsageCount Value="3"/>
    517408        <DefaultSyntaxHighlighter Value="None"/>
    518       </Unit53>
    519       <Unit54>
     409      </Unit37>
     410      <Unit38>
    520411        <Filename Value="UComponentTree.pas"/>
    521412        <IsPartOfProject Value="True"/>
    … …  
    527418        <TopLine Value="23"/>
    528419        <CursorPos X="15" Y="24"/>
    529         <UsageCount Value="37"/>
    530       </Unit54>
    531       <Unit55>
    532         <Filename Value="..\..\Managers\UCDManagerRegionsPopup.pas"/>
    533         <UnitName Value="UCDManagerRegionsPopup"/>
    534         <WindowIndex Value="0"/>
    535         <TopLine Value="14"/>
    536         <CursorPos X="25" Y="27"/>
    537         <UsageCount Value="13"/>
    538       </Unit55>
    539       <Unit56>
    540         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\packages\fcl-base\src\custapp.pp"/>
    541         <UnitName Value="CustApp"/>
    542         <WindowIndex Value="0"/>
    543         <TopLine Value="13"/>
    544         <CursorPos X="3" Y="26"/>
    545         <UsageCount Value="12"/>
    546       </Unit56>
    547       <Unit57>
     420        <UsageCount Value="215"/>
     421      </Unit38>
     422      <Unit39>
    548423        <Filename Value="..\..\UCDManager.pas"/>
    549424        <UnitName Value="UCDManager"/>
    550         <EditorIndex Value="7"/>
    551         <WindowIndex Value="0"/>
    552         <TopLine Value="49"/>
    553         <CursorPos X="23" Y="64"/>
    554         <UsageCount Value="16"/>
    555         <Loaded Value="True"/>
    556       </Unit57>
    557       <Unit58>
     425        <IsVisibleTab Value="True"/>
     426        <EditorIndex Value="10"/>
     427        <WindowIndex Value="0"/>
     428        <TopLine Value="51"/>
     429        <CursorPos X="34" Y="72"/>
     430        <UsageCount Value="105"/>
     431        <Loaded Value="True"/>
     432      </Unit39>
     433      <Unit40>
    558434        <Filename Value="..\..\UCDConjoinForm.pas"/>
    559435        <UnitName Value="UCDConjoinForm"/>
    … …  
    562438        <TopLine Value="1"/>
    563439        <CursorPos X="31" Y="8"/>
    564         <UsageCount Value="15"/>
    565         <Loaded Value="True"/>
    566       </Unit58>
    567       <Unit59>
     440        <UsageCount Value="104"/>
     441        <Loaded Value="True"/>
     442      </Unit40>
     443      <Unit41>
    568444        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\extctrls.pp"/>
    569445        <UnitName Value="ExtCtrls"/>
    570         <EditorIndex Value="10"/>
    571         <WindowIndex Value="0"/>
    572         <TopLine Value="122"/>
    573         <CursorPos X="14" Y="225"/>
    574         <UsageCount Value="10"/>
    575         <Loaded Value="True"/>
    576       </Unit59>
    577       <Unit60>
     446        <EditorIndex Value="11"/>
     447        <WindowIndex Value="0"/>
     448        <TopLine Value="1132"/>
     449        <CursorPos X="14" Y="1178"/>
     450        <UsageCount Value="97"/>
     451        <Loaded Value="True"/>
     452      </Unit41>
     453      <Unit42>
    578454        <Filename Value="..\..\UCDMaster.pas"/>
    579455        <UnitName Value="UCDMaster"/>
    … …  
    582458        <TopLine Value="2"/>
    583459        <CursorPos X="38" Y="8"/>
    584         <UsageCount Value="13"/>
    585         <Loaded Value="True"/>
    586       </Unit60>
    587       <Unit61>
    588         <Filename Value="..\..\CoolDocking.pas"/>
    589         <UnitName Value="CoolDocking"/>
    590         <WindowIndex Value="0"/>
    591         <TopLine Value="1"/>
    592         <CursorPos X="1" Y="1"/>
    593         <UsageCount Value="9"/>
    594       </Unit61>
    595       <Unit62>
     460        <UsageCount Value="102"/>
     461        <Loaded Value="True"/>
     462      </Unit42>
     463      <Unit43>
    596464        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\comctrls.pp"/>
    597465        <UnitName Value="ComCtrls"/>
    598         <EditorIndex Value="11"/>
    599466        <WindowIndex Value="0"/>
    600467        <TopLine Value="286"/>
    601468        <CursorPos X="43" Y="299"/>
    602         <UsageCount Value="11"/>
    603         <Loaded Value="True"/>
    604       </Unit62>
    605       <Unit63>
    606         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\customnotebook.inc"/>
    607         <WindowIndex Value="0"/>
    608         <TopLine Value="679"/>
    609         <CursorPos X="1" Y="692"/>
    610         <UsageCount Value="10"/>
    611       </Unit63>
    612       <Unit64>
    613         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\menuitem.inc"/>
    614         <WindowIndex Value="0"/>
    615         <TopLine Value="64"/>
    616         <CursorPos X="26" Y="74"/>
    617         <UsageCount Value="10"/>
    618       </Unit64>
    619       <Unit65>
    620         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lcltype.pp"/>
    621         <UnitName Value="LCLType"/>
    622         <WindowIndex Value="0"/>
    623         <TopLine Value="114"/>
    624         <CursorPos X="3" Y="127"/>
    625         <UsageCount Value="12"/>
    626       </Unit65>
    627       <Unit66>
    628         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\menu.inc"/>
    629         <WindowIndex Value="0"/>
    630         <TopLine Value="115"/>
    631         <CursorPos X="1" Y="128"/>
    632         <UsageCount Value="10"/>
    633       </Unit66>
     469        <UsageCount Value="97"/>
     470      </Unit43>
     471      <Unit44>
     472        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\spinedit.inc"/>
     473        <WindowIndex Value="0"/>
     474        <TopLine Value="136"/>
     475        <CursorPos X="3" Y="138"/>
     476        <UsageCount Value="7"/>
     477      </Unit44>
     478      <Unit45>
     479        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\spin.pp"/>
     480        <UnitName Value="Spin"/>
     481        <WindowIndex Value="0"/>
     482        <TopLine Value="172"/>
     483        <CursorPos X="17" Y="185"/>
     484        <UsageCount Value="8"/>
     485      </Unit45>
     486      <Unit46>
     487        <Filename Value="..\..\UCDWindowList.pas"/>
     488        <ComponentName Value="CDWindowListForm"/>
     489        <HasResources Value="True"/>
     490        <ResourceBaseClass Value="Form"/>
     491        <UnitName Value="UCDWindowList"/>
     492        <EditorIndex Value="6"/>
     493        <WindowIndex Value="0"/>
     494        <TopLine Value="33"/>
     495        <CursorPos X="1" Y="47"/>
     496        <UsageCount Value="29"/>
     497        <Loaded Value="True"/>
     498        <LoadedDesigner Value="True"/>
     499      </Unit46>
     500      <Unit47>
     501        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\graphics.pp"/>
     502        <UnitName Value="Graphics"/>
     503        <WindowIndex Value="0"/>
     504        <TopLine Value="632"/>
     505        <CursorPos X="14" Y="645"/>
     506        <UsageCount Value="8"/>
     507      </Unit47>
     508      <Unit48>
     509        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\canvas.inc"/>
     510        <WindowIndex Value="0"/>
     511        <TopLine Value="426"/>
     512        <CursorPos X="3" Y="417"/>
     513        <UsageCount Value="8"/>
     514      </Unit48>
     515      <Unit49>
     516        <Filename Value="..\..\UCDResource.pas"/>
     517        <ComponentName Value="DataModule2"/>
     518        <ResourceBaseClass Value="DataModule"/>
     519        <UnitName Value="UCDResource"/>
     520        <EditorIndex Value="13"/>
     521        <WindowIndex Value="0"/>
     522        <TopLine Value="13"/>
     523        <CursorPos X="40" Y="31"/>
     524        <UsageCount Value="26"/>
     525        <Loaded Value="True"/>
     526      </Unit49>
     527      <Unit50>
     528        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\imglist.pp"/>
     529        <UnitName Value="ImgList"/>
     530        <EditorIndex Value="15"/>
     531        <WindowIndex Value="0"/>
     532        <TopLine Value="165"/>
     533        <CursorPos X="15" Y="178"/>
     534        <UsageCount Value="26"/>
     535        <Loaded Value="True"/>
     536      </Unit50>
     537      <Unit51>
     538        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\imglist.inc"/>
     539        <EditorIndex Value="16"/>
     540        <WindowIndex Value="0"/>
     541        <TopLine Value="554"/>
     542        <CursorPos X="9" Y="564"/>
     543        <UsageCount Value="26"/>
     544        <Loaded Value="True"/>
     545      </Unit51>
    634546    </Units>
    635547    <JumpHistory Count="30" HistoryIndex="29">
    636548      <Position1>
    637         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    638         <Caret Line="183" Column="1" TopLine="170"/>
     549        <Filename Value="..\..\UCDManager.pas"/>
     550        <Caret Line="699" Column="19" TopLine="685"/>
    639551      </Position1>
    640552      <Position2>
    641         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    642         <Caret Line="220" Column="1" TopLine="207"/>
     553        <Filename Value="..\..\UCDManager.pas"/>
     554        <Caret Line="697" Column="32" TopLine="685"/>
    643555      </Position2>
    644556      <Position3>
    645         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    646         <Caret Line="184" Column="1" TopLine="171"/>
     557        <Filename Value="..\..\UCDManager.pas"/>
     558        <Caret Line="605" Column="18" TopLine="583"/>
    647559      </Position3>
    648560      <Position4>
    649         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    650         <Caret Line="185" Column="1" TopLine="171"/>
     561        <Filename Value="..\..\UCDManager.pas"/>
     562        <Caret Line="34" Column="5" TopLine="20"/>
    651563      </Position4>
    652564      <Position5>
    653         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    654         <Caret Line="186" Column="1" TopLine="201"/>
     565        <Filename Value="..\..\UCDManager.pas"/>
     566        <Caret Line="605" Column="22" TopLine="588"/>
    655567      </Position5>
    656568      <Position6>
    657         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    658         <Caret Line="216" Column="1" TopLine="201"/>
     569        <Filename Value="..\..\UCDManager.pas"/>
     570        <Caret Line="598" Column="9" TopLine="585"/>
    659571      </Position6>
    660572      <Position7>
    661         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    662         <Caret Line="217" Column="1" TopLine="201"/>
     573        <Filename Value="..\..\UCDManager.pas"/>
     574        <Caret Line="605" Column="10" TopLine="585"/>
    663575      </Position7>
    664576      <Position8>
    665         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\wincontrol.inc"/>
    666         <Caret Line="6270" Column="1" TopLine="6253"/>
     577        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     578        <Caret Line="4" Column="70" TopLine="1"/>
    667579      </Position8>
    668580      <Position9>
    669         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\wincontrol.inc"/>
    670         <Caret Line="6267" Column="1" TopLine="6253"/>
     581        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     582        <Caret Line="18" Column="24" TopLine="1"/>
    671583      </Position9>
    672584      <Position10>
    673         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\wincontrol.inc"/>
    674         <Caret Line="6270" Column="1" TopLine="6253"/>
     585        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     586        <Caret Line="60" Column="24" TopLine="39"/>
    675587      </Position10>
    676588      <Position11>
    677         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    678         <Caret Line="409" Column="1" TopLine="384"/>
     589        <Filename Value="UMainForm.pas"/>
     590        <Caret Line="123" Column="25" TopLine="118"/>
    679591      </Position11>
    680592      <Position12>
    681         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    682         <Caret Line="250" Column="1" TopLine="237"/>
     593        <Filename Value="UMainForm.pas"/>
     594        <Caret Line="124" Column="25" TopLine="119"/>
    683595      </Position12>
    684596      <Position13>
    685         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    686         <Caret Line="253" Column="1" TopLine="237"/>
     597        <Filename Value="UMainForm.pas"/>
     598        <Caret Line="126" Column="25" TopLine="121"/>
    687599      </Position13>
    688600      <Position14>
    689         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    690         <Caret Line="259" Column="1" TopLine="238"/>
     601        <Filename Value="UMainForm.pas"/>
     602        <Caret Line="248" Column="20" TopLine="246"/>
    691603      </Position14>
    692604      <Position15>
    693         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    694         <Caret Line="260" Column="1" TopLine="239"/>
     605        <Filename Value="UMainForm.pas"/>
     606        <Caret Line="250" Column="19" TopLine="246"/>
    695607      </Position15>
    696608      <Position16>
    697         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    698         <Caret Line="262" Column="1" TopLine="241"/>
     609        <Filename Value="UMainForm.pas"/>
     610        <Caret Line="104" Column="15" TopLine="91"/>
    699611      </Position16>
    700612      <Position17>
    701         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    702         <Caret Line="263" Column="1" TopLine="248"/>
     613        <Filename Value="UMainForm.pas"/>
     614        <Caret Line="250" Column="32" TopLine="240"/>
    703615      </Position17>
    704616      <Position18>
    705         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    706         <Caret Line="265" Column="1" TopLine="248"/>
     617        <Filename Value="UMainForm.pas"/>
     618        <Caret Line="252" Column="52" TopLine="240"/>
    707619      </Position18>
    708620      <Position19>
    709         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    710         <Caret Line="266" Column="1" TopLine="248"/>
     621        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     622        <Caret Line="17" Column="23" TopLine="13"/>
    711623      </Position19>
    712624      <Position20>
    713         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    714         <Caret Line="268" Column="1" TopLine="248"/>
     625        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     626        <Caret Line="119" Column="17" TopLine="105"/>
    715627      </Position20>
    716628      <Position21>
    717         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    718         <Caret Line="272" Column="1" TopLine="254"/>
     629        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     630        <Caret Line="16" Column="41" TopLine="6"/>
    719631      </Position21>
    720632      <Position22>
    721         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    722         <Caret Line="273" Column="1" TopLine="254"/>
     633        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     634        <Caret Line="17" Column="30" TopLine="6"/>
    723635      </Position22>
    724636      <Position23>
    725         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    726         <Caret Line="274" Column="1" TopLine="254"/>
     637        <Filename Value="..\..\UCDManager.pas"/>
     638        <Caret Line="171" Column="21" TopLine="163"/>
    727639      </Position23>
    728640      <Position24>
    729         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    730         <Caret Line="275" Column="1" TopLine="254"/>
     641        <Filename Value="..\..\UCDManager.pas"/>
     642        <Caret Line="163" Column="25" TopLine="158"/>
    731643      </Position24>
    732644      <Position25>
    733         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    734         <Caret Line="276" Column="1" TopLine="255"/>
     645        <Filename Value="..\..\UCDManager.pas"/>
     646        <Caret Line="6" Column="58" TopLine="1"/>
    735647      </Position25>
    736648      <Position26>
    737         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    738         <Caret Line="277" Column="1" TopLine="256"/>
     649        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     650        <Caret Line="59" Column="47" TopLine="55"/>
    739651      </Position26>
    740652      <Position27>
    741         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    742         <Caret Line="278" Column="1" TopLine="257"/>
     653        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     654        <Caret Line="55" Column="28" TopLine="46"/>
    743655      </Position27>
    744656      <Position28>
    745657        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    746         <Caret Line="167" Column="24" TopLine="156"/>
     658        <Caret Line="16" Column="40" TopLine="3"/>
    747659      </Position28>
    748660      <Position29>
    749         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    750         <Caret Line="160" Column="24" TopLine="147"/>
     661        <Filename Value="..\..\UCDManager.pas"/>
     662        <Caret Line="245" Column="9" TopLine="240"/>
    751663      </Position29>
    752664      <Position30>
    753665        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    754         <Caret Line="112" Column="14" TopLine="101"/>
     666        <Caret Line="16" Column="39" TopLine="12"/>
    755667      </Position30>
    756668    </JumpHistory>
    … …  
    778690  </CompilerOptions>
    779691  <Debugging>
    780     <BreakPoints Count="2">
    781       <Item1>
    782         <Source Value="..\..\Managers\UCDManagerRegions.pas"/>
    783         <Line Value="163"/>
    784       </Item1>
    785       <Item2>
    786         <Source Value="..\..\Managers\UCDManagerTabs.pas"/>
    787         <Line Value="216"/>
    788       </Item2>
    789     </BreakPoints>
    790692    <Watches Count="1">
    791693      <Item1>

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

    r190 r197  
    11object MainForm: TMainForm
    2   Left = 263
    3   Height = 445
    4   Top = 130
    5   Width = 626
     2  Left = 217
     3  Height = 457
     4  Top = 123
     5  Width = 643
    66  Caption = 'CoolDocking Demo IDE'
    7   ClientHeight = 426
    8   ClientWidth = 626
     7  ClientHeight = 438
     8  ClientWidth = 643
    99  Menu = MainMenu1
    1010  OnClose = FormClose
    … …  
    1313  object DockPanel: TPanel
    1414    Left = 0
    15     Height = 400
     15    Height = 412
    1616    Top = 26
    17     Width = 626
     17    Width = 643
    1818    Align = alClient
    1919    BevelOuter = bvNone
    … …  
    2424    Height = 26
    2525    Top = 0
    26     Width = 626
     26    Width = 643
    2727    Caption = 'ToolBar1'
    2828    Images = ImageList1
    … …  
    130130        Action = AViewComponentTree
    131131      end
     132      object MenuItem28: TMenuItem
     133        Action = AResetDefaultLayout
     134      end
    132135    end
    133136    object MenuItem11: TMenuItem
    … …  
    215218      Caption = 'Component Tree'
    216219      OnExecute = AViewComponentTreeExecute
     220    end
     221    object AResetDefaultLayout: TAction
     222      Caption = 'Reset default layout'
     223      OnExecute = AResetDefaultLayoutExecute
    217224    end
    218225  end

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

    r189 r197  
    1515
    1616const
     17  DefaultLayoutName = 'Default Layout';
    1718  DockLayoutFileName = 'Layout.xml';
    1819
    … …  
    2324  TMainForm = class(TForm)
    2425  published
     26    AResetDefaultLayout: TAction;
    2527    AViewComponentTree: TAction;
    2628    AExit: TAction;
    … …  
    6567    MenuItem26: TMenuItem;
    6668    MenuItem27: TMenuItem;
     69    MenuItem28: TMenuItem;
    6770    MenuItem9: TMenuItem;
    6871    MenuItem8: TMenuItem;
    … …  
    8386    procedure AExitExecute(Sender: TObject);
    8487    procedure ANewFileExecute(Sender: TObject);
     88    procedure AResetDefaultLayoutExecute(Sender: TObject);
    8589    procedure AViewComponentTreeExecute(Sender: TObject);
    8690    procedure AViewThreadStatusExecute(Sender: TObject);
    … …  
    148152
    149153procedure TMainForm.InitDefaultDockLayout;
    150 const
    151   DefaultLayoutName = 'Default Layout';
    152154var
    153155  NewContainer1: TCDConjoinForm;
    … …  
    241243end;
    242244
     245procedure TMainForm.AResetDefaultLayoutExecute(Sender: TObject);
     246var
     247  DefaultLayout: TCDLayout;
     248begin
     249  DefaultLayout := CoolDockLayoutList1.FindByName(DefaultLayoutName);
     250  if Assigned(DefaultLayout) then
     251    CoolDockLayoutList1.Items.Remove(DefaultLayout);
     252  InitDefaultDockLayout;
     253end;
     254
    243255procedure TMainForm.AViewComponentTreeExecute(Sender: TObject);
    244256begin

  • Docking/CoolDocking/Managers/UCDManagerRegions.pas

    r195 r197  
    5757  PanelHeader := TCDPanelHeader.Create(nil);
    5858  PanelHeader.Header.ManagerItem := Self;
     59  PanelHeader.Header.OnMouseDown := DockPanelMouseDown;
     60  PanelHeader.Header.Title.OnMouseDown := DockPanelMouseDown;
    5961
    6062  Splitter := TSplitter.Create(nil);
    6163  with Splitter do begin
     64    Width := 3;
     65    Height := 3;
    6266    //Parent := Panel;
    6367    //Color := clRed;
    … …  
    6771destructor TCDManagerRegionsItem.Destroy;
    6872begin
     73  PanelHeader.Parent := nil;
     74  PanelHeader.Free;
     75  Splitter.Parent := nil;
     76  Splitter.Free;
     77  Control.Parent := nil;
    6978  inherited Destroy;
    7079end;
    … …  
    111120    NewItem.PanelHeader.Header.Icon.Picture.Assign((Control as TForm).Icon);
    112121    NewItem.PanelHeader.Parent := DockSite;
     122    NewItem.PanelHeader.Header.Title.Caption := TForm(Control).Caption;
    113123
    114124    NewItem.Control := Control;
    … …  
    163173begin
    164174  ManagerItem := FindControlInPanels(Control);
    165   if Assigned(ManagerItem) then
     175  if Assigned(ManagerItem) then begin
    166176    Control.RemoveHandlerOnVisibleChanged(ManagerItem.VisibleChange);
     177  end;
    167178
    168179  DockItems.Remove(ManagerItem);

  • Docking/CoolDocking/Managers/UCDManagerTabsPopup.pas

    r194 r197  
    4848  TCDStylePopupTabs = class(TCDManagerTabs)
    4949  public
    50     TabControl: TTabControl;
    51     TabImageList: TImageList;
    5250    AutoHideEnabled: Boolean;
    5351    AutoHide: TCDAutoHide;
    54     procedure TabControlMouseLeave(Sender: TObject);
    55     procedure TabControlChange(Sender: TObject);
    56     procedure TabControlMouseDown(Sender: TObject; Button: TMouseButton;
    57       Shift: TShiftState; X, Y: Integer);
    58     procedure TabControlMouseUp(Sender: TObject; Button: TMouseButton;
    59       Shift: TShiftState; X, Y: Integer);
     52    PopupPanel: TPanel;
    6053    constructor Create(ADockSite: TWinControl);
    6154    destructor Destroy; override;
    … …  
    174167{ TCDStylePopupTabs }
    175168
    176 procedure TCDStylePopupTabs.TabControlMouseLeave(Sender: TObject);
    177 begin
    178 
    179 end;
    180 
    181 procedure TCDStylePopupTabs.TabControlChange(Sender: TObject);
    182 begin
    183 
    184 end;
    185 
    186 procedure TCDStylePopupTabs.TabControlMouseDown(Sender: TObject;
    187   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    188 begin
    189 
    190 end;
    191 
    192 procedure TCDStylePopupTabs.TabControlMouseUp(Sender: TObject;
    193   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    194 begin
    195 
    196 end;
    197169
    198170constructor TCDStylePopupTabs.Create(ADockSite: TWinControl);
    … …  
    202174  inherited;
    203175  FDockStyle := dsPopupTabs;
    204 
    205176  AutoHide := TCDAutoHide.Create;
     177  PopupPanel := TPanel.Create(nil);
    206178end;
    207179
    … …  
    209181begin
    210182  AutoHide.Free;
     183  PopupPanel.Free;
    211184  inherited Destroy;
    212185end;

  • Docking/CoolDocking/UCDCustomize.lfm

    r189 r197  
    1 object CoolDockCustomizeForm: TCoolDockCustomizeForm
     1object CDCustomizeForm: TCDCustomizeForm
    22  Left = 431
    33  Height = 321
    … …  
    101101      ClientWidth = 375
    102102      object ListBox1: TListBox
    103         Left = 10
     103        Left = 12
    104104        Height = 229
    105105        Top = 11

  • Docking/CoolDocking/UCDCustomize.lrs

    r189 r197  
    11{ This is an automatically generated lazarus resource file }
    22
    3 LazarusResources.Add('TCoolDockCustomizeForm','FORMDATA',[
    4   'TPF0'#22'TCoolDockCustomizeForm'#21'CoolDockCustomizeForm'#4'Left'#3#175#1#6
    5   +'Height'#3'A'#1#3'Top'#3#139#0#5'Width'#3#141#1#7'Caption'#6#17'Customize do'
    6   +'cking'#12'ClientHeight'#3'A'#1#11'ClientWidth'#3#141#1#9'FormStyle'#7#11'fs'
    7   +'StayOnTop'#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6'0.9.31'#0#12'TPageCon'
    8   +'trol'#12'PageControl1'#4'Left'#2#8#6'Height'#3#20#1#3'Top'#2#8#5'Width'#3
    9   +#127#1#10'ActivePage'#7#15'TabSheetLayouts'#7'Anchors'#11#5'akTop'#6'akLeft'
    10   +#7'akRight'#8'akBottom'#0#8'TabIndex'#2#1#8'TabOrder'#2#0#0#9'TTabSheet'#15
    11   +'TabSheetSetting'#7'Caption'#6#7'Options'#12'ClientHeight'#3#252#0#11'Client'
    12   +'Width'#3#129#1#0#6'TLabel'#6'Label1'#4'Left'#2#7#6'Height'#2#14#3'Top'#2#13
    13   +#5'Width'#2'h'#7'Caption'#6#22'Default tabs position:'#11'ParentColor'#8#0#0
    14   +#9'TComboBox'#9'ComboBox1'#4'Left'#3#164#0#6'Height'#2#21#3'Top'#2#10#5'Widt'
    15   +'h'#2'd'#10'ItemHeight'#2#13#13'Items.Strings'#1#6#4'Auto'#6#4'Left'#6#3'Top'
    16   +#6#5'Right'#6#6'Bottom'#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#0#0#0#6
    17   +'TLabel'#6'Label2'#4'Left'#2#7#6'Height'#2#14#3'Top'#2')'#5'Width'#2'u'#7'Ca'
    18   +'ption'#6#24'Default header position:'#11'ParentColor'#8#0#0#9'TComboBox'#9
    19   +'ComboBox2'#4'Left'#3#164#0#6'Height'#2#21#3'Top'#2'&'#5'Width'#2'd'#10'Item'
     3LazarusResources.Add('TCDCustomizeForm','FORMDATA',[
     4  'TPF0'#16'TCDCustomizeForm'#15'CDCustomizeForm'#4'Left'#3#175#1#6'Height'#3'A'
     5  +#1#3'Top'#3#139#0#5'Width'#3#141#1#7'Caption'#6#17'Customize docking'#12'Cli'
     6  +'entHeight'#3'A'#1#11'ClientWidth'#3#141#1#9'FormStyle'#7#11'fsStayOnTop'#6
     7  +'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6'0.9.31'#0#12'TPageControl'#12'Page'
     8  +'Control1'#4'Left'#2#8#6'Height'#3#20#1#3'Top'#2#8#5'Width'#3#127#1#10'Activ'
     9  +'ePage'#7#15'TabSheetLayouts'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8
     10  +'akBottom'#0#8'TabIndex'#2#1#8'TabOrder'#2#0#0#9'TTabSheet'#15'TabSheetSetti'
     11  +'ng'#7'Caption'#6#7'Options'#12'ClientHeight'#3#252#0#11'ClientWidth'#3#129#1
     12  +#0#6'TLabel'#6'Label1'#4'Left'#2#7#6'Height'#2#14#3'Top'#2#13#5'Width'#2'h'#7
     13  +'Caption'#6#22'Default tabs position:'#11'ParentColor'#8#0#0#9'TComboBox'#9
     14  +'ComboBox1'#4'Left'#3#164#0#6'Height'#2#21#3'Top'#2#10#5'Width'#2'd'#10'Item'
    2015  +'Height'#2#13#13'Items.Strings'#1#6#4'Auto'#6#4'Left'#6#3'Top'#6#5'Right'#6#6
    21   +'Bottom'#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#1#0#0#6'TLabel'#6'Lab'
    22   +'el3'#4'Left'#2#7#6'Height'#2#14#3'Top'#2'C'#5'Width'#2'e'#7'Caption'#6#20'H'
    23   +'ide/unhide duration'#11'ParentColor'#8#0#0#9'TSpinEdit'#9'SpinEdit1'#4'Left'
    24   +#3#164#0#6'Height'#2#21#3'Top'#2'@'#5'Width'#2'd'#8'MaxValue'#3#16''''#8'Tab'
    25   +'Order'#2#2#0#0#6'TLabel'#6'Label4'#4'Left'#3#14#1#6'Height'#2#14#3'Top'#2'C'
    26   +#5'Width'#2#14#7'Caption'#6#2'ms'#11'ParentColor'#8#0#0#0#9'TTabSheet'#15'Ta'
    27   +'bSheetLayouts'#7'Caption'#6#7'Layouts'#12'ClientHeight'#3#250#0#11'ClientWi'
    28   +'dth'#3'w'#1#0#8'TListBox'#8'ListBox1'#4'Left'#2#10#6'Height'#3#229#0#3'Top'
    29   +#2#11#5'Width'#3#2#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'
    30   +#0#10'ItemHeight'#2#0#17'OnSelectionChange'#7#23'ListBox1SelectionChange'#8
    31   +'TabOrder'#2#0#0#0#7'TButton'#15'ButtonLayoutNew'#4'Left'#3#26#1#6'Height'#2
    32   +#25#3'Top'#2#10#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'
    33   +#6#6'New...'#7'OnClick'#7#20'ButtonLayoutNewClick'#8'TabOrder'#2#1#0#0#7'TBu'
    34   +'tton'#16'ButtonLayoutSave'#4'Left'#3#26#1#6'Height'#2#25#3'Top'#2'2'#5'Widt'
    35   +'h'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#4'Save'#7'Enabled'
    36   +#8#8'TabOrder'#2#2#0#0#7'TButton'#18'ButtonLayoutRename'#4'Left'#3#26#1#6'He'
    37   +'ight'#2#25#3'Top'#2'Z'#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#7
    38   +'Caption'#6#6'Rename'#7'Enabled'#8#7'OnClick'#7#23'ButtonLayoutRenameClick'#8
    39   +'TabOrder'#2#3#0#0#7'TButton'#18'ButtonLayoutDelete'#4'Left'#3#26#1#6'Height'
    40   +#2#25#3'Top'#3#130#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Cap'
    41   +'tion'#6#6'Delete'#7'Enabled'#8#7'OnClick'#7#23'ButtonLayoutDeleteClick'#8'T'
    42   +'abOrder'#2#4#0#0#7'TButton'#17'ButtonLayoutApply'#4'Left'#3#26#1#6'Height'#2
    43   +#25#3'Top'#3#170#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Capti'
    44   +'on'#6#7'Restore'#7'Enabled'#8#7'OnClick'#7#22'ButtonLayoutApplyClick'#8'Tab'
    45   +'Order'#2#5#0#0#0#0#7'TButton'#11'ButtonClose'#4'Left'#3':'#1#6'Height'#2#22
    46   +#3'Top'#3'$'#1#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Captio'
    47   +'n'#6#5'Close'#7'OnClick'#7#16'ButtonCloseClick'#8'TabOrder'#2#1#0#0#0
     16  +'Bottom'#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#0#0#0#6'TLabel'#6'Lab'
     17  +'el2'#4'Left'#2#7#6'Height'#2#14#3'Top'#2')'#5'Width'#2'u'#7'Caption'#6#24'D'
     18  +'efault header position:'#11'ParentColor'#8#0#0#9'TComboBox'#9'ComboBox2'#4
     19  +'Left'#3#164#0#6'Height'#2#21#3'Top'#2'&'#5'Width'#2'd'#10'ItemHeight'#2#13
     20  +#13'Items.Strings'#1#6#4'Auto'#6#4'Left'#6#3'Top'#6#5'Right'#6#6'Bottom'#0#5
     21  +'Style'#7#14'csDropDownList'#8'TabOrder'#2#1#0#0#6'TLabel'#6'Label3'#4'Left'
     22  +#2#7#6'Height'#2#14#3'Top'#2'C'#5'Width'#2'e'#7'Caption'#6#20'Hide/unhide du'
     23  +'ration'#11'ParentColor'#8#0#0#9'TSpinEdit'#9'SpinEdit1'#4'Left'#3#164#0#6'H'
     24  +'eight'#2#21#3'Top'#2'@'#5'Width'#2'd'#8'MaxValue'#3#16''''#8'TabOrder'#2#2#0
     25  +#0#6'TLabel'#6'Label4'#4'Left'#3#14#1#6'Height'#2#14#3'Top'#2'C'#5'Width'#2
     26  +#14#7'Caption'#6#2'ms'#11'ParentColor'#8#0#0#0#9'TTabSheet'#15'TabSheetLayou'
     27  +'ts'#7'Caption'#6#7'Layouts'#12'ClientHeight'#3#250#0#11'ClientWidth'#3'w'#1
     28  +#0#8'TListBox'#8'ListBox1'#4'Left'#2#12#6'Height'#3#229#0#3'Top'#2#11#5'Widt'
     29  +'h'#3#2#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10'ItemH'
     30  +'eight'#2#0#17'OnSelectionChange'#7#23'ListBox1SelectionChange'#8'TabOrder'#2
     31  +#0#0#0#7'TButton'#15'ButtonLayoutNew'#4'Left'#3#26#1#6'Height'#2#25#3'Top'#2
     32  +#10#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#6'New...'
     33  +#7'OnClick'#7#20'ButtonLayoutNewClick'#8'TabOrder'#2#1#0#0#7'TButton'#16'But'
     34  +'tonLayoutSave'#4'Left'#3#26#1#6'Height'#2#25#3'Top'#2'2'#5'Width'#2'K'#7'An'
     35  +'chors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#4'Save'#7'Enabled'#8#8'TabOrde'
     36  +'r'#2#2#0#0#7'TButton'#18'ButtonLayoutRename'#4'Left'#3#26#1#6'Height'#2#25#3
     37  +'Top'#2'Z'#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#6
     38  +'Rename'#7'Enabled'#8#7'OnClick'#7#23'ButtonLayoutRenameClick'#8'TabOrder'#2
     39  +#3#0#0#7'TButton'#18'ButtonLayoutDelete'#4'Left'#3#26#1#6'Height'#2#25#3'Top'
     40  +#3#130#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#6'De'
     41  +'lete'#7'Enabled'#8#7'OnClick'#7#23'ButtonLayoutDeleteClick'#8'TabOrder'#2#4
     42  +#0#0#7'TButton'#17'ButtonLayoutApply'#4'Left'#3#26#1#6'Height'#2#25#3'Top'#3
     43  +#170#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#7'Rest'
     44  +'ore'#7'Enabled'#8#7'OnClick'#7#22'ButtonLayoutApplyClick'#8'TabOrder'#2#5#0
     45  +#0#0#0#7'TButton'#11'ButtonClose'#4'Left'#3':'#1#6'Height'#2#22#3'Top'#3'$'#1
     46  +#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#5'Close'#7
     47  +'OnClick'#7#16'ButtonCloseClick'#8'TabOrder'#2#1#0#0#0
    4848]);

  • Docking/CoolDocking/UCDManager.pas

    r195 r197  
    66
    77uses
    8   Classes, SysUtils, UCDCommon, Controls, Contnrs,
     8  Classes, SysUtils, UCDCommon, Controls, Contnrs, Dialogs,
    99  UCDPopupMenu, LCLType, LMessages, Graphics, Buttons,
    1010  UCDConjoinForm, Menus, StdCtrls, ExtCtrls, Forms;
    … …  
    1818  TCDManager = class;
    1919  TCDManagerItem = class;
     20
     21  { TCDHeaderButton }
     22
     23  TCDHeaderButton = class
     24    Icon: TImage;
     25    constructor Create;
     26    destructor Destroy; override;
     27  end;
     28
     29  { TCDHeader }
    2030
    2131  TCDHeader = class(TPanel)
    … …  
    2333    procedure CloseButtonClick(Sender: TObject);
    2434    procedure DrawGrabber(Canvas: TCanvas; AControl: TControl);
     35    procedure PaintExecute(Sender: TObject);
     36    procedure RearrangeButtons;
    2537  public
    26     CloseButton: TSpeedButton;
     38    Buttons: TObjectList; // TList<TCDHeaderButton>
    2739    Title: TLabel;
    2840    Icon: TImage;
    2941    ManagerItem: TCDManagerItem;
    30     Shape: TShape;
    3142    constructor Create(TheOwner: TComponent); override;
    3243    destructor Destroy; override;
    … …  
    5364  TCDManagerItem = class
    5465  private
    55     procedure DockPanelMouseDown(Sender: TObject; Button: TMouseButton;
    56       Shift: TShiftState; X, Y: Integer);
    5766    procedure ResizeExecute(Sender: TObject);
    5867  public
    5968    Control: TControl;
    6069    Manager: TCDManager;
     70    procedure DockPanelMouseDown(Sender: TObject; Button: TMouseButton;
     71      Shift: TShiftState; X, Y: Integer);
    6172    procedure Paint(Sender: TObject); virtual;
    6273    procedure VisibleChange(Sender: TObject); virtual;
    … …  
    124135
    125136uses
    126   UCDManagerRegions, UCDManagerTabs, UCDManagerRegionsPopup, UCDManagerTabsPopup;
     137  UCDManagerRegions, UCDManagerTabs, UCDManagerRegionsPopup, UCDManagerTabsPopup,
     138  UCDResource;
     139
     140{ TCDHeaderButton }
     141
     142constructor TCDHeaderButton.Create;
     143begin
     144  inherited;
     145  Icon := TImage.Create(nil);
     146end;
     147
     148destructor TCDHeaderButton.Destroy;
     149begin
     150  Icon.Free;
     151  inherited Destroy;
     152end;
    127153
    128154{ TCDPanelHeader }
    … …  
    142168//  Header.Title.OnMouseDown := DockPanelMouseDown;
    143169  HeaderPos := hpTop;
     170  Constraints.MinHeight := GrabberSize;
     171  Align := alClient;
    144172
    145173  ShowHeader := True;
    … …  
    164192  end;
    165193  //OnResize := ResizeExecute;
    166   BevelInner := bvNone;
    167   BevelOuter := bvNone;
     194  //BevelInner := bvNone;
     195  //BevelOuter := bvNone;
    168196end;
    169197
    … …  
    195223constructor TCDManagerItem.Create;
    196224begin
     225
    197226end;
    198227
    … …  
    213242begin
    214243  if Control is TForm then begin
    215     //TForm(Control).SetFocus;
     244    TForm(Control).SetFocus;
    216245    Paint(Self);
    217246  end;
    … …  
    219248    //(Control as TWinControl).DockSite := False;
    220249    //ClientAreaPanel.DockSite := False;
    221     //(Control as TWinControl).BeginDrag(False, 10);
    222     //DragManager.DragStart(Control, False, 1);
     250    (Control as TWinControl).BeginDrag(False, 10);
     251    DragManager.DragStart(Control, False, 1);
    223252  end;
    224253end;
    … …  
    549578
    550579constructor TCDHeader.Create(TheOwner: TComponent);
     580var
     581  NewButton: TCDHeaderButton;
    551582begin
    552583  inherited Create(TheOwner);
    553   Shape := TShape.Create(Self);
    554   with Shape do begin
    555     Parent := Self;
    556     Anchors := [akRight, akBottom, akLeft, akTop];
    557     Left := 1;
    558     Top := 1;
    559     Width := Self.Width - 2;
    560     Height := Self.Height - 2;
    561     Brush.Style := bsClear;
    562   end;
     584  OnPaint := PaintExecute;
     585
    563586  Title := TLabel.Create(Self);
    564587  with Title do begin
    … …  
    570593    BevelOuter := bvNone;
    571594  end;
    572   CloseButton := TSpeedButton.Create(Self);
    573   with CloseButton do begin
    574     Parent := Self;
    575     Caption := 'X';
    576     Font.Size := 6;
    577     Width := GrabberSize - 8;
    578     Height := GrabberSize - 8;
    579     Anchors := [akRight, akTop];
    580     Left := Self.Width - Width - 4;
    581     Top := 4;
    582     Visible := True;
    583     OnClick := CloseButtonClick;
    584   end;
     595  Buttons := TObjectList.Create;
     596
     597  NewButton := TCDHeaderButton.Create;
     598  with NewButton do begin
     599    DataModule2.ImageList1.GetBitmap(0, Icon.Picture.Bitmap);
     600    Icon.Parent := Self;
     601    Icon.OnClick := CloseButtonClick;
     602  end;
     603  Buttons.Add(NewButton);
     604  NewButton := TCDHeaderButton.Create;
     605  with NewButton do begin
     606    DataModule2.ImageList1.GetBitmap(1, Icon.Picture.Bitmap);
     607    Icon.Parent := Self;
     608    Icon.OnClick := CloseButtonClick;
     609  end;
     610  Buttons.Add(NewButton);
     611  RearrangeButtons;
     612
    585613  Icon := TImage.Create(Self);
    586614  with Icon do begin
    … …  
    594622destructor TCDHeader.Destroy;
    595623begin
     624  Buttons.Free;
    596625  inherited Destroy;
    597626end;
    … …  
    614643end;
    615644
     645procedure TCDHeader.PaintExecute(Sender: TObject);
     646const
     647  Corner: Integer = 2;
     648  Border: Integer = 1;
     649  BorderColor: TColor = $B9C3C6;
     650  TopColor: TColor = $CFD6D9;
     651  BottomColor: TColor = $DAE0E1;
     652var
     653  Points: array of TPoint;
     654begin
     655  with Canvas do begin
     656    GradientFill(Rect(Border, Border, Width - Border,
     657      Height - Border), TopColor, BottomColor, gdVertical);
     658    Brush.Color := clBtnFace;
     659    Brush.Style := bsSolid;
     660    Pen.Color := clBtnFace;
     661    Pen.Style := psSolid;
     662    SetLength(Points, 3);
     663    Points[0] := Point(Border, Border);
     664    Points[1] := Point(Border, Border + Corner);
     665    Points[2] := Point(Border + Corner, Border);
     666    Polygon(Points);
     667    Points[0] := Point(Width - 1 - Border, Border);
     668    Points[1] := Point(Width - 1 - Border, Border + Corner);
     669    Points[2] := Point(Width - 1 - Border - Corner, Border);
     670    Polygon(Points);
     671    Points[0] := Point(Border, Height - 1 - Border);
     672    Points[1] := Point(Border, Height - 1 - Border - Corner);
     673    Points[2] := Point(Border + Corner, Height - 1 - Border);
     674    Polygon(Points);
     675    Points[0] := Point(Width - 1 - Border, Height - 1 - Border);
     676    Points[1] := Point(Width - 1 - Border, Height - 1 - Border - Corner);
     677    Points[2] := Point(Width - 1 - Border - Corner, Height - 1 - Border);
     678    Polygon(Points);
     679
     680    SetLength(Points, 9);
     681    Points[0] := Point(Border, Border + Corner);
     682    Points[1] := Point(Border + Corner, Border);
     683    Points[2] := Point(Width - 1 - Border - Corner, Border);
     684    Points[3] := Point(Width - 1 - Border, Border + Corner);
     685    Points[4] := Point(Width - 1 - Border, Height - 1 - Border - Corner);
     686    Points[5] := Point(Width - 1 - Border - Corner, Height - 1 - Border);
     687    Points[6] := Point(Border + Corner, Height - 1 - Border);
     688    Points[7] := Point(Border, Height - 1 - Border - Corner);
     689    Points[8] := Point(Border, Border + Corner);
     690    Pen.Color := BorderColor;
     691    Polyline(Points);
     692  end;
     693end;
     694
     695procedure TCDHeader.RearrangeButtons;
     696const
     697  Separation: Integer = 4;
     698var
     699  LeftPos: Integer;
     700  I: Integer;
     701begin
     702  LeftPos := Self.Width;
     703  for I := 0 to Buttons.Count - 1 do
     704  with TCDHeaderButton(Buttons[I]), Icon do begin
     705    Anchors := [akRight, akTop];
     706    //Icon.Picture.Bitmap.SetSize(16, 16);
     707    Icon.Width := Icon.Picture.Bitmap.Width;
     708    Icon.Height := Icon.Picture.Bitmap.Height;
     709    LeftPos := LeftPos - Icon.Width - Separation;
     710    Icon.Left := LeftPos;
     711    Icon.Top := (GrabberSize - Icon.Height) div 2;
     712
     713    //ShowMessage(IntToStr(Icon.Width) + ' ' +  InttoStr(Icon.Height));
     714    Visible := True;
     715  end;
     716end;
     717
    616718procedure TCDHeader.CloseButtonClick(Sender: TObject);
    617719begin

  • Docking/CoolDocking/UCDWindowList.lfm

    r189 r197  
    1 object CoolDockWindowListForm: TCoolDockWindowListForm
     1object CDWindowListForm: TCDWindowListForm
    22  Left = 361
    33  Height = 256

  • Docking/CoolDocking/UCDWindowList.lrs

    r189 r197  
    11{ This is an automatically generated lazarus resource file }
    22
    3 LazarusResources.Add('TCoolDockWindowListForm','FORMDATA',[
    4   'TPF0'#23'TCoolDockWindowListForm'#22'CoolDockWindowListForm'#4'Left'#3'i'#1#6
    5   +'Height'#3#0#1#3'Top'#3#142#0#5'Width'#3'~'#1#7'Caption'#6#11'Window list'#12
    6   +'ClientHeight'#3#0#1#11'ClientWidth'#3'~'#1#6'OnShow'#7#8'FormShow'#10'LCLVe'
    7   +'rsion'#6#6'0.9.31'#0#9'TListView'#9'ListView1'#4'Left'#2#8#6'Height'#3#211#0
    8   +#3'Top'#2#5#5'Width'#3'n'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'ak'
    9   +'Bottom'#0#7'Columns'#14#1#7'Caption'#6#4'Name'#5'Width'#3#200#0#0#1#7'Capti'
    10   +'on'#6#10'Dock state'#5'Width'#2'F'#0#1#7'Caption'#6#10'Visibility'#5'Width'
    11   +#2'F'#0#0#8'ReadOnly'#9#9'RowSelect'#9#11'SmallImages'#7#10'ImageList1'#8'Ta'
    12   +'bOrder'#2#0#9'ViewStyle'#7#8'vsReport'#10'OnDblClick'#7#17'ListView1DblClic'
    13   +'k'#10'OnKeyPress'#7#17'ListView1KeyPress'#12'OnSelectItem'#7#19'ListView1Se'
    14   +'lectItem'#0#0#7'TButton'#11'ButtonFocus'#4'Left'#3'+'#1#6'Height'#2#25#3'To'
    15   +'p'#3#224#0#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6
    16   +#5'Focus'#7'Enabled'#8#7'OnClick'#7#16'ButtonFocusClick'#8'TabOrder'#2#1#0#0
    17   +#7'TButton'#10'ButtonHide'#4'Left'#3#219#0#6'Height'#2#25#3'Top'#3#224#0#5'W'
    18   +'idth'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#4'Hide'#7'En'
    19   +'abled'#8#7'OnClick'#7#15'ButtonHideClick'#8'TabOrder'#2#2#0#0#7'TButton'#10
    20   +'ButtonShow'#4'Left'#3#139#0#6'Height'#2#25#3'Top'#3#224#0#5'Width'#2'K'#7'A'
    21   +'nchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#4'Show'#7'Enabled'#8#7'OnC'
    22   +'lick'#7#15'ButtonShowClick'#8'TabOrder'#2#3#0#0#10'TImageList'#10'ImageList'
    23   +'1'#4'left'#2' '#3'top'#2'&'#6'Bitmap'#10#14#4#0#0'Li'#1#0#0#0#16#0#0#0#16#0
    24   +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0#255#0#0#0#255#0
    25   +#0#0#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
    26   +#0#0#0#0#0#0#0#0#0#0#255#0#0#0#255#0#0#0#255#189#189#189#255#255#255#255#255
    27   +#255#255#255#255#189#189#189#255#0#0#0#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0
    28   +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255
    29   +#0#0#0#255#255#255#255#255#189#189#189#255#0'{{'#255#0'{{'#255#0'{{'#255#0#0
    30   +#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255
    31   +#255#255#0#255#0#0#0#255#255#255#255#255#0'{{'#255#0'{{'#255#0#0#0#255#0'{{'
    32   +#255#0'{{'#255#255#255#0#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255
    33   +#255#0#255#255#255#0#255#0#0#0#255#0'{{'#255#0#0#0#255#0'{{'#255#0'{{'#255
    34   +#255#255#0#255#0#0#0#255#0'{{'#255#0'{{'#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0
    35   +#255#255#255#0#255#255#255#0#255#255#255#0#255#0#0#0#255#255#255#0#255#255
    36   +#255#0#255#0'{{'#255#255#255#0#255#0#0#0#255#0'{{'#255#0'{{'#255#0'{{'#255#0
    37   +'{{'#255#0#0#0#255#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0
    38   +#255#255#255#0#255#0'{{'#255#255#255#0#255#255#255#0#255#255#255#0#255#0#0#0
    39   +#255#0'{{'#255#0'{{'#255#0'{{'#255#0'{{'#255#0#0#0#255#0#0#0#0#0#0#0#255#255
    40   +#255#0#255#255#255#0#255#0#0#0#0#0#0#0#255#0'{{'#255#0'{{'#255#0'{{'#255#0'{'
    41   +'{'#255#0'{{'#255#0'{{'#255#0#0#0#255#0'{{'#255#0'{{'#255#0#0#0#255#0#0#0#0#0
    42   +#0#0#255#255#255#0#255#0#0#0#0#255#255#0#255#0#0#0#255#0'{{'#255#0'{{'#255#0
    43   +'{{'#255#0'{{'#255#0#0#0#255#255#255#0#255'{{{'#255#255#255#0#255#0#0#0#255#0
    44   +#0#0#255#0#0#0#0#0#0#0#255#0#0#0#0#255#255#0#255#0#0#0#0#0#0#0#255#0'{{'#255
    45   +#0'{{'#255#0'{{'#255#0'{{'#255#255#255#0#255'{{{'#255#255#255#0#255'{{{'#255
    46   +'{{{'#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0#0#255#255#0#255#0#0#0#0
    47   +#255#255#0#255#0#0#0#255#0'{{'#255#0'{{'#255'{{{'#255#255#255#0#255'{{{'#255
    48   +#255#255#0#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#0#0
    49   +#0#0#255#255#0#255#0#0#0#0#255#255#0#255#0'{{'#255#0'{{'#255#255#255#0#255'{'
    50   +'{{'#255#255#255#0#255'{{{'#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
    51   +#0#255#255#255#0#255#0#0#0#0#255#255#0#255#255#255#0#255#255#255#0#255#0'{{'
     3LazarusResources.Add('TCDWindowListForm','FORMDATA',[
     4  'TPF0'#17'TCDWindowListForm'#16'CDWindowListForm'#4'Left'#3'i'#1#6'Height'#3#0
     5  +#1#3'Top'#3#142#0#5'Width'#3'~'#1#7'Caption'#6#11'Window list'#12'ClientHeig'
     6  +'ht'#3#0#1#11'ClientWidth'#3'~'#1#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6
     7  +'0.9.31'#0#9'TListView'#9'ListView1'#4'Left'#2#8#6'Height'#3#211#0#3'Top'#2#5
     8  +#5'Width'#3'n'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7
     9  +'Columns'#14#1#7'Caption'#6#4'Name'#5'Width'#3#200#0#0#1#7'Caption'#6#10'Doc'
     10  +'k state'#5'Width'#2'F'#0#1#7'Caption'#6#10'Visibility'#5'Width'#2'F'#0#0#8
     11  +'ReadOnly'#9#9'RowSelect'#9#11'SmallImages'#7#10'ImageList1'#8'TabOrder'#2#0
     12  +#9'ViewStyle'#7#8'vsReport'#10'OnDblClick'#7#17'ListView1DblClick'#10'OnKeyP'
     13  +'ress'#7#17'ListView1KeyPress'#12'OnSelectItem'#7#19'ListView1SelectItem'#0#0
     14  +#7'TButton'#11'ButtonFocus'#4'Left'#3'+'#1#6'Height'#2#25#3'Top'#3#224#0#5'W'
     15  +'idth'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#5'Focus'#7'E'
     16  +'nabled'#8#7'OnClick'#7#16'ButtonFocusClick'#8'TabOrder'#2#1#0#0#7'TButton'
     17  +#10'ButtonHide'#4'Left'#3#219#0#6'Height'#2#25#3'Top'#3#224#0#5'Width'#2'K'#7
     18  +'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#4'Hide'#7'Enabled'#8#7'On'
     19  +'Click'#7#15'ButtonHideClick'#8'TabOrder'#2#2#0#0#7'TButton'#10'ButtonShow'#4
     20  +'Left'#3#139#0#6'Height'#2#25#3'Top'#3#224#0#5'Width'#2'K'#7'Anchors'#11#7'a'
     21  +'kRight'#8'akBottom'#0#7'Caption'#6#4'Show'#7'Enabled'#8#7'OnClick'#7#15'But'
     22  +'tonShowClick'#8'TabOrder'#2#3#0#0#10'TImageList'#10'ImageList1'#4'left'#2' '
     23  +#3'top'#2'&'#6'Bitmap'#10#14#4#0#0'Li'#1#0#0#0#16#0#0#0#16#0#0#0#0#0#0#0#0#0
     24  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
     25  +#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
     26  +#0#0#0#255#0#0#0#255#0#0#0#255#189#189#189#255#255#255#255#255#255#255#255
     27  +#255#189#189#189#255#0#0#0#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
     28  +#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#0#0#0#255
     29  +#255#255#255#255#189#189#189#255#0'{{'#255#0'{{'#255#0'{{'#255#0#0#0#255#0#0
     30  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0
     31  +#255#0#0#0#255#255#255#255#255#0'{{'#255#0'{{'#255#0#0#0#255#0'{{'#255#0'{{'
     32  +#255#255#255#0#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255
     33  +#255#255#0#255#0#0#0#255#0'{{'#255#0#0#0#255#0'{{'#255#0'{{'#255#255#255#0
     34  +#255#0#0#0#255#0'{{'#255#0'{{'#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#255#255
     35  +#255#0#255#255#255#0#255#255#255#0#255#0#0#0#255#255#255#0#255#255#255#0#255
     36  +#0'{{'#255#255#255#0#255#0#0#0#255#0'{{'#255#0'{{'#255#0'{{'#255#0'{{'#255#0
     37  +#0#0#255#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
     38  +#0#255#0'{{'#255#255#255#0#255#255#255#0#255#255#255#0#255#0#0#0#255#0'{{'
     39  +#255#0'{{'#255#0'{{'#255#0'{{'#255#0#0#0#255#0#0#0#0#0#0#0#255#255#255#0#255
     40  +#255#255#0#255#0#0#0#0#0#0#0#255#0'{{'#255#0'{{'#255#0'{{'#255#0'{{'#255#0'{'
     41  +'{'#255#0'{{'#255#0#0#0#255#0'{{'#255#0'{{'#255#0#0#0#255#0#0#0#0#0#0#0#255
     42  +#255#255#0#255#0#0#0#0#255#255#0#255#0#0#0#255#0'{{'#255#0'{{'#255#0'{{'#255
     43  +#0'{{'#255#0#0#0#255#255#255#0#255'{{{'#255#255#255#0#255#0#0#0#255#0#0#0#255
     44  +#0#0#0#0#0#0#0#255#0#0#0#0#255#255#0#255#0#0#0#0#0#0#0#255#0'{{'#255#0'{{'
     45  +#255#0'{{'#255#0'{{'#255#255#255#0#255'{{{'#255#255#255#0#255'{{{'#255'{{{'
     46  +#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0#0#255#255#0#255#0#0#0#0#255
     47  +#255#0#255#0#0#0#255#0'{{'#255#0'{{'#255'{{{'#255#255#255#0#255'{{{'#255#255
     48  +#255#0#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#0#0#0#0
     49  +#255#255#0#255#0#0#0#0#255#255#0#255#0'{{'#255#0'{{'#255#255#255#0#255'{{{'
     50  +#255#255#255#0#255'{{{'#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
     51  +#255#255#255#0#255#0#0#0#0#255#255#0#255#255#255#0#255#255#255#0#255#0'{{'
    5252  +#255'{{{'#255#255#255#0#255'{{{'#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
    5353  +#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0#255#0#0#0#0#255#255#0#255#0#0#0#0#255#255

  • Docking/CoolDocking/UCDWindowList.lrt

    r189 r197  
    1 TCOOLDOCKWINDOWLISTFORM.CAPTION=Window list
    2 TCOOLDOCKWINDOWLISTFORM.LISTVIEW1.COLUMNS[0].CAPTION=Name
    3 TCOOLDOCKWINDOWLISTFORM.LISTVIEW1.COLUMNS[1].CAPTION=Dock state
    4 TCOOLDOCKWINDOWLISTFORM.LISTVIEW1.COLUMNS[2].CAPTION=Visibility
    5 TCOOLDOCKWINDOWLISTFORM.BUTTONFOCUS.CAPTION=Focus
    6 TCOOLDOCKWINDOWLISTFORM.BUTTONHIDE.CAPTION=Hide
    7 TCOOLDOCKWINDOWLISTFORM.BUTTONSHOW.CAPTION=Show
     1TCDWINDOWLISTFORM.CAPTION=Window list
     2TCDWINDOWLISTFORM.LISTVIEW1.COLUMNS[0].CAPTION=Name
     3TCDWINDOWLISTFORM.LISTVIEW1.COLUMNS[1].CAPTION=Dock state
     4TCDWINDOWLISTFORM.LISTVIEW1.COLUMNS[2].CAPTION=Visibility
     5TCDWINDOWLISTFORM.BUTTONFOCUS.CAPTION=Focus
     6TCDWINDOWLISTFORM.BUTTONHIDE.CAPTION=Hide
     7TCDWINDOWLISTFORM.BUTTONSHOW.CAPTION=Show

  • Docking/CoolDocking/UCDWindowList.pas

    r189 r197  
    4545  end;
    4646
     47
    4748procedure Register;
    4849
Note: See TracChangeset for help on using the changeset viewer.