Changeset 176


Ignore:
Timestamp:
Mar 7, 2011, 1:32:07 PM (13 years ago)
Author:
george
Message:
  • Fixed: Docking popupmenu action Close and Rename.
  • Added: Partialy implemented tab hiding.
Location:
Docking/CoolDocking
Files:
13 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/CoolDocking.lpk

    r98 r176  
    66    <Author Value="Chronos"/>
    77    <CompilerOptions>
    8       <Version Value="9"/>
     8      <Version Value="10"/>
    99      <PathDelim Value="\"/>
    1010      <SearchPaths>
    … …  
    7777    </i18n>
    7878    <Type Value="RunAndDesignTime"/>
    79     <RequiredPkgs Count="2">
     79    <RequiredPkgs Count="7">
    8080      <Item1>
    81         <PackageName Value="LCL"/>
     81        <PackageName Value="LCLBase"/>
    8282      </Item1>
    8383      <Item2>
     84        <PackageName Value="LCLBase"/>
     85      </Item2>
     86      <Item3>
     87        <PackageName Value="LCLBase"/>
     88      </Item3>
     89      <Item4>
     90        <PackageName Value="LCLBase"/>
     91      </Item4>
     92      <Item5>
     93        <PackageName Value="LCLBase"/>
     94      </Item5>
     95      <Item6>
     96        <PackageName Value="LCL"/>
     97      </Item6>
     98      <Item7>
    8499        <PackageName Value="FCL"/>
    85100        <MinVersion Major="1" Valid="True"/>
    86       </Item2>
     101      </Item7>
    87102    </RequiredPkgs>
    88103    <UsageOptions>

  • Docking/CoolDocking/Demo/Demo.lpi

    r103 r176  
    3030      </local>
    3131    </RunParams>
    32     <RequiredPackages Count="2">
     32    <RequiredPackages Count="3">
    3333      <Item1>
    34         <PackageName Value="CoolDocking"/>
     34        <PackageName Value="LCLBase"/>
     35        <MinVersion Major="1" Release="1" Valid="True"/>
    3536      </Item1>
    3637      <Item2>
     38        <PackageName Value="CoolDocking"/>
     39      </Item2>
     40      <Item3>
    3741        <PackageName Value="LCL"/>
    38       </Item2>
     42      </Item3>
    3943    </RequiredPackages>
    40     <Units Count="64">
     44    <Units Count="80">
    4145      <Unit0>
    4246        <Filename Value="Demo.lpr"/>
    4347        <IsPartOfProject Value="True"/>
    4448        <UnitName Value="Demo"/>
    45         <EditorIndex Value="2"/>
    46         <WindowIndex Value="0"/>
    47         <TopLine Value="4"/>
    48         <CursorPos X="34" Y="15"/>
    49         <UsageCount Value="195"/>
    50         <Loaded Value="True"/>
     49        <WindowIndex Value="0"/>
     50        <TopLine Value="3"/>
     51        <CursorPos X="49" Y="5"/>
     52        <UsageCount Value="201"/>
    5153        <DefaultSyntaxHighlighter Value="Delphi"/>
    5254      </Unit0>
    … …  
    5759        <ResourceBaseClass Value="Form"/>
    5860        <UnitName Value="UMainForm"/>
    59         <EditorIndex Value="14"/>
    60         <WindowIndex Value="0"/>
    61         <TopLine Value="59"/>
    62         <CursorPos X="3" Y="75"/>
    63         <UsageCount Value="195"/>
     61        <EditorIndex Value="11"/>
     62        <WindowIndex Value="0"/>
     63        <TopLine Value="19"/>
     64        <CursorPos X="25" Y="28"/>
     65        <UsageCount Value="201"/>
    6466        <Loaded Value="True"/>
    6567        <LoadedDesigner Value="True"/>
    … …  
    7274        <TopLine Value="1191"/>
    7375        <CursorPos X="15" Y="1203"/>
    74         <UsageCount Value="60"/>
     76        <UsageCount Value="59"/>
     77        <DefaultSyntaxHighlighter Value="Delphi"/>
    7578      </Unit2>
    7679      <Unit3>
    … …  
    8083        <TopLine Value="98"/>
    8184        <CursorPos X="27" Y="110"/>
    82         <UsageCount Value="10"/>
     85        <UsageCount Value="9"/>
    8386        <DefaultSyntaxHighlighter Value="Delphi"/>
    8487      </Unit3>
    8588      <Unit4>
    8689        <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    87         <EditorIndex Value="7"/>
    8890        <WindowIndex Value="0"/>
    8991        <TopLine Value="3709"/>
    9092        <CursorPos X="1" Y="3726"/>
    91         <UsageCount Value="53"/>
    92         <Loaded Value="True"/>
     93        <UsageCount Value="52"/>
     94        <DefaultSyntaxHighlighter Value="Delphi"/>
    9395      </Unit4>
    9496      <Unit5>
    9597        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    96         <EditorIndex Value="8"/>
    9798        <WindowIndex Value="0"/>
    9899        <TopLine Value="6352"/>
    99100        <CursorPos X="42" Y="6355"/>
    100         <UsageCount Value="58"/>
    101         <Loaded Value="True"/>
     101        <UsageCount Value="57"/>
     102        <DefaultSyntaxHighlighter Value="Delphi"/>
    102103      </Unit5>
    103104      <Unit6>
    … …  
    106107        <TopLine Value="490"/>
    107108        <CursorPos X="3" Y="497"/>
    108         <UsageCount Value="23"/>
     109        <UsageCount Value="22"/>
     110        <DefaultSyntaxHighlighter Value="Delphi"/>
    109111      </Unit6>
    110112      <Unit7>
    … …  
    113115        <TopLine Value="206"/>
    114116        <CursorPos X="8" Y="219"/>
    115         <UsageCount Value="10"/>
     117        <UsageCount Value="9"/>
     118        <DefaultSyntaxHighlighter Value="Delphi"/>
    116119      </Unit7>
    117120      <Unit8>
    118121        <Filename Value="E:\Programy\Lazarus\lcl\lclproc.pas"/>
    119122        <UnitName Value="LCLProc"/>
    120         <EditorIndex Value="6"/>
    121123        <WindowIndex Value="0"/>
    122124        <TopLine Value="1516"/>
    123125        <CursorPos X="1" Y="1528"/>
    124         <UsageCount Value="23"/>
    125         <Loaded Value="True"/>
     126        <UsageCount Value="22"/>
     127        <DefaultSyntaxHighlighter Value="Delphi"/>
    126128      </Unit8>
    127129      <Unit9>
    … …  
    132134        <ResourceBaseClass Value="Form"/>
    133135        <UnitName Value="UDockForm"/>
    134         <EditorIndex Value="3"/>
    135         <WindowIndex Value="0"/>
    136         <TopLine Value="18"/>
    137         <CursorPos X="1" Y="39"/>
    138         <UsageCount Value="194"/>
    139         <Loaded Value="True"/>
     136        <EditorIndex Value="8"/>
     137        <WindowIndex Value="0"/>
     138        <TopLine Value="2"/>
     139        <CursorPos X="23" Y="15"/>
     140        <UsageCount Value="200"/>
     141        <Loaded Value="True"/>
     142        <LoadedDesigner Value="True"/>
    140143        <DefaultSyntaxHighlighter Value="Delphi"/>
    141144      </Unit9>
    … …  
    146149        <TopLine Value="971"/>
    147150        <CursorPos X="3" Y="984"/>
    148         <UsageCount Value="9"/>
     151        <UsageCount Value="8"/>
     152        <DefaultSyntaxHighlighter Value="Delphi"/>
    149153      </Unit10>
    150154      <Unit11>
    … …  
    154158        <TopLine Value="819"/>
    155159        <CursorPos X="28" Y="826"/>
    156         <UsageCount Value="24"/>
     160        <UsageCount Value="23"/>
     161        <DefaultSyntaxHighlighter Value="Delphi"/>
    157162      </Unit11>
    158163      <Unit12>
    … …  
    162167        <TopLine Value="4756"/>
    163168        <CursorPos X="5" Y="4763"/>
    164         <UsageCount Value="5"/>
     169        <UsageCount Value="4"/>
    165170        <DefaultSyntaxHighlighter Value="Delphi"/>
    166171      </Unit12>
    … …  
    171176        <TopLine Value="702"/>
    172177        <CursorPos X="10" Y="719"/>
    173         <UsageCount Value="19"/>
     178        <UsageCount Value="18"/>
    174179        <DefaultSyntaxHighlighter Value="Delphi"/>
    175180      </Unit13>
    … …  
    180185        <TopLine Value="1245"/>
    181186        <CursorPos X="14" Y="1258"/>
    182         <UsageCount Value="55"/>
     187        <UsageCount Value="54"/>
     188        <DefaultSyntaxHighlighter Value="Delphi"/>
    183189      </Unit14>
    184190      <Unit15>
    … …  
    188194        <TopLine Value="480"/>
    189195        <CursorPos X="37" Y="496"/>
    190         <UsageCount Value="5"/>
     196        <UsageCount Value="4"/>
     197        <DefaultSyntaxHighlighter Value="Delphi"/>
    191198      </Unit15>
    192199      <Unit16>
    … …  
    195202        <TopLine Value="52"/>
    196203        <CursorPos X="30" Y="65"/>
    197         <UsageCount Value="5"/>
     204        <UsageCount Value="4"/>
     205        <DefaultSyntaxHighlighter Value="Delphi"/>
    198206      </Unit16>
    199207      <Unit17>
    200208        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    201         <EditorIndex Value="10"/>
    202209        <WindowIndex Value="0"/>
    203210        <TopLine Value="85"/>
    204211        <CursorPos X="24" Y="94"/>
    205         <UsageCount Value="11"/>
    206         <Loaded Value="True"/>
     212        <UsageCount Value="10"/>
     213        <DefaultSyntaxHighlighter Value="Delphi"/>
    207214      </Unit17>
    208215      <Unit18>
    … …  
    212219        <TopLine Value="267"/>
    213220        <CursorPos X="1" Y="269"/>
    214         <UsageCount Value="2"/>
     221        <UsageCount Value="1"/>
     222        <DefaultSyntaxHighlighter Value="Delphi"/>
    215223      </Unit18>
    216224      <Unit19>
    … …  
    220228        <TopLine Value="553"/>
    221229        <CursorPos X="44" Y="560"/>
    222         <UsageCount Value="7"/>
     230        <UsageCount Value="6"/>
     231        <DefaultSyntaxHighlighter Value="Delphi"/>
    223232      </Unit19>
    224233      <Unit20>
    … …  
    228237        <TopLine Value="492"/>
    229238        <CursorPos X="14" Y="505"/>
    230         <UsageCount Value="30"/>
     239        <UsageCount Value="29"/>
     240        <DefaultSyntaxHighlighter Value="Delphi"/>
    231241      </Unit20>
    232242      <Unit21>
    … …  
    236246        <TopLine Value="2148"/>
    237247        <CursorPos X="21" Y="2148"/>
    238         <UsageCount Value="26"/>
     248        <UsageCount Value="25"/>
     249        <DefaultSyntaxHighlighter Value="Delphi"/>
    239250      </Unit21>
    240251      <Unit22>
    … …  
    244255        <TopLine Value="391"/>
    245256        <CursorPos X="17" Y="404"/>
    246         <UsageCount Value="11"/>
     257        <UsageCount Value="10"/>
     258        <DefaultSyntaxHighlighter Value="Delphi"/>
    247259      </Unit22>
    248260      <Unit23>
    249261        <Filename Value="..\UCoolDocking.pas"/>
    250262        <UnitName Value="UCoolDocking"/>
    251         <IsVisibleTab Value="True"/>
    252         <EditorIndex Value="5"/>
    253         <WindowIndex Value="0"/>
    254         <TopLine Value="438"/>
    255         <CursorPos X="1" Y="450"/>
    256         <UsageCount Value="87"/>
     263        <EditorIndex Value="9"/>
     264        <WindowIndex Value="0"/>
     265        <TopLine Value="835"/>
     266        <CursorPos X="6" Y="858"/>
     267        <UsageCount Value="90"/>
    257268        <Loaded Value="True"/>
    258269        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    260271      <Unit24>
    261272        <Filename Value="..\ReadMe.txt"/>
    262         <EditorIndex Value="4"/>
    263273        <WindowIndex Value="0"/>
    264274        <TopLine Value="1"/>
    265275        <CursorPos X="18" Y="11"/>
    266276        <UsageCount Value="19"/>
    267         <Loaded Value="True"/>
    268277        <DefaultSyntaxHighlighter Value="None"/>
    269278      </Unit24>
    … …  
    273282        <TopLine Value="619"/>
    274283        <CursorPos X="22" Y="621"/>
    275         <UsageCount Value="19"/>
     284        <UsageCount Value="18"/>
     285        <DefaultSyntaxHighlighter Value="Delphi"/>
    276286      </Unit25>
    277287      <Unit26>
    … …  
    280290        <TopLine Value="27"/>
    281291        <CursorPos X="3" Y="32"/>
    282         <UsageCount Value="19"/>
     292        <UsageCount Value="18"/>
     293        <DefaultSyntaxHighlighter Value="Delphi"/>
    283294      </Unit26>
    284295      <Unit27>
    … …  
    287298        <TopLine Value="50"/>
    288299        <CursorPos X="14" Y="59"/>
    289         <UsageCount Value="20"/>
     300        <UsageCount Value="19"/>
     301        <DefaultSyntaxHighlighter Value="Delphi"/>
    290302      </Unit27>
    291303      <Unit28>
    … …  
    294306        <TopLine Value="84"/>
    295307        <CursorPos X="45" Y="90"/>
    296         <UsageCount Value="19"/>
     308        <UsageCount Value="18"/>
     309        <DefaultSyntaxHighlighter Value="Delphi"/>
    297310      </Unit28>
    298311      <Unit29>
    … …  
    305318        <TopLine Value="9"/>
    306319        <CursorPos X="19" Y="17"/>
    307         <UsageCount Value="46"/>
     320        <UsageCount Value="45"/>
    308321        <DefaultSyntaxHighlighter Value="Delphi"/>
    309322      </Unit29>
    … …  
    314327        <ResourceBaseClass Value="Form"/>
    315328        <UnitName Value="UCoolDockWindowList"/>
    316         <WindowIndex Value="0"/>
    317         <TopLine Value="73"/>
    318         <CursorPos X="42" Y="90"/>
    319         <UsageCount Value="11"/>
     329        <EditorIndex Value="1"/>
     330        <WindowIndex Value="0"/>
     331        <TopLine Value="53"/>
     332        <CursorPos X="1" Y="66"/>
     333        <UsageCount Value="14"/>
     334        <Loaded Value="True"/>
     335        <LoadedDesigner Value="True"/>
    320336        <DefaultSyntaxHighlighter Value="Delphi"/>
    321337      </Unit30>
    … …  
    323339        <Filename Value="SampleDockableForm.pas"/>
    324340        <IsPartOfProject Value="True"/>
    325         <ComponentName Value="Form1"/>
     341        <ComponentName Value="DockableForm"/>
    326342        <ResourceBaseClass Value="Form"/>
    327343        <UnitName Value="SampleDockableForm"/>
    328344        <WindowIndex Value="0"/>
    329345        <TopLine Value="1"/>
    330         <CursorPos X="53" Y="2"/>
    331         <UsageCount Value="137"/>
     346        <CursorPos X="34" Y="12"/>
     347        <UsageCount Value="144"/>
    332348        <DefaultSyntaxHighlighter Value="Delphi"/>
    333349      </Unit31>
    … …  
    337353        <TopLine Value="223"/>
    338354        <CursorPos X="3" Y="226"/>
    339         <UsageCount Value="3"/>
     355        <UsageCount Value="2"/>
     356        <DefaultSyntaxHighlighter Value="Delphi"/>
    340357      </Unit32>
    341358      <Unit33>
    … …  
    344361        <TopLine Value="59"/>
    345362        <CursorPos X="4" Y="66"/>
    346         <UsageCount Value="3"/>
     363        <UsageCount Value="2"/>
     364        <DefaultSyntaxHighlighter Value="Delphi"/>
    347365      </Unit33>
    348366      <Unit34>
    … …  
    352370        <TopLine Value="3034"/>
    353371        <CursorPos X="1" Y="3047"/>
    354         <UsageCount Value="10"/>
     372        <UsageCount Value="9"/>
     373        <DefaultSyntaxHighlighter Value="Delphi"/>
    355374      </Unit34>
    356375      <Unit35>
    … …  
    359378        <TopLine Value="233"/>
    360379        <CursorPos X="45" Y="239"/>
    361         <UsageCount Value="7"/>
     380        <UsageCount Value="6"/>
     381        <DefaultSyntaxHighlighter Value="Delphi"/>
    362382      </Unit35>
    363383      <Unit36>
    … …  
    366386        <TopLine Value="98"/>
    367387        <CursorPos X="3" Y="103"/>
    368         <UsageCount Value="6"/>
     388        <UsageCount Value="5"/>
     389        <DefaultSyntaxHighlighter Value="Delphi"/>
    369390      </Unit36>
    370391      <Unit37>
    … …  
    373394        <TopLine Value="885"/>
    374395        <CursorPos X="3" Y="853"/>
    375         <UsageCount Value="6"/>
     396        <UsageCount Value="5"/>
     397        <DefaultSyntaxHighlighter Value="Delphi"/>
    376398      </Unit37>
    377399      <Unit38>
    … …  
    380402        <TopLine Value="1555"/>
    381403        <CursorPos X="1" Y="1568"/>
    382         <UsageCount Value="6"/>
     404        <UsageCount Value="5"/>
     405        <DefaultSyntaxHighlighter Value="Delphi"/>
    383406      </Unit38>
    384407      <Unit39>
    … …  
    387410        <TopLine Value="33"/>
    388411        <CursorPos X="10" Y="40"/>
    389         <UsageCount Value="6"/>
     412        <UsageCount Value="5"/>
     413        <DefaultSyntaxHighlighter Value="Delphi"/>
    390414      </Unit39>
    391415      <Unit40>
    … …  
    394418        <TopLine Value="29"/>
    395419        <CursorPos X="3" Y="32"/>
    396         <UsageCount Value="6"/>
     420        <UsageCount Value="5"/>
     421        <DefaultSyntaxHighlighter Value="Delphi"/>
    397422      </Unit40>
    398423      <Unit41>
    … …  
    401426        <TopLine Value="312"/>
    402427        <CursorPos X="10" Y="319"/>
    403         <UsageCount Value="6"/>
     428        <UsageCount Value="5"/>
     429        <DefaultSyntaxHighlighter Value="Delphi"/>
    404430      </Unit41>
    405431      <Unit42>
    … …  
    408434        <TopLine Value="85"/>
    409435        <CursorPos X="1" Y="92"/>
    410         <UsageCount Value="5"/>
     436        <UsageCount Value="4"/>
     437        <DefaultSyntaxHighlighter Value="Delphi"/>
    411438      </Unit42>
    412439      <Unit43>
    … …  
    415442        <TopLine Value="126"/>
    416443        <CursorPos X="89" Y="147"/>
    417         <UsageCount Value="5"/>
     444        <UsageCount Value="4"/>
     445        <DefaultSyntaxHighlighter Value="Delphi"/>
    418446      </Unit43>
    419447      <Unit44>
    … …  
    426454        <TopLine Value="35"/>
    427455        <CursorPos X="44" Y="45"/>
    428         <UsageCount Value="89"/>
     456        <UsageCount Value="96"/>
    429457        <DefaultSyntaxHighlighter Value="Delphi"/>
    430458      </Unit44>
    … …  
    434462        <TopLine Value="311"/>
    435463        <CursorPos X="3" Y="332"/>
    436         <UsageCount Value="6"/>
     464        <UsageCount Value="5"/>
     465        <DefaultSyntaxHighlighter Value="Delphi"/>
    437466      </Unit45>
    438467      <Unit46>
    439468        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\classes\classesh.inc"/>
    440         <EditorIndex Value="11"/>
    441469        <WindowIndex Value="0"/>
    442470        <TopLine Value="1638"/>
    443471        <CursorPos X="15" Y="1650"/>
    444         <UsageCount Value="14"/>
    445         <Loaded Value="True"/>
     472        <UsageCount Value="13"/>
     473        <DefaultSyntaxHighlighter Value="Delphi"/>
    446474      </Unit46>
    447475      <Unit47>
    … …  
    450478        <TopLine Value="1"/>
    451479        <CursorPos X="1" Y="4"/>
    452         <UsageCount Value="4"/>
     480        <UsageCount Value="3"/>
    453481        <DefaultSyntaxHighlighter Value="Delphi"/>
    454482      </Unit47>
    … …  
    458486        <EditorIndex Value="0"/>
    459487        <WindowIndex Value="0"/>
    460         <TopLine Value="171"/>
    461         <CursorPos X="3" Y="173"/>
    462         <UsageCount Value="43"/>
     488        <TopLine Value="61"/>
     489        <CursorPos X="1" Y="74"/>
     490        <UsageCount Value="46"/>
    463491        <Loaded Value="True"/>
    464492        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    467495        <Filename Value="..\UCoolDockStylePopupTabs.pas"/>
    468496        <UnitName Value="UCoolDockStylePopupTabs"/>
    469         <WindowIndex Value="0"/>
    470         <TopLine Value="39"/>
    471         <CursorPos X="1" Y="55"/>
    472         <UsageCount Value="13"/>
     497        <EditorIndex Value="15"/>
     498        <WindowIndex Value="0"/>
     499        <TopLine Value="33"/>
     500        <CursorPos X="33" Y="52"/>
     501        <UsageCount Value="16"/>
     502        <Loaded Value="True"/>
    473503        <DefaultSyntaxHighlighter Value="Delphi"/>
    474504      </Unit49>
    … …  
    476506        <Filename Value="..\UCoolDockStyle.pas"/>
    477507        <UnitName Value="UCoolDockStyle"/>
    478         <WindowIndex Value="0"/>
    479         <TopLine Value="12"/>
    480         <CursorPos X="29" Y="24"/>
    481         <UsageCount Value="43"/>
     508        <EditorIndex Value="4"/>
     509        <WindowIndex Value="0"/>
     510        <TopLine Value="11"/>
     511        <CursorPos X="15" Y="24"/>
     512        <UsageCount Value="45"/>
     513        <Loaded Value="True"/>
    482514        <DefaultSyntaxHighlighter Value="Delphi"/>
    483515      </Unit50>
    … …  
    488520        <TopLine Value="64"/>
    489521        <CursorPos X="1" Y="85"/>
    490         <UsageCount Value="41"/>
     522        <UsageCount Value="40"/>
    491523        <DefaultSyntaxHighlighter Value="Delphi"/>
    492524      </Unit51>
    … …  
    497529        <TopLine Value="1"/>
    498530        <CursorPos X="44" Y="11"/>
    499         <UsageCount Value="13"/>
     531        <UsageCount Value="12"/>
    500532        <DefaultSyntaxHighlighter Value="Delphi"/>
    501533      </Unit52>
    … …  
    505537        <TopLine Value="164"/>
    506538        <CursorPos X="8" Y="176"/>
    507         <UsageCount Value="11"/>
     539        <UsageCount Value="10"/>
     540        <DefaultSyntaxHighlighter Value="Delphi"/>
    508541      </Unit53>
    509542      <Unit54>
    510543        <Filename Value="..\UCoolDockClientPanel.pas"/>
    511544        <UnitName Value="UCoolDockClientPanel"/>
    512         <EditorIndex Value="1"/>
    513         <WindowIndex Value="0"/>
    514         <TopLine Value="78"/>
    515         <CursorPos X="1" Y="90"/>
    516         <UsageCount Value="42"/>
     545        <EditorIndex Value="3"/>
     546        <WindowIndex Value="0"/>
     547        <TopLine Value="84"/>
     548        <CursorPos X="1" Y="105"/>
     549        <UsageCount Value="45"/>
    517550        <Loaded Value="True"/>
    518551        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    521554        <Filename Value="..\UCoolDockPopupMenu.pas"/>
    522555        <UnitName Value="UCoolDockPopupMenu"/>
    523         <EditorIndex Value="13"/>
     556        <EditorIndex Value="10"/>
    524557        <WindowIndex Value="0"/>
    525558        <TopLine Value="5"/>
    526559        <CursorPos X="17" Y="17"/>
    527         <UsageCount Value="15"/>
     560        <UsageCount Value="18"/>
    528561        <Loaded Value="True"/>
    529562        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    534567        <TopLine Value="392"/>
    535568        <CursorPos X="1" Y="405"/>
    536         <UsageCount Value="11"/>
     569        <UsageCount Value="10"/>
     570        <DefaultSyntaxHighlighter Value="Delphi"/>
    537571      </Unit56>
    538572      <Unit57>
    … …  
    541575        <TopLine Value="115"/>
    542576        <CursorPos X="1" Y="128"/>
    543         <UsageCount Value="10"/>
     577        <UsageCount Value="9"/>
     578        <DefaultSyntaxHighlighter Value="Delphi"/>
    544579      </Unit57>
    545580      <Unit58>
    546581        <Filename Value="E:\Programy\Lazarus\lcl\lclclasses.pp"/>
    547582        <UnitName Value="LCLClasses"/>
    548         <EditorIndex Value="9"/>
    549583        <WindowIndex Value="0"/>
    550584        <TopLine Value="92"/>
    551585        <CursorPos X="1" Y="112"/>
    552         <UsageCount Value="11"/>
    553         <Loaded Value="True"/>
     586        <UsageCount Value="10"/>
     587        <DefaultSyntaxHighlighter Value="Delphi"/>
    554588      </Unit58>
    555589      <Unit59>
    … …  
    559593        <TopLine Value="66"/>
    560594        <CursorPos X="3" Y="72"/>
    561         <UsageCount Value="11"/>
     595        <UsageCount Value="10"/>
     596        <DefaultSyntaxHighlighter Value="Delphi"/>
    562597      </Unit59>
    563598      <Unit60>
    … …  
    566601        <TopLine Value="239"/>
    567602        <CursorPos X="1" Y="261"/>
    568         <UsageCount Value="11"/>
     603        <UsageCount Value="10"/>
     604        <DefaultSyntaxHighlighter Value="Delphi"/>
    569605      </Unit60>
    570606      <Unit61>
    … …  
    573609        <TopLine Value="4"/>
    574610        <CursorPos X="4" Y="16"/>
    575         <UsageCount Value="11"/>
     611        <UsageCount Value="10"/>
     612        <DefaultSyntaxHighlighter Value="Delphi"/>
    576613      </Unit61>
    577614      <Unit62>
    … …  
    580617        <TopLine Value="1038"/>
    581618        <CursorPos X="1" Y="1050"/>
    582         <UsageCount Value="11"/>
     619        <UsageCount Value="10"/>
     620        <DefaultSyntaxHighlighter Value="Delphi"/>
    583621      </Unit62>
    584622      <Unit63>
    585623        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\classes\compon.inc"/>
    586         <EditorIndex Value="12"/>
    587624        <WindowIndex Value="0"/>
    588625        <TopLine Value="514"/>
    589626        <CursorPos X="13" Y="520"/>
    590         <UsageCount Value="10"/>
    591         <Loaded Value="True"/>
     627        <UsageCount Value="9"/>
     628        <DefaultSyntaxHighlighter Value="Delphi"/>
    592629      </Unit63>
     630      <Unit64>
     631        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\comctrls.pp"/>
     632        <UnitName Value="ComCtrls"/>
     633        <EditorIndex Value="12"/>
     634        <WindowIndex Value="0"/>
     635        <TopLine Value="264"/>
     636        <CursorPos X="31" Y="271"/>
     637        <UsageCount Value="10"/>
     638        <Loaded Value="True"/>
     639      </Unit64>
     640      <Unit65>
     641        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\forms.pp"/>
     642        <UnitName Value="Forms"/>
     643        <WindowIndex Value="0"/>
     644        <TopLine Value="170"/>
     645        <CursorPos X="17" Y="183"/>
     646        <UsageCount Value="10"/>
     647      </Unit65>
     648      <Unit66>
     649        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\customform.inc"/>
     650        <EditorIndex Value="7"/>
     651        <WindowIndex Value="0"/>
     652        <TopLine Value="391"/>
     653        <CursorPos X="1" Y="404"/>
     654        <UsageCount Value="12"/>
     655        <Loaded Value="True"/>
     656      </Unit66>
     657      <Unit67>
     658        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\classes\classesh.inc"/>
     659        <WindowIndex Value="0"/>
     660        <TopLine Value="1917"/>
     661        <CursorPos X="30" Y="1930"/>
     662        <UsageCount Value="10"/>
     663      </Unit67>
     664      <Unit68>
     665        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\sysutils\systhrdh.inc"/>
     666        <WindowIndex Value="0"/>
     667        <TopLine Value="5"/>
     668        <CursorPos X="16" Y="18"/>
     669        <UsageCount Value="10"/>
     670      </Unit68>
     671      <Unit69>
     672        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\scrollingwincontrol.inc"/>
     673        <WindowIndex Value="0"/>
     674        <TopLine Value="233"/>
     675        <CursorPos X="16" Y="238"/>
     676        <UsageCount Value="10"/>
     677      </Unit69>
     678      <Unit70>
     679        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\controls.pp"/>
     680        <UnitName Value="Controls"/>
     681        <WindowIndex Value="0"/>
     682        <TopLine Value="1296"/>
     683        <CursorPos X="17" Y="1309"/>
     684        <UsageCount Value="10"/>
     685      </Unit70>
     686      <Unit71>
     687        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\customcontrol.inc"/>
     688        <WindowIndex Value="0"/>
     689        <TopLine Value="27"/>
     690        <CursorPos X="14" Y="30"/>
     691        <UsageCount Value="10"/>
     692      </Unit71>
     693      <Unit72>
     694        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\wincontrol.inc"/>
     695        <WindowIndex Value="0"/>
     696        <TopLine Value="6295"/>
     697        <CursorPos X="36" Y="6298"/>
     698        <UsageCount Value="10"/>
     699      </Unit72>
     700      <Unit73>
     701        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\control.inc"/>
     702        <EditorIndex Value="6"/>
     703        <WindowIndex Value="0"/>
     704        <TopLine Value="1378"/>
     705        <CursorPos X="1" Y="1391"/>
     706        <UsageCount Value="12"/>
     707        <Loaded Value="True"/>
     708      </Unit73>
     709      <Unit74>
     710        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\tabcontrol.inc"/>
     711        <EditorIndex Value="2"/>
     712        <WindowIndex Value="0"/>
     713        <TopLine Value="464"/>
     714        <CursorPos X="1" Y="477"/>
     715        <UsageCount Value="13"/>
     716        <Loaded Value="True"/>
     717      </Unit74>
     718      <Unit75>
     719        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclproc.pas"/>
     720        <UnitName Value="LCLProc"/>
     721        <EditorIndex Value="5"/>
     722        <WindowIndex Value="0"/>
     723        <TopLine Value="1515"/>
     724        <CursorPos X="1" Y="1527"/>
     725        <UsageCount Value="13"/>
     726        <Loaded Value="True"/>
     727      </Unit75>
     728      <Unit76>
     729        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\imglist.pp"/>
     730        <UnitName Value="ImgList"/>
     731        <WindowIndex Value="0"/>
     732        <TopLine Value="171"/>
     733        <CursorPos X="15" Y="184"/>
     734        <UsageCount Value="10"/>
     735      </Unit76>
     736      <Unit77>
     737        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\imglist.inc"/>
     738        <WindowIndex Value="0"/>
     739        <TopLine Value="717"/>
     740        <CursorPos X="25" Y="730"/>
     741        <UsageCount Value="10"/>
     742      </Unit77>
     743      <Unit78>
     744        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\extctrls.pp"/>
     745        <UnitName Value="ExtCtrls"/>
     746        <IsVisibleTab Value="True"/>
     747        <EditorIndex Value="13"/>
     748        <WindowIndex Value="0"/>
     749        <TopLine Value="214"/>
     750        <CursorPos X="34" Y="231"/>
     751        <UsageCount Value="10"/>
     752        <Loaded Value="True"/>
     753      </Unit78>
     754      <Unit79>
     755        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\custompage.inc"/>
     756        <EditorIndex Value="14"/>
     757        <WindowIndex Value="0"/>
     758        <TopLine Value="56"/>
     759        <CursorPos X="3" Y="69"/>
     760        <UsageCount Value="10"/>
     761        <Loaded Value="True"/>
     762      </Unit79>
    593763    </Units>
    594     <JumpHistory Count="30" HistoryIndex="29">
     764    <JumpHistory Count="30" HistoryIndex="27">
    595765      <Position1>
    596         <Filename Value="..\UCoolDockClientPanel.pas"/>
    597         <Caret Line="110" Column="1" TopLine="98"/>
     766        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     767        <Caret Line="76" Column="1" TopLine="63"/>
    598768      </Position1>
    599769      <Position2>
    600         <Filename Value="E:\Programy\Lazarus\lcl\lclproc.pas"/>
    601         <Caret Line="1528" Column="1" TopLine="1516"/>
     770        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     771        <Caret Line="238" Column="1" TopLine="237"/>
    602772      </Position2>
    603773      <Position3>
    604         <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    605         <Caret Line="1411" Column="1" TopLine="1399"/>
     774        <Filename Value="..\UCoolDockClientPanel.pas"/>
     775        <Caret Line="105" Column="1" TopLine="83"/>
    606776      </Position3>
    607777      <Position4>
    608         <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    609         <Caret Line="1392" Column="1" TopLine="1380"/>
     778        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     779        <Caret Line="258" Column="1" TopLine="237"/>
    610780      </Position4>
    611781      <Position5>
    612         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    613         <Caret Line="1262" Column="1" TopLine="1250"/>
     782        <Filename Value="..\UCoolDockClientPanel.pas"/>
     783        <Caret Line="105" Column="1" TopLine="84"/>
    614784      </Position5>
    615785      <Position6>
    616         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    617         <Caret Line="1263" Column="1" TopLine="1250"/>
     786        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     787        <Caret Line="258" Column="1" TopLine="237"/>
    618788      </Position6>
    619789      <Position7>
    620         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    621         <Caret Line="1264" Column="1" TopLine="1250"/>
     790        <Filename Value="..\UCoolDockClientPanel.pas"/>
     791        <Caret Line="105" Column="1" TopLine="84"/>
    622792      </Position7>
    623793      <Position8>
    624         <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    625         <Caret Line="3721" Column="1" TopLine="3709"/>
     794        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     795        <Caret Line="258" Column="1" TopLine="237"/>
    626796      </Position8>
    627797      <Position9>
    628         <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    629         <Caret Line="3724" Column="1" TopLine="3709"/>
     798        <Filename Value="..\UCoolDockClientPanel.pas"/>
     799        <Caret Line="105" Column="1" TopLine="84"/>
    630800      </Position9>
    631801      <Position10>
    632         <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    633         <Caret Line="3726" Column="1" TopLine="3709"/>
     802        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     803        <Caret Line="258" Column="1" TopLine="237"/>
    634804      </Position10>
    635805      <Position11>
    636         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    637         <Caret Line="405" Column="1" TopLine="393"/>
     806        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     807        <Caret Line="93" Column="1" TopLine="73"/>
    638808      </Position11>
    639809      <Position12>
    640         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    641         <Caret Line="408" Column="1" TopLine="393"/>
     810        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     811        <Caret Line="258" Column="22" TopLine="245"/>
    642812      </Position12>
    643813      <Position13>
    644         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    645         <Caret Line="2102" Column="1" TopLine="2090"/>
     814        <Filename Value="..\UCoolDockClientPanel.pas"/>
     815        <Caret Line="105" Column="1" TopLine="84"/>
    646816      </Position13>
    647817      <Position14>
    648         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    649         <Caret Line="101" Column="1" TopLine="89"/>
     818        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     819        <Caret Line="5" Column="75" TopLine="1"/>
    650820      </Position14>
    651821      <Position15>
    652         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    653         <Caret Line="912" Column="1" TopLine="900"/>
     822        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     823        <Caret Line="52" Column="25" TopLine="31"/>
    654824      </Position15>
    655825      <Position16>
    656         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    657         <Caret Line="913" Column="1" TopLine="900"/>
     826        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     827        <Caret Line="260" Column="25" TopLine="239"/>
    658828      </Position16>
    659829      <Position17>
    660         <Filename Value="UDockForm.pas"/>
    661         <Caret Line="37" Column="1" TopLine="18"/>
     830        <Filename Value="UMainForm.pas"/>
     831        <Caret Line="76" Column="44" TopLine="59"/>
    662832      </Position17>
    663833      <Position18>
    664         <Filename Value="UDockForm.pas"/>
    665         <Caret Line="38" Column="1" TopLine="18"/>
     834        <Filename Value="UMainForm.pas"/>
     835        <Caret Line="77" Column="44" TopLine="60"/>
    666836      </Position18>
    667837      <Position19>
    668         <Filename Value="UDockForm.pas"/>
    669         <Caret Line="39" Column="1" TopLine="18"/>
     838        <Filename Value="UMainForm.pas"/>
     839        <Caret Line="78" Column="44" TopLine="61"/>
    670840      </Position19>
    671841      <Position20>
    672         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    673         <Caret Line="918" Column="1" TopLine="900"/>
     842        <Filename Value="UMainForm.pas"/>
     843        <Caret Line="79" Column="44" TopLine="62"/>
    674844      </Position20>
    675845      <Position21>
    676         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    677         <Caret Line="103" Column="1" TopLine="91"/>
     846        <Filename Value="UMainForm.pas"/>
     847        <Caret Line="80" Column="44" TopLine="63"/>
    678848      </Position21>
    679849      <Position22>
    680         <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    681         <Caret Line="94" Column="24" TopLine="85"/>
     850        <Filename Value="UMainForm.pas"/>
     851        <Caret Line="82" Column="44" TopLine="65"/>
    682852      </Position22>
    683853      <Position23>
    684         <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\classes\compon.inc"/>
    685         <Caret Line="496" Column="14" TopLine="493"/>
     854        <Filename Value="UMainForm.pas"/>
     855        <Caret Line="110" Column="43" TopLine="99"/>
    686856      </Position23>
    687857      <Position24>
    688         <Filename Value="..\UCoolDockClientPanel.pas"/>
    689         <Caret Line="109" Column="67" TopLine="87"/>
     858        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     859        <Caret Line="251" Column="22" TopLine="239"/>
    690860      </Position24>
    691861      <Position25>
    692         <Filename Value="..\UCoolDocking.pas"/>
    693         <Caret Line="219" Column="1" TopLine="207"/>
     862        <Filename Value="..\UCoolDockStyleTabs.pas"/>
     863        <Caret Line="260" Column="20" TopLine="247"/>
    694864      </Position25>
    695865      <Position26>
    696         <Filename Value="..\UCoolDockClientPanel.pas"/>
    697         <Caret Line="109" Column="1" TopLine="92"/>
     866        <Filename Value="UMainForm.pas"/>
     867        <Caret Line="28" Column="25" TopLine="19"/>
    698868      </Position26>
    699869      <Position27>
    700         <Filename Value="..\UCoolDockClientPanel.pas"/>
    701         <Caret Line="111" Column="1" TopLine="92"/>
     870        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\comctrls.pp"/>
     871        <Caret Line="271" Column="31" TopLine="264"/>
    702872      </Position27>
    703873      <Position28>
    704         <Filename Value="..\UCoolDockClientPanel.pas"/>
    705         <Caret Line="186" Column="1" TopLine="174"/>
     874        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\extctrls.pp"/>
     875        <Caret Line="225" Column="44" TopLine="214"/>
    706876      </Position28>
    707877      <Position29>
    708         <Filename Value="..\UCoolDockClientPanel.pas"/>
    709         <Caret Line="191" Column="1" TopLine="174"/>
     878        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\extctrls.pp"/>
     879        <Caret Line="82" Column="62" TopLine="68"/>
    710880      </Position29>
    711881      <Position30>
    712         <Filename Value="UMainForm.pas"/>
    713         <Caret Line="75" Column="3" TopLine="59"/>
     882        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\custompage.inc"/>
     883        <Caret Line="69" Column="3" TopLine="56"/>
    714884      </Position30>
    715885    </JumpHistory>
    716886  </ProjectOptions>
    717887  <CompilerOptions>
    718     <Version Value="9"/>
     888    <Version Value="10"/>
    719889    <PathDelim Value="\"/>
    720890    <Target>
    … …  
    746916        <UseHeaptrc Value="True"/>
    747917      </Debugging>
     918      <Options>
     919        <Win32>
     920          <GraphicApplication Value="True"/>
     921        </Win32>
     922      </Options>
    748923    </Linking>
    749924    <Other>

  • Docking/CoolDocking/Demo/Demo.lpr

    r98 r176  
    2222  Application.Initialize;
    2323  Application.CreateForm(TMainForm, MainForm);
    24   Application.CreateForm(TForm1, Form1);
     24  Application.CreateForm(TDockableForm, DockableForm);
    2525  Application.CreateForm(TComponentTree, ComponentTree);
    2626  Application.Run;

  • Docking/CoolDocking/Demo/SampleDockableForm.lfm

    r59 r176  
    1 object Form1: TForm1
     1object DockableForm: TDockableForm
    22  Left = 335
    33  Height = 240
    44  Top = 167
    55  Width = 320
    6   Caption = 'Form1'
     6  Caption = 'DockableForm'
    77  ClientHeight = 240
    88  ClientWidth = 320
    … …  
    1111  DragMode = dmAutomatic
    1212  UseDockManager = True
    13   LCLVersion = '0.9.29'
     13  LCLVersion = '0.9.31'
    1414  object Memo1: TMemo
    1515    Left = 82
    … …  
    2323  end
    2424  object CoolDockClient1: TCoolDockClient
    25     Dockable = True
     25    Floatable = False
    2626    Master = MainForm.CoolDockMaster1
    2727    left = 104

  • Docking/CoolDocking/Demo/SampleDockableForm.pas

    r58 r176  
    1111type
    1212
    13   { TForm1 }
     13  { TDockableForm }
    1414
    15   TForm1 = class(TForm)
     15  TDockableForm = class(TForm)
    1616    CoolDockClient1: TCoolDockClient;
    1717    ImageList1: TImageList;
    … …  
    2424
    2525var
    26   Form1: TForm1;
     26  DockableForm: TDockableForm;
    2727
    2828implementation

  • Docking/CoolDocking/Demo/UMainForm.lfm

    r103 r176  
    1111  OnDestroy = FormDestroy
    1212  OnShow = FormShow
    13   LCLVersion = '0.9.29'
     13  LCLVersion = '0.9.31'
    1414  object Button1: TButton
    1515    Left = 10
    … …  
    2828    Align = alBottom
    2929    Anchors = [akTop, akLeft, akRight, akBottom]
     30    ClientHeight = 368
     31    ClientWidth = 576
    3032    DockSite = True
    3133    TabOrder = 1
     34    object PageControl1: TPageControl
     35      Left = 80
     36      Height = 160
     37      Top = 50
     38      Width = 256
     39      ActivePage = TabSheet2
     40      MultiLine = True
     41      TabIndex = 1
     42      TabOrder = 0
     43      OnChange = PageControl1Change
     44      Options = [nboMultiLine]
     45      object TabSheet1: TTabSheet
     46        Caption = 'TabSheet1'
     47      end
     48      object TabSheet2: TTabSheet
     49        Caption = 'TabSheet2'
     50      end
     51      object TabSheet3: TTabSheet
     52        Caption = 'TabSheet3'
     53      end
     54      object TabSheet4: TTabSheet
     55        Caption = 'TabSheet4'
     56      end
     57    end
     58    object TabControl1: TTabControl
     59      Left = 344
     60      Height = 150
     61      Top = 144
     62      Width = 200
     63      MultiLine = True
     64      TabIndex = 2
     65      TabOrder = 1
     66      Tabs.Strings = (
     67        'ggdfg'
     68        'gfgdfgfdgd'
     69        'gdfgdfgdf'
     70        'dfsdfs'
     71        'dd'
     72        'dddd'
     73        'ddd'
     74      )
     75      TabStop = False
     76    end
    3277  end
    3378  object Button2: TButton

  • Docking/CoolDocking/Demo/UMainForm.pas

    r103 r176  
    2626    MenuItem3: TMenuItem;
    2727    MenuItem4: TMenuItem;
     28    PageControl1: TPageControl;
    2829    Panel1: TPanel;
     30    TabControl1: TTabControl;
     31    TabSheet1: TTabSheet;
     32    TabSheet2: TTabSheet;
     33    TabSheet3: TTabSheet;
     34    TabSheet4: TTabSheet;
    2935    procedure Button1Click(Sender: TObject);
    3036    procedure Button2Click(Sender: TObject);
    … …  
    3440    procedure MenuItem2Click(Sender: TObject);
    3541    procedure MenuItem4Click(Sender: TObject);
     42    procedure PageControl1Change(Sender: TObject);
    3643  private
    3744  public
    … …  
    7481  NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
    7582  NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
     83  NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
    7684  //NewDockForm.ManualDock(TForm(DockForms[0]));
    7785  //NewDockForm.ManualDock(TForm(DockForms[0]));
    … …  
    9098end;
    9199
     100procedure TMainForm.PageControl1Change(Sender: TObject);
     101begin
     102
     103end;
     104
    92105function TMainForm.NewDockForm: TDockForm;
    93106begin
    94   Result := TDockForm.Create(Self);
     107  Application.CreateForm(TDockForm, Result);
     108//  Result := TDockForm.Create(Self);
    95109  Result.Name := 'Form' + IntToStr(FormIndex);
     110  Result.CoolDockClient1.Name := 'CoolDockClient' + IntToStr(FormIndex);
    96111  Result.Caption := Result.Name;
    97112  Result.Memo1.Text := Result.Name;

  • Docking/CoolDocking/UCoolDockPopupMenu.pas

    r103 r176  
    66
    77uses
    8   Classes, SysUtils, Menus, Controls, Dialogs, UCoolDockClientPanel;
     8  Classes, SysUtils, Menus, Forms, Controls, Dialogs, UCoolDockClientPanel,
     9  ExtCtrls, ComCtrls;
    910
    1011type
    … …  
    3435
    3536uses
    36   UCoolDocking;
     37  UCoolDocking, UCoolDockStyleTabs;
    3738
    3839resourcestring
    … …  
    162163  Control: TControl;
    163164begin
    164   Control := FindLCLControl(Mouse.CursorPos);
    165   if Assigned(Control) then
    166     ShowMessage(Control.ClassName);
    167   //DockSiteTForm(TCoolDockManager(TControl(Sender).Parent.Parent.Parent.DockManager).FDockSite).Close;
     165  if PopupComponent is TTabControl then
     166  with TTabControl(PopupComponent) do begin
     167    TForm(TCoolDockClientPanel(TCoolDockManager(Manager).DockPanels[TabIndex]).Control).Close;
     168  end;
     169  if PopupComponent is TCoolDockHeader then
     170  with TCoolDockHeader(PopupComponent) do begin
     171    TForm(ParentClientPanel.Control).Close;
     172  end;
    168173end;
    169174
    … …  
    172177  Value: string;
    173178begin
    174   Value := TCoolDockManager(Manager).DockSite.Parent.Caption;
    175   if InputQuery(SRenameWindow, SEnterNewWindowName, False, Value) then
    176     TCoolDockManager(Manager).DockSite.Parent.Caption := Value;
     179  //ShowMessage(PopupComponent.ClassName);
     180  if PopupComponent is TTabControl then
     181  with TTabControl(PopupComponent) do begin
     182    Value := TCoolDockClientPanel(TCoolDockManager(Manager).DockPanels[TabIndex]).Control.Caption;
     183    if InputQuery(SRenameWindow, SEnterNewWindowName, False, Value) then begin
     184      TCoolDockClientPanel(TCoolDockManager(Manager).DockPanels[TabIndex]).Control.Caption := Value;
     185      Tabs[TabIndex] := Value;
     186    end;
     187  end;
     188  if PopupComponent is TCoolDockHeader then
     189  with TCoolDockHeader(PopupComponent) do begin
     190    Value := ParentClientPanel.Control.Caption;
     191    if InputQuery(SRenameWindow, SEnterNewWindowName, False, Value) then begin
     192      ParentClientPanel.Control.Caption := Value;
     193      Title.Caption := Value;
     194    end;
     195  end;
    177196end;
    178197

  • Docking/CoolDocking/UCoolDockStyleTabs.pas

    r129 r176  
    7171  // Hide all clients
    7272  with TCoolDockManager(Manager) do
    73   for I := 0 to DockPanels.Count - 1 do begin
    74     TCoolDockClientPanel(DockPanels[I]).Control.Hide;
    75     TCoolDockClientPanel(DockPanels[I]).ClientAreaPanel.Hide;
    76     TCoolDockClientPanel(DockPanels[I]).ClientAreaPanel.Parent := DockSite;
    77     TCoolDockClientPanel(DockPanels[I]).Control.Align := alClient;
    78     //ShowMessage(TCoolDockClientPanel(DockPanels[I]).Control.ClassName);
    79     Application.ProcessMessages;
    80 
    81     // Workaround for "Cannot focus" error
    82     TForm(TCoolDockClientPanel(DockPanels[I]).Control).ActiveControl := nil;
    83   end;
     73  for I := 0 to DockPanels.Count - 1 do
     74    if TCoolDockClientPanel(DockPanels[I]).Control.Visible then begin
     75      TCoolDockClientPanel(DockPanels[I]).Control.Tag := 1;
     76      TCoolDockClientPanel(DockPanels[I]).Control.Hide;
     77      TCoolDockClientPanel(DockPanels[I]).ClientAreaPanel.Hide;
     78      TCoolDockClientPanel(DockPanels[I]).ClientAreaPanel.Parent := DockSite;
     79      TCoolDockClientPanel(DockPanels[I]).Control.Align := alClient;
     80      //ShowMessage(TCoolDockClientPanel(DockPanels[I]).Control.ClassName);
     81      Application.ProcessMessages;
     82
     83      // Workaround for "Cannot focus" error
     84      TForm(TCoolDockClientPanel(DockPanels[I]).Control).ActiveControl := nil;
     85    end;
    8486
    8587  // Show selected
    … …  
    8890    with TCoolDockClientPanel(DockPanels[TabControl.TabIndex]), ClientAreaPanel do begin
    8991      Control.Show;
     92      Control.Tag := 0;
    9093      (*AutoHide.Enable := True;
    9194      if AutoHide.Enable then begin
    … …  
    160163  TabImageList.Clear;
    161164  with TCoolDockManager(Manager) do
    162   for I := 0 to DockPanels.Count - 1 do begin
     165  for I := 0 to DockPanels.Count - 1 do
     166  if TCoolDockClientPanel(DockPanels[I]).Control.Visible then begin
     167    TCoolDockClientPanel(DockPanels[I]).Control.Tag := 1;
    163168    TabControl.Tabs.Add(TCoolDockClientPanel(DockPanels[I]).Control.Caption);
    164169    TabImageList.Add(TCoolDockClientPanel(DockPanels[I]).Header.Icon.Picture.Bitmap, nil);
    … …  
    187192begin
    188193  inherited;
    189   TabControl.Tabs.Add(AControl.Caption);
    190   TabImageList.Add(NewPanel.Header.Icon.Picture.Bitmap, nil);
    191   if Assigned(NewPanel.Splitter) then
    192     NewPanel.Splitter.Visible := False;
    193   NewPanel.ClientAreaPanel.Visible := False;
    194   NewPanel.Visible := False;
    195   TabControlChange(Self);
     194  if AControl.Visible then begin
     195    AControl.Tag := 1;
     196    TabControl.Tabs.Add(AControl.Caption);
     197    TabImageList.Add(NewPanel.Header.Icon.Picture.Bitmap, nil);
     198    if Assigned(NewPanel.Splitter) then
     199      NewPanel.Splitter.Visible := False;
     200    NewPanel.ClientAreaPanel.Visible := False;
     201    NewPanel.Visible := False;
     202    TabControlChange(Self);
     203  end;
    196204end;
    197205
    … …  
    216224      with TCoolDockClientPanel(DockPanels[TabControl.TabIndex]) do begin
    217225        //Show;
    218         if AValue then Control.Show;
     226        if AValue and (not Control.Visible) and (Control.Tag = 1) then begin
     227          Control.Show;
     228          Control.Tag := 0;
     229        end;
    219230        //TabControl.Show;
    220231        //ClientAreaPanel.Show;
    … …  
    227238begin
    228239  inherited;
    229   if not Visible then
    230   if Assigned(TWinControl(Control).DockManager) then
    231   with TCoolDockManager(TWinControl(Control).DockManager) do begin
     240  if not Visible then begin
     241    if Assigned(TWinControl(Control).DockManager) then
     242    with TCoolDockManager(TWinControl(Control).DockManager) do begin
    232243//    ShowMessage(IntToStr(TabControl.TabIndex) + ' ' + IntToStr(DockPanels.Count));
    233244//    TabControl.Tabs[0].;
    … …  
    237248//    end;
    238249    //    ShowMessage(IntToStr(DockPanels.Count));
     250      if Control.Tag = 0 then begin
     251        TabImageList.Delete(TabControl.Tabs.IndexOf(Control.Caption));
     252
     253        with TabControl.Tabs do
     254          Delete(IndexOf(Control.Caption));
     255      end;
     256    end;
     257  end else
     258  begin
     259    if Control.Tag = 0 then begin
     260      TabImageList.Add(TCoolDockClientPanel(TCoolDockManager(Manager).FindControlInPanels(Control)).Header.Icon.Picture.Bitmap, nil);
     261      TabControl.Tabs.Add(Control.Caption);
     262    end;
    239263  end;
    240264end;
    … …  
    242266procedure TCoolDockStyleTabs.SetTabsPos(const AValue: THeaderPos);
    243267begin
    244   (*if FTabsPos = AValue then Exit;
     268  if FTabsPos = AValue then Exit;
    245269  FTabsPos := AValue;
    246270  with TabControl do
    … …  
    266290      Height := GrabberSize;
    267291    end;
    268   end;       *)
     292  end;
    269293end;
    270294

  • Docking/CoolDocking/UCoolDockWindowList.lfm

    r57 r176  
    88  ClientWidth = 382
    99  OnShow = FormShow
    10   LCLVersion = '0.9.29'
     10  LCLVersion = '0.9.31'
    1111  object ListView1: TListView
    1212    Left = 8
    … …  
    2828        Width = 70
    2929      end>
    30     ItemIndex = -1
    3130    ReadOnly = True
    3231    RowSelect = True
    … …  
    3635    OnDblClick = ListView1DblClick
    3736    OnKeyPress = ListView1KeyPress
     37    OnSelectItem = ListView1SelectItem
    3838  end
    3939  object ButtonFocus: TButton
    40     Left = 214
     40    Left = 299
     41    Height = 25
     42    Top = 224
     43    Width = 75
     44    Anchors = [akRight, akBottom]
     45    Caption = 'Focus'
     46    Enabled = False
     47    OnClick = ButtonFocusClick
     48    TabOrder = 1
     49  end
     50  object ButtonHide: TButton
     51    Left = 219
     52    Height = 25
     53    Top = 224
     54    Width = 75
     55    Anchors = [akRight, akBottom]
     56    Caption = 'Hide'
     57    Enabled = False
     58    OnClick = ButtonHideClick
     59    TabOrder = 2
     60  end
     61  object ButtonShow: TButton
     62    Left = 139
    4163    Height = 25
    4264    Top = 224
    … …  
    4466    Anchors = [akRight, akBottom]
    4567    Caption = 'Show'
    46     OnClick = ButtonFocusClick
    47     TabOrder = 1
    48   end
    49   object ButtonCancel: TButton
    50     Left = 300
    51     Height = 25
    52     Top = 224
    53     Width = 74
    54     Anchors = [akRight, akBottom]
    55     Caption = 'Cancel'
    56     OnClick = ButtonCancelClick
    57     TabOrder = 2
     68    Enabled = False
     69    OnClick = ButtonShowClick
     70    TabOrder = 3
    5871  end
    5972  object ImageList1: TImageList

  • Docking/CoolDocking/UCoolDockWindowList.lrs

    r57 r176  
    55  +'Height'#3#0#1#3'Top'#3#142#0#5'Width'#3'~'#1#7'Caption'#6#11'Window list'#12
    66  +'ClientHeight'#3#0#1#11'ClientWidth'#3'~'#1#6'OnShow'#7#8'FormShow'#10'LCLVe'
    7   +'rsion'#6#6'0.9.29'#0#9'TListView'#9'ListView1'#4'Left'#2#8#6'Height'#3#211#0
     7  +'rsion'#6#6'0.9.31'#0#9'TListView'#9'ListView1'#4'Left'#2#8#6'Height'#3#211#0
    88  +#3'Top'#2#5#5'Width'#3'n'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'ak'
    99  +'Bottom'#0#7'Columns'#14#1#7'Caption'#6#4'Name'#5'Width'#3#200#0#0#1#7'Capti'
    1010  +'on'#6#10'Dock state'#5'Width'#2'F'#0#1#7'Caption'#6#10'Visibility'#5'Width'
    11   +#2'F'#0#0#9'ItemIndex'#2#255#8'ReadOnly'#9#9'RowSelect'#9#11'SmallImages'#7
    12   +#10'ImageList1'#8'TabOrder'#2#0#9'ViewStyle'#7#8'vsReport'#10'OnDblClick'#7
    13   +#17'ListView1DblClick'#10'OnKeyPress'#7#17'ListView1KeyPress'#0#0#7'TButton'
    14   +#11'ButtonFocus'#4'Left'#3#214#0#6'Height'#2#25#3'Top'#3#224#0#5'Width'#2'K'
    15   +#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#4'Show'#7'OnClick'#7#16
    16   +'ButtonFocusClick'#8'TabOrder'#2#1#0#0#7'TButton'#12'ButtonCancel'#4'Left'#3
    17   +','#1#6'Height'#2#25#3'Top'#3#224#0#5'Width'#2'J'#7'Anchors'#11#7'akRight'#8
    18   +'akBottom'#0#7'Caption'#6#6'Cancel'#7'OnClick'#7#17'ButtonCancelClick'#8'Tab'
    19   +'Order'#2#2#0#0#10'TImageList'#10'ImageList1'#4'left'#2' '#3'top'#2'&'#6'Bit'
    20   +'map'#10#14#4#0#0'Li'#1#0#0#0#16#0#0#0#16#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
    21   +#0#0#0#0#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#0#0#0#0#0
    22   +#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#255#0#0#0#255
    23   +#0#0#0#255#189#189#189#255#255#255#255#255#255#255#255#255#189#189#189#255#0
    24   +#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#255
    25   +#255#255#0#255#255#255#0#255#255#255#0#255#0#0#0#255#255#255#255#255#189#189
    26   +#189#255#0'{{'#255#0'{{'#255#0'{{'#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0
    27   +#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#0#0#0#255#255#255
    28   +#255#255#0'{{'#255#0'{{'#255#0#0#0#255#0'{{'#255#0'{{'#255#255#255#0#255#0#0
    29   +#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#0#0#0
    30   +#255#0'{{'#255#0#0#0#255#0'{{'#255#0'{{'#255#255#255#0#255#0#0#0#255#0'{{'
    31   +#255#0'{{'#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0
    32   +#255#255#255#0#255#0#0#0#255#255#255#0#255#255#255#0#255#0'{{'#255#255#255#0
    33   +#255#0#0#0#255#0'{{'#255#0'{{'#255#0'{{'#255#0'{{'#255#0#0#0#255#0#0#0#0#0#0
    34   +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#0'{{'#255#255
    35   +#255#0#255#255#255#0#255#255#255#0#255#0#0#0#255#0'{{'#255#0'{{'#255#0'{{'
    36   +#255#0'{{'#255#0#0#0#255#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#0#0#0
    37   +#0#0#0#0#255#0'{{'#255#0'{{'#255#0'{{'#255#0'{{'#255#0'{{'#255#0'{{'#255#0#0
    38   +#0#255#0'{{'#255#0'{{'#255#0#0#0#255#0#0#0#0#0#0#0#255#255#255#0#255#0#0#0#0
    39   +#255#255#0#255#0#0#0#255#0'{{'#255#0'{{'#255#0'{{'#255#0'{{'#255#0#0#0#255
    40   +#255#255#0#255'{{{'#255#255#255#0#255#0#0#0#255#0#0#0#255#0#0#0#0#0#0#0#255#0
    41   +#0#0#0#255#255#0#255#0#0#0#0#0#0#0#255#0'{{'#255#0'{{'#255#0'{{'#255#0'{{'
    42   +#255#255#255#0#255'{{{'#255#255#255#0#255'{{{'#255'{{{'#255#0#0#0#255#0#0#0#0
    43   +#0#0#0#0#0#0#0#255#0#0#0#0#255#255#0#255#0#0#0#0#255#255#0#255#0#0#0#255#0'{'
    44   +'{'#255#0'{{'#255'{{{'#255#255#255#0#255'{{{'#255#255#255#0#255#0#0#0#255#0#0
    45   +#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#0#0#0#0#255#255#0#255#0#0#0#0
    46   +#255#255#0#255#0'{{'#255#0'{{'#255#255#255#0#255'{{{'#255#255#255#0#255'{{{'
    47   +#255#0#0#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#0#0#0
    48   +#0#255#255#0#255#255#255#0#255#255#255#0#255#0'{{'#255'{{{'#255#255#255#0#255
    49   +'{{{'#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#255
    50   +#0#0#0#255#0#0#0#0#255#255#0#255#0#0#0#0#255#255#0#255#255#255#0#255#0#0#0
    51   +#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#0#0
    52   +#0#0#0#0#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#0#0#0#0#0
     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'{{'
     52  +#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
     53  +#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
     54  +#0#255#255#255#0#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
     55  +#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#0#0#255
     56  +#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#0#0#0#0
    5357  +#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#0#0
    54   +#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#0#0
    55   +#0#0#0#0#0#0#0
     58  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
    5659]);

  • Docking/CoolDocking/UCoolDockWindowList.lrt

    r56 r176  
    1 TCOOLDOCKWINDOWLISTFORM.COOLDOCKWINDOWLISTFORM.CAPTION=Window list
     1TCOOLDOCKWINDOWLISTFORM.CAPTION=Window list
    22TCOOLDOCKWINDOWLISTFORM.LISTVIEW1.COLUMNS[0].CAPTION=Name
    33TCOOLDOCKWINDOWLISTFORM.LISTVIEW1.COLUMNS[1].CAPTION=Dock state
    44TCOOLDOCKWINDOWLISTFORM.LISTVIEW1.COLUMNS[2].CAPTION=Visibility
    5 TCOOLDOCKWINDOWLISTFORM.BUTTONFOCUS.CAPTION=Show
    6 TCOOLDOCKWINDOWLISTFORM.BUTTONCANCEL.CAPTION=Cancel
     5TCOOLDOCKWINDOWLISTFORM.BUTTONFOCUS.CAPTION=Focus
     6TCOOLDOCKWINDOWLISTFORM.BUTTONHIDE.CAPTION=Hide
     7TCOOLDOCKWINDOWLISTFORM.BUTTONSHOW.CAPTION=Show

  • Docking/CoolDocking/UCoolDockWindowList.pas

    r58 r176  
    1515  TCoolDockWindowListForm = class(TForm)
    1616    ButtonFocus: TButton;
    17     ButtonCancel: TButton;
     17    ButtonHide: TButton;
     18    ButtonShow: TButton;
    1819    ImageList1: TImageList;
    1920    ListView1: TListView;
    20     procedure ButtonCancelClick(Sender: TObject);
    2121    procedure ButtonFocusClick(Sender: TObject);
     22    procedure ButtonHideClick(Sender: TObject);
     23    procedure ButtonShowClick(Sender: TObject);
    2224    procedure FormShow(Sender: TObject);
    2325    procedure ListView1DblClick(Sender: TObject);
    2426    procedure ListView1KeyPress(Sender: TObject; var Key: char);
     27    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
     28      Selected: Boolean);
    2529  private
    2630    { private declarations }
    … …  
    4347{ TCoolDockWindowListForm }
    4448
    45 procedure TCoolDockWindowListForm.ButtonCancelClick(Sender: TObject);
    46 begin
    47   Close;
    48 end;
    49 
    5049procedure TCoolDockWindowListForm.ButtonFocusClick(Sender: TObject);
    5150begin
    … …  
    5352    TForm(ListView1.Selected.Data).Show;
    5453  Close;
     54end;
     55
     56procedure TCoolDockWindowListForm.ButtonHideClick(Sender: TObject);
     57begin
     58  if Assigned(ListView1.Selected) then
     59    TForm(ListView1.Selected.Data).Close;
     60  LoadList;
     61end;
     62
     63procedure TCoolDockWindowListForm.ButtonShowClick(Sender: TObject);
     64begin
     65  if Assigned(ListView1.Selected) then
     66    TForm(ListView1.Selected.Data).Show;
     67  LoadList;
    5568end;
    5669
    … …  
    6881begin
    6982  if Key = #13 then ButtonFocusClick(Self);
     83end;
     84
     85procedure TCoolDockWindowListForm.ListView1SelectItem(Sender: TObject;
     86  Item: TListItem; Selected: Boolean);
     87begin
     88  ButtonFocus.Enabled := Selected;
     89  ButtonHide.Enabled := Selected;
     90  ButtonShow.Enabled := Selected;
    7091end;
    7192
Note: See TracChangeset for help on using the changeset viewer.