Changeset 56


Ignore:
Timestamp:
Sep 21, 2010, 8:03:17 AM (14 years ago)
Author:
george
Message:
  • Přidáno: Okno pro zobrazení seznamu všech oken.
Location:
Docking/CoolDocking
Files:
7 added
12 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/CoolDocking.lpk

    r55 r56  
    2222      </Other>
    2323    </CompilerOptions>
    24     <Files Count="3">
     24    <Files Count="4">
    2525      <Item1>
    2626        <Filename Value="UCoolDocking.pas"/>
    … …  
    3636        <Type Value="Binary"/>
    3737      </Item3>
     38      <Item4>
     39        <Filename Value="UCoolDockWindowList.pas"/>
     40        <UnitName Value="UCoolDockWindowList"/>
     41      </Item4>
    3842    </Files>
    3943    <i18n>

  • Docking/CoolDocking/CoolDocking.pas

    r55 r56  
    88
    99uses
    10   UCoolDocking, UCoolDockCustomize, LazarusPackageIntf;
     10    UCoolDocking, UCoolDockCustomize, UCoolDockWindowList, LazarusPackageIntf;
    1111
    1212implementation

  • Docking/CoolDocking/Demo/Demo.lpi

    r55 r56  
    3535      </Item2>
    3636    </RequiredPackages>
    37     <Units Count="39">
     37    <Units Count="41">
    3838      <Unit0>
    3939        <Filename Value="Demo.lpr"/>
    4040        <IsPartOfProject Value="True"/>
    4141        <UnitName Value="Demo"/>
    42         <EditorIndex Value="10"/>
     42        <EditorIndex Value="13"/>
    4343        <WindowIndex Value="0"/>
    4444        <TopLine Value="1"/>
    4545        <CursorPos X="1" Y="18"/>
    46         <UsageCount Value="41"/>
     46        <UsageCount Value="77"/>
    4747        <Loaded Value="True"/>
    4848        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    5454        <ResourceBaseClass Value="Form"/>
    5555        <UnitName Value="UMainForm"/>
    56         <IsVisibleTab Value="True"/>
    5756        <EditorIndex Value="0"/>
    5857        <WindowIndex Value="0"/>
    59         <TopLine Value="53"/>
    60         <CursorPos X="3" Y="73"/>
    61         <UsageCount Value="41"/>
     58        <TopLine Value="14"/>
     59        <CursorPos X="15" Y="27"/>
     60        <UsageCount Value="77"/>
    6261        <Loaded Value="True"/>
    6362        <LoadedDesigner Value="True"/>
    … …  
    6766        <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
    6867        <UnitName Value="Controls"/>
    69         <EditorIndex Value="4"/>
    70         <WindowIndex Value="0"/>
    71         <TopLine Value="1689"/>
    72         <CursorPos X="15" Y="1702"/>
    73         <UsageCount Value="19"/>
     68        <EditorIndex Value="6"/>
     69        <WindowIndex Value="0"/>
     70        <TopLine Value="1891"/>
     71        <CursorPos X="31" Y="1907"/>
     72        <UsageCount Value="37"/>
    7473        <Loaded Value="True"/>
    7574      </Unit2>
    … …  
    8079        <TopLine Value="98"/>
    8180        <CursorPos X="27" Y="110"/>
    82         <UsageCount Value="24"/>
     81        <UsageCount Value="20"/>
    8382        <DefaultSyntaxHighlighter Value="Delphi"/>
    8483      </Unit3>
    8584      <Unit4>
    8685        <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    87         <WindowIndex Value="0"/>
    88         <TopLine Value="1041"/>
    89         <CursorPos X="1" Y="1048"/>
    90         <UsageCount Value="18"/>
     86        <EditorIndex Value="7"/>
     87        <WindowIndex Value="0"/>
     88        <TopLine Value="1325"/>
     89        <CursorPos X="20" Y="1335"/>
     90        <UsageCount Value="35"/>
     91        <Loaded Value="True"/>
    9192      </Unit4>
    9293      <Unit5>
    9394        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    94         <EditorIndex Value="5"/>
    95         <WindowIndex Value="0"/>
    96         <TopLine Value="5966"/>
    97         <CursorPos X="14" Y="5976"/>
    98         <UsageCount Value="18"/>
     95        <EditorIndex Value="8"/>
     96        <WindowIndex Value="0"/>
     97        <TopLine Value="7669"/>
     98        <CursorPos X="37" Y="7672"/>
     99        <UsageCount Value="36"/>
    99100        <Loaded Value="True"/>
    100101      </Unit5>
    … …  
    105106        <TopLine Value="28"/>
    106107        <CursorPos X="54" Y="32"/>
    107         <UsageCount Value="11"/>
     108        <UsageCount Value="7"/>
    108109      </Unit6>
    109110      <Unit7>
    110111        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\classesh.inc"/>
    111         <EditorIndex Value="11"/>
     112        <EditorIndex Value="14"/>
    112113        <WindowIndex Value="0"/>
    113114        <TopLine Value="259"/>
    114115        <CursorPos X="14" Y="272"/>
    115         <UsageCount Value="11"/>
     116        <UsageCount Value="29"/>
    116117        <Loaded Value="True"/>
    117118      </Unit7>
    … …  
    121122        <TopLine Value="206"/>
    122123        <CursorPos X="8" Y="219"/>
    123         <UsageCount Value="11"/>
     124        <UsageCount Value="7"/>
    124125      </Unit8>
    125126      <Unit9>
    … …  
    129130        <TopLine Value="114"/>
    130131        <CursorPos X="3" Y="127"/>
    131         <UsageCount Value="9"/>
     132        <UsageCount Value="5"/>
    132133      </Unit9>
    133134      <Unit10>
    134135        <Filename Value="E:\Programy\Lazarus\lcl\lclproc.pas"/>
    135136        <UnitName Value="LCLProc"/>
    136         <EditorIndex Value="7"/>
    137         <WindowIndex Value="0"/>
    138         <TopLine Value="192"/>
    139         <CursorPos X="11" Y="205"/>
    140         <UsageCount Value="10"/>
     137        <EditorIndex Value="10"/>
     138        <WindowIndex Value="0"/>
     139        <TopLine Value="1493"/>
     140        <CursorPos X="18" Y="1498"/>
     141        <UsageCount Value="28"/>
    141142        <Loaded Value="True"/>
    142143      </Unit10>
    … …  
    146147        <TopLine Value="417"/>
    147148        <CursorPos X="60" Y="434"/>
    148         <UsageCount Value="9"/>
     149        <UsageCount Value="5"/>
    149150      </Unit11>
    150151      <Unit12>
    … …  
    153154        <TopLine Value="67"/>
    154155        <CursorPos X="10" Y="80"/>
    155         <UsageCount Value="9"/>
     156        <UsageCount Value="5"/>
    156157      </Unit12>
    157158      <Unit13>
    … …  
    161162        <TopLine Value="280"/>
    162163        <CursorPos X="3" Y="282"/>
    163         <UsageCount Value="11"/>
     164        <UsageCount Value="7"/>
    164165      </Unit13>
    165166      <Unit14>
    … …  
    168169        <TopLine Value="200"/>
    169170        <CursorPos X="3" Y="218"/>
    170         <UsageCount Value="11"/>
     171        <UsageCount Value="7"/>
    171172      </Unit14>
    172173      <Unit15>
    … …  
    181182        <TopLine Value="1"/>
    182183        <CursorPos X="47" Y="8"/>
    183         <UsageCount Value="40"/>
     184        <UsageCount Value="76"/>
    184185        <Loaded Value="True"/>
    185186        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    191192        <TopLine Value="675"/>
    192193        <CursorPos X="24" Y="688"/>
    193         <UsageCount Value="11"/>
     194        <UsageCount Value="7"/>
    194195      </Unit16>
    195196      <Unit17>
    … …  
    199200        <TopLine Value="1092"/>
    200201        <CursorPos X="9" Y="1098"/>
    201         <UsageCount Value="10"/>
     202        <UsageCount Value="6"/>
    202203      </Unit17>
    203204      <Unit18>
    … …  
    207208        <TopLine Value="4756"/>
    208209        <CursorPos X="5" Y="4763"/>
    209         <UsageCount Value="19"/>
     210        <UsageCount Value="15"/>
    210211        <DefaultSyntaxHighlighter Value="Delphi"/>
    211212      </Unit18>
    … …  
    216217        <TopLine Value="362"/>
    217218        <CursorPos X="21" Y="369"/>
    218         <UsageCount Value="10"/>
     219        <UsageCount Value="6"/>
    219220      </Unit19>
    220221      <Unit20>
    … …  
    224225        <TopLine Value="702"/>
    225226        <CursorPos X="10" Y="719"/>
    226         <UsageCount Value="33"/>
     227        <UsageCount Value="29"/>
    227228        <DefaultSyntaxHighlighter Value="Delphi"/>
    228229      </Unit20>
    … …  
    230231        <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
    231232        <UnitName Value="ExtCtrls"/>
    232         <EditorIndex Value="3"/>
     233        <EditorIndex Value="5"/>
    233234        <WindowIndex Value="0"/>
    234235        <TopLine Value="1153"/>
    235236        <CursorPos X="32" Y="1160"/>
    236         <UsageCount Value="11"/>
     237        <UsageCount Value="29"/>
    237238        <Loaded Value="True"/>
    238239      </Unit21>
    … …  
    243244        <TopLine Value="479"/>
    244245        <CursorPos X="30" Y="488"/>
    245         <UsageCount Value="9"/>
     246        <UsageCount Value="5"/>
    246247      </Unit22>
    247248      <Unit23>
    … …  
    250251        <TopLine Value="538"/>
    251252        <CursorPos X="20" Y="567"/>
    252         <UsageCount Value="14"/>
     253        <UsageCount Value="10"/>
    253254      </Unit23>
    254255      <Unit24>
    … …  
    257258        <TopLine Value="359"/>
    258259        <CursorPos X="1" Y="372"/>
    259         <UsageCount Value="9"/>
     260        <UsageCount Value="5"/>
    260261      </Unit24>
    261262      <Unit25>
    … …  
    265266        <TopLine Value="267"/>
    266267        <CursorPos X="1" Y="269"/>
    267         <UsageCount Value="16"/>
     268        <UsageCount Value="12"/>
    268269      </Unit25>
    269270      <Unit26>
    … …  
    273274        <TopLine Value="551"/>
    274275        <CursorPos X="3" Y="558"/>
    275         <UsageCount Value="16"/>
     276        <UsageCount Value="12"/>
    276277      </Unit26>
    277278      <Unit27>
    … …  
    281282        <TopLine Value="693"/>
    282283        <CursorPos X="14" Y="700"/>
    283         <UsageCount Value="15"/>
     284        <UsageCount Value="11"/>
    284285      </Unit27>
    285286      <Unit28>
    286287        <Filename Value="E:\Programy\Lazarus\lcl\themes.pas"/>
    287288        <UnitName Value="Themes"/>
    288         <EditorIndex Value="13"/>
     289        <EditorIndex Value="16"/>
    289290        <WindowIndex Value="0"/>
    290291        <TopLine Value="550"/>
    291292        <CursorPos X="26" Y="560"/>
    292         <UsageCount Value="13"/>
     293        <UsageCount Value="31"/>
    293294        <Loaded Value="True"/>
    294295      </Unit28>
    … …  
    299300        <TopLine Value="374"/>
    300301        <CursorPos X="3" Y="387"/>
    301         <UsageCount Value="10"/>
     302        <UsageCount Value="6"/>
    302303      </Unit29>
    303304      <Unit30>
    … …  
    307308        <TopLine Value="49"/>
    308309        <CursorPos X="1" Y="56"/>
    309         <UsageCount Value="12"/>
     310        <UsageCount Value="8"/>
    310311        <DefaultSyntaxHighlighter Value="Delphi"/>
    311312      </Unit30>
    … …  
    316317        <TopLine Value="68"/>
    317318        <CursorPos X="3" Y="77"/>
    318         <UsageCount Value="10"/>
     319        <UsageCount Value="6"/>
    319320      </Unit31>
    320321      <Unit32>
    … …  
    324325        <TopLine Value="341"/>
    325326        <CursorPos X="1" Y="354"/>
    326         <UsageCount Value="10"/>
     327        <UsageCount Value="6"/>
    327328      </Unit32>
    328329      <Unit33>
    329330        <Filename Value="..\UCoolDocking.pas"/>
    330331        <UnitName Value="UCoolDocking"/>
     332        <IsVisibleTab Value="True"/>
    331333        <EditorIndex Value="2"/>
    332334        <WindowIndex Value="0"/>
    333         <TopLine Value="37"/>
    334         <CursorPos X="35" Y="50"/>
    335         <UsageCount Value="10"/>
     335        <TopLine Value="1"/>
     336        <CursorPos X="66" Y="12"/>
     337        <UsageCount Value="28"/>
    336338        <Loaded Value="True"/>
    337339        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    339341      <Unit34>
    340342        <Filename Value="..\ReadMe.txt"/>
    341         <EditorIndex Value="14"/>
     343        <EditorIndex Value="17"/>
    342344        <WindowIndex Value="0"/>
    343345        <TopLine Value="1"/>
    344         <CursorPos X="24" Y="7"/>
    345         <UsageCount Value="10"/>
     346        <CursorPos X="29" Y="16"/>
     347        <UsageCount Value="28"/>
    346348        <Loaded Value="True"/>
    347349        <DefaultSyntaxHighlighter Value="None"/>
    … …  
    349351      <Unit35>
    350352        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\lists.inc"/>
    351         <EditorIndex Value="12"/>
     353        <EditorIndex Value="15"/>
    352354        <WindowIndex Value="0"/>
    353355        <TopLine Value="641"/>
    354356        <CursorPos X="3" Y="643"/>
    355         <UsageCount Value="10"/>
     357        <UsageCount Value="28"/>
    356358        <Loaded Value="True"/>
    357359      </Unit35>
    358360      <Unit36>
    359361        <Filename Value="E:\Programy\Lazarus\lcl\include\custompanel.inc"/>
    360         <EditorIndex Value="9"/>
     362        <EditorIndex Value="12"/>
    361363        <WindowIndex Value="0"/>
    362364        <TopLine Value="27"/>
    363365        <CursorPos X="3" Y="32"/>
    364         <UsageCount Value="10"/>
     366        <UsageCount Value="28"/>
    365367        <Loaded Value="True"/>
    366368      </Unit36>
    367369      <Unit37>
    368370        <Filename Value="E:\Programy\Lazarus\lcl\include\customcontrol.inc"/>
    369         <EditorIndex Value="8"/>
     371        <EditorIndex Value="11"/>
    370372        <WindowIndex Value="0"/>
    371373        <TopLine Value="50"/>
    372374        <CursorPos X="18" Y="61"/>
    373         <UsageCount Value="10"/>
     375        <UsageCount Value="28"/>
    374376        <Loaded Value="True"/>
    375377      </Unit37>
    376378      <Unit38>
    377379        <Filename Value="E:\Programy\Lazarus\lcl\include\controlsproc.inc"/>
    378         <EditorIndex Value="6"/>
     380        <EditorIndex Value="9"/>
    379381        <WindowIndex Value="0"/>
    380382        <TopLine Value="84"/>
    381383        <CursorPos X="45" Y="90"/>
     384        <UsageCount Value="28"/>
     385        <Loaded Value="True"/>
     386      </Unit38>
     387      <Unit39>
     388        <Filename Value="..\UCoolDockCustomize.pas"/>
     389        <ComponentName Value="CoolDockCustomizeForm"/>
     390        <HasResources Value="True"/>
     391        <ResourceBaseClass Value="Form"/>
     392        <UnitName Value="UCoolDockCustomize"/>
     393        <EditorIndex Value="4"/>
     394        <WindowIndex Value="0"/>
     395        <TopLine Value="9"/>
     396        <CursorPos X="19" Y="17"/>
     397        <UsageCount Value="28"/>
     398        <Loaded Value="True"/>
     399        <LoadedDesigner Value="True"/>
     400        <DefaultSyntaxHighlighter Value="Delphi"/>
     401      </Unit39>
     402      <Unit40>
     403        <Filename Value="..\UCoolDockWindowList.pas"/>
     404        <ComponentName Value="CoolDockWindowList"/>
     405        <HasResources Value="True"/>
     406        <ResourceBaseClass Value="Form"/>
     407        <UnitName Value="UCoolDockWindowList"/>
     408        <EditorIndex Value="3"/>
     409        <WindowIndex Value="0"/>
     410        <TopLine Value="59"/>
     411        <CursorPos X="44" Y="61"/>
    382412        <UsageCount Value="10"/>
    383413        <Loaded Value="True"/>
    384       </Unit38>
     414        <LoadedDesigner Value="True"/>
     415        <DefaultSyntaxHighlighter Value="Delphi"/>
     416      </Unit40>
    385417    </Units>
    386     <JumpHistory Count="28" HistoryIndex="27">
     418    <JumpHistory Count="30" HistoryIndex="29">
    387419      <Position1>
    388         <Filename Value="..\UCoolDocking.pas"/>
    389         <Caret Line="91" Column="26" TopLine="86"/>
     420        <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
     421        <Caret Line="1351" Column="16" TopLine="1336"/>
    390422      </Position1>
    391423      <Position2>
    392         <Filename Value="..\UCoolDocking.pas"/>
    393         <Caret Line="354" Column="15" TopLine="334"/>
     424        <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
     425        <Caret Line="5" Column="61" TopLine="1"/>
    394426      </Position2>
    395427      <Position3>
    396         <Filename Value="..\UCoolDocking.pas"/>
    397         <Caret Line="308" Column="11" TopLine="303"/>
     428        <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
     429        <Caret Line="1338" Column="22" TopLine="1325"/>
    398430      </Position3>
    399431      <Position4>
    400432        <Filename Value="..\UCoolDocking.pas"/>
    401         <Caret Line="320" Column="59" TopLine="312"/>
     433        <Caret Line="469" Column="35" TopLine="450"/>
    402434      </Position4>
    403435      <Position5>
    404436        <Filename Value="..\UCoolDocking.pas"/>
    405         <Caret Line="354" Column="65" TopLine="338"/>
     437        <Caret Line="468" Column="12" TopLine="450"/>
    406438      </Position5>
    407439      <Position6>
    408440        <Filename Value="..\UCoolDocking.pas"/>
    409         <Caret Line="105" Column="37" TopLine="93"/>
     441        <Caret Line="417" Column="29" TopLine="404"/>
    410442      </Position6>
    411443      <Position7>
    412444        <Filename Value="..\UCoolDocking.pas"/>
    413         <Caret Line="677" Column="89" TopLine="674"/>
     445        <Caret Line="59" Column="46" TopLine="50"/>
    414446      </Position7>
    415447      <Position8>
    416448        <Filename Value="..\UCoolDocking.pas"/>
    417         <Caret Line="267" Column="36" TopLine="254"/>
     449        <Caret Line="470" Column="54" TopLine="454"/>
    418450      </Position8>
    419451      <Position9>
    420452        <Filename Value="..\UCoolDocking.pas"/>
    421         <Caret Line="106" Column="40" TopLine="92"/>
     453        <Caret Line="832" Column="43" TopLine="828"/>
    422454      </Position9>
    423455      <Position10>
    424         <Filename Value="UMainForm.pas"/>
    425         <Caret Line="51" Column="53" TopLine="50"/>
     456        <Filename Value="..\UCoolDocking.pas"/>
     457        <Caret Line="696" Column="12" TopLine="683"/>
    426458      </Position10>
    427459      <Position11>
    428460        <Filename Value="..\UCoolDocking.pas"/>
    429         <Caret Line="674" Column="23" TopLine="663"/>
     461        <Caret Line="140" Column="47" TopLine="127"/>
    430462      </Position11>
    431463      <Position12>
    432         <Filename Value="UMainForm.pas"/>
    433         <Caret Line="66" Column="47" TopLine="51"/>
     464        <Filename Value="..\UCoolDocking.pas"/>
     465        <Caret Line="833" Column="31" TopLine="830"/>
    434466      </Position12>
    435467      <Position13>
    436         <Filename Value="UMainForm.pas"/>
    437         <Caret Line="68" Column="47" TopLine="53"/>
     468        <Filename Value="..\UCoolDocking.pas"/>
     469        <Caret Line="699" Column="28" TopLine="692"/>
    438470      </Position13>
    439471      <Position14>
    440         <Filename Value="UMainForm.pas"/>
    441         <Caret Line="70" Column="47" TopLine="55"/>
     472        <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
     473        <Caret Line="1904" Column="65" TopLine="1891"/>
    442474      </Position14>
    443475      <Position15>
    444         <Filename Value="UMainForm.pas"/>
    445         <Caret Line="96" Column="29" TopLine="75"/>
     476        <Filename Value="..\UCoolDocking.pas"/>
     477        <Caret Line="835" Column="42" TopLine="830"/>
    446478      </Position15>
    447479      <Position16>
    448         <Filename Value="E:\Programy\Lazarus\lcl\themes.pas"/>
    449         <Caret Line="561" Column="39" TopLine="550"/>
     480        <Filename Value="..\UCoolDocking.pas"/>
     481        <Caret Line="749" Column="1" TopLine="736"/>
    450482      </Position16>
    451483      <Position17>
    452484        <Filename Value="..\UCoolDocking.pas"/>
    453         <Caret Line="477" Column="12" TopLine="469"/>
     485        <Caret Line="750" Column="1" TopLine="736"/>
    454486      </Position17>
    455487      <Position18>
    456488        <Filename Value="..\UCoolDocking.pas"/>
    457         <Caret Line="733" Column="3" TopLine="749"/>
     489        <Caret Line="751" Column="1" TopLine="736"/>
    458490      </Position18>
    459491      <Position19>
    460492        <Filename Value="..\UCoolDocking.pas"/>
    461         <Caret Line="768" Column="1" TopLine="749"/>
     493        <Caret Line="754" Column="1" TopLine="736"/>
    462494      </Position19>
    463495      <Position20>
    464         <Filename Value="Demo.lpr"/>
    465         <Caret Line="3" Column="7" TopLine="1"/>
     496        <Filename Value="..\UCoolDocking.pas"/>
     497        <Caret Line="699" Column="25" TopLine="686"/>
    466498      </Position20>
    467499      <Position21>
    468         <Filename Value="..\UCoolDocking.pas"/>
    469         <Caret Line="730" Column="29" TopLine="724"/>
     500        <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
     501        <Caret Line="1904" Column="69" TopLine="1891"/>
    470502      </Position21>
    471503      <Position22>
    472         <Filename Value="..\UCoolDocking.pas"/>
    473         <Caret Line="50" Column="35" TopLine="37"/>
     504        <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
     505        <Caret Line="1689" Column="34" TopLine="1676"/>
    474506      </Position22>
    475507      <Position23>
    476         <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
    477         <Caret Line="1196" Column="23" TopLine="1189"/>
     508        <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
     509        <Caret Line="1907" Column="31" TopLine="1891"/>
    478510      </Position23>
    479511      <Position24>
    480         <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
    481         <Caret Line="1160" Column="32" TopLine="1153"/>
     512        <Filename Value="..\UCoolDockWindowList.pas"/>
     513        <Caret Line="1" Column="1" TopLine="1"/>
    482514      </Position24>
    483515      <Position25>
    484         <Filename Value="E:\Programy\Lazarus\lcl\include\customcontrol.inc"/>
    485         <Caret Line="61" Column="18" TopLine="50"/>
     516        <Filename Value="..\UCoolDockWindowList.pas"/>
     517        <Caret Line="19" Column="75" TopLine="1"/>
    486518      </Position25>
    487519      <Position26>
    488         <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    489         <Caret Line="6329" Column="9" TopLine="6316"/>
     520        <Filename Value="..\UCoolDockWindowList.pas"/>
     521        <Caret Line="36" Column="9" TopLine="17"/>
    490522      </Position26>
    491523      <Position27>
    492         <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    493         <Caret Line="6330" Column="7" TopLine="6316"/>
     524        <Filename Value="..\UCoolDockWindowList.pas"/>
     525        <Caret Line="24" Column="24" TopLine="11"/>
    494526      </Position27>
    495527      <Position28>
    496         <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    497         <Caret Line="5976" Column="14" TopLine="5966"/>
     528        <Filename Value="..\UCoolDockWindowList.pas"/>
     529        <Caret Line="70" Column="41" TopLine="53"/>
    498530      </Position28>
     531      <Position29>
     532        <Filename Value="..\UCoolDockWindowList.pas"/>
     533        <Caret Line="49" Column="40" TopLine="34"/>
     534      </Position29>
     535      <Position30>
     536        <Filename Value="..\UCoolDockWindowList.pas"/>
     537        <Caret Line="56" Column="26" TopLine="39"/>
     538      </Position30>
    499539    </JumpHistory>
    500540  </ProjectOptions>

  • Docking/CoolDocking/Demo/UMainForm.lfm

    r55 r56  
    55  Width = 576
    66  Caption = 'MainForm'
    7   ClientHeight = 435
     7  ClientHeight = 416
    88  ClientWidth = 576
     9  Menu = MainMenu1
    910  OnCreate = FormCreate
    1011  OnDestroy = FormDestroy
    … …  
    2223  object Panel1: TPanel
    2324    Left = 0
    24     Height = 387
     25    Height = 368
    2526    Top = 48
    2627    Width = 576
    … …  
    2930    DockSite = True
    3031    TabOrder = 1
    31   end
    32   object TabControl1: TTabControl
    33     Left = 173
    34     Height = 150
    35     Top = 16
    36     Width = 200
    37     TabOrder = 2
    38     TabStop = False
    39   end
    40   object Button2: TButton
    41     Left = 94
    42     Height = 25
    43     Top = 10
    44     Width = 75
    45     Caption = 'Customize'
    46     OnClick = Button2Click
    47     TabOrder = 3
    4832  end
    4933  object CoolDockMaster1: TCoolDockMaster
    … …  
    5539    left = 472
    5640  end
     41  object CoolDockWindowList1: TCoolDockWindowList
     42    left = 472
     43    top = 64
     44  end
     45  object MainMenu1: TMainMenu
     46    left = 211
     47    top = 14
     48    object MenuItem1: TMenuItem
     49      Caption = 'Docking'
     50      object MenuItem2: TMenuItem
     51        Caption = 'Customize...'
     52        OnClick = MenuItem2Click
     53      end
     54    end
     55    object MenuItem3: TMenuItem
     56      Caption = 'Window'
     57      object MenuItem4: TMenuItem
     58        Caption = 'Window list...'
     59        OnClick = MenuItem4Click
     60      end
     61    end
     62  end
    5763end

  • Docking/CoolDocking/Demo/UMainForm.pas

    r55 r56  
    1616  TMainForm = class(TForm)
    1717    Button1: TButton;
    18     Button2: TButton;
    1918    CoolDockCustomize1: TCoolDockCustomize;
    2019    CoolDockMaster1: TCoolDockMaster;
     20    CoolDockWindowList1: TCoolDockWindowList;
     21    MainMenu1: TMainMenu;
     22    MenuItem1: TMenuItem;
     23    MenuItem2: TMenuItem;
     24    MenuItem3: TMenuItem;
     25    MenuItem4: TMenuItem;
    2126    Panel1: TPanel;
    22     TabControl1: TTabControl;
    2327    procedure Button1Click(Sender: TObject);
    2428    procedure Button2Click(Sender: TObject);
    … …  
    2630    procedure FormDestroy(Sender: TObject);
    2731    procedure FormShow(Sender: TObject);
     32    procedure MenuItem2Click(Sender: TObject);
     33    procedure MenuItem4Click(Sender: TObject);
    2834  private
    2935    { private declarations }
    … …  
    7379end;
    7480
     81procedure TMainForm.MenuItem2Click(Sender: TObject);
     82begin
     83  CoolDockCustomize1.Execute;
     84end;
     85
     86procedure TMainForm.MenuItem4Click(Sender: TObject);
     87begin
     88  CoolDockWindowList1.Execute;
     89end;
     90
    7591function TMainForm.NewDockForm: TDockForm;
    7692begin
    … …  
    94110procedure TMainForm.Button2Click(Sender: TObject);
    95111begin
    96   CoolDockCustomize1.Execute;
     112
    97113end;
    98114

  • Docking/CoolDocking/ReadMe.txt

    r55 r56  
    1414* Predefined customization form
    1515* User defined form header styles
     16* Icons on tabs and grabbers

  • Docking/CoolDocking/UCoolDockCustomize.lfm

    r55 r56  
    5050    Anchors = [akRight, akBottom]
    5151    Caption = 'Close'
     52    OnClick = ButtonCloseClick
    5253    TabOrder = 1
    5354  end

  • Docking/CoolDocking/UCoolDockCustomize.lrs

    r55 r56  
    1515  +'boBox1'#0#0#0#9'TTabSheet'#15'TabSheetLayouts'#7'Caption'#6#7'Layouts'#0#0#0
    1616  +#7'TButton'#11'ButtonClose'#4'Left'#3'D'#1#6'Height'#2#22#3'Top'#3'&'#1#5'Wi'
    17   +'dth'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#5'Close'#8'Ta'
    18   +'bOrder'#2#1#0#0#0
     17  +'dth'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#5'Close'#7'On'
     18  +'Click'#7#16'ButtonCloseClick'#8'TabOrder'#2#1#0#0#0
    1919]);

  • Docking/CoolDocking/UCoolDockCustomize.pas

    r55 r56  
    2020    TabSheetSetting: TTabSheet;
    2121    TabSheetLayouts: TTabSheet;
     22    procedure ButtonCloseClick(Sender: TObject);
    2223  private
    2324    { private declarations }
    … …  
    2526  end;
    2627
    27   TCoolDockCustomize = class(TComponent)
    28     Form: TCoolDockCustomizeForm;
    29     function Execute: Boolean;
    30     constructor Create(AOwner: TComponent); override;
    31   end;
    32 
    3328implementation
    3429
    35 { TCoolDockCustomize }
    3630
    37 function TCoolDockCustomize.Execute: Boolean;
     31{ TCoolDockCustomizeForm }
     32
     33procedure TCoolDockCustomizeForm.ButtonCloseClick(Sender: TObject);
    3834begin
    39   Form.ShowModal;
    40   Result := True;
    41 end;
    42 
    43 constructor TCoolDockCustomize.Create(AOwner: TComponent);
    44 begin
    45   inherited Create(AOwner);
    46   Form := TCoolDockCustomizeForm.Create(Self);
     35  Close;
    4736end;
    4837

  • Docking/CoolDocking/UCoolDocking.pas

    r55 r56  
    1010  Classes, SysUtils, Controls, LCLType, LMessages, Graphics, StdCtrls,
    1111  Buttons, ExtCtrls, Contnrs, Forms, ComCtrls, Dialogs, Menus, FileUtil,
    12   UCoolDockCustomize, DOM, XMLWrite, XMLRead;
     12  UCoolDockCustomize, DOM, XMLWrite, XMLRead, UCoolDockWindowList;
    1313
    1414const
    … …  
    2121  TCoolDockManager = class;
    2222  TCoolDockClientPanel = class;
     23  TCoolDockCustomize = class;
    2324
    2425  { TCoolDockConjoinForm }
    … …  
    5657    procedure SetHeaderPos(const AValue: THeaderPos);
    5758    procedure SetShowHeader(const AValue: Boolean);
     59    procedure VisibleChange(Sender: TObject);
    5860  public
    5961    Header: TCoolDockHeader;
    … …  
    8082    FTabsPos: THeaderPos;
    8183    Timer1: TTimer;
    82     PopupMenu1: TPopupMenu;
     84    PopupMenuTabs: TPopupMenu;
     85    PopupMenuHeader: TPopupMenu;
    8386    FDockStyle: TDockStyle;
    8487    TabControl: TTabControl;
    … …  
    105108    procedure PopupMenuPositionBottomClick(Sender: TObject);
    106109    procedure PopupMenuUndockClick(Sender: TObject);
     110    procedure PopupMenuCustomizeClick(Sender: TObject);
    107111    procedure Timer1Timer(Sender: TObject);
    108112    procedure TabControlMouseDown(Sender: TObject; Button: TMouseButton;
    … …  
    143147  TCoolDockMaster = class(TComponent)
    144148  private
     149    FCoolDockCustomize: TCoolDockCustomize;
    145150    FDefaultHeaderPos: THeaderPos;
    146151    FTabsEnabled: Boolean;
     152    procedure SetCustomize(const AValue: TCoolDockCustomize);
    147153    procedure SetTabsEnabled(const AValue: Boolean);
    148154  public
    … …  
    155161    property DefaultHeaderPos: THeaderPos read FDefaultHeaderPos
    156162      write FDefaultHeaderPos;
     163    property Customize: TCoolDockCustomize read FCoolDockCustomize
     164      write SetCustomize;
     165  end;
     166
     167  { TCoolDockCustomize }
     168
     169  TCoolDockCustomize = class(TComponent)
     170  private
     171    FManager: TCoolDockMaster;
     172    procedure SetManager(const AValue: TCoolDockMaster);
     173  public
     174    Form: TCoolDockCustomizeForm;
     175    function Execute: Boolean;
     176    constructor Create(AOwner: TComponent); override;
     177  published
     178    property Manager: TCoolDockMaster read FManager write SetManager;
     179  end;
     180
     181  { TCoolDockWindowList }
     182
     183  TCoolDockWindowList = class(TComponent)
     184  private
     185  public
     186    Form: TCoolDockWindowListForm;
     187    function Execute: Boolean;
     188    constructor Create(AOwner: TComponent); override;
     189  published
    157190  end;
    158191
    … …  
    174207  SPositionBottom = 'Bottom';
    175208  SUndock = 'Undock';
     209  SCustomize = 'Customize...';
    176210
    177211procedure Register;
    … …  
    179213  RegisterComponents('CoolDocking', [TCoolDockMaster]);
    180214  RegisterComponents('CoolDocking', [TCoolDockCustomize]);
     215  RegisterComponents('CoolDocking', [TCoolDockWindowList]);
    181216end;
    182217
    … …  
    204239  FDockSite := ADockSite;
    205240  FDockPanels := TObjectList.Create;
    206   PopupMenu1 := TPopupMenu.Create(FDockSite);
    207241
    208242  Timer1 := TTimer.Create(nil);
    … …  
    210244  Timer1.OnTimer := Timer1Timer;
    211245
    212   NewMenuItem := TMenuItem.Create(PopupMenu1);
     246  // Tabs popup
     247
     248  PopupMenuTabs := TPopupMenu.Create(FDockSite);
     249
     250  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    213251  NewMenuItem.Caption := SDockStyle;
    214   PopupMenu1.Items.Add(NewMenuItem);
     252  PopupMenuTabs.Items.Add(NewMenuItem);
    215253
    216254  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    … …  
    224262  NewMenuItem.Add(NewMenuItem2);
    225263
    226   NewMenuItem := TMenuItem.Create(PopupMenu1);
     264  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    227265  NewMenuItem.Caption := SPosition;
    228   PopupMenu1.Items.Add(NewMenuItem);
     266  PopupMenuTabs.Items.Add(NewMenuItem);
    229267
    230268  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    … …  
    253291  NewMenuItem.Add(NewMenuItem2);
    254292
    255   NewMenuItem := TMenuItem.Create(PopupMenu1);
     293  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    256294  NewMenuItem.Caption := SCloseForm;
    257295  NewMenuItem.OnClick := PopupMenuCloseClick;
    258   PopupMenu1.Items.Add(NewMenuItem);
    259 
    260   NewMenuItem := TMenuItem.Create(PopupMenu1);
     296  PopupMenuTabs.Items.Add(NewMenuItem);
     297
     298  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    261299  NewMenuItem.Caption := SRenameForm;
    262300  NewMenuItem.OnClick := PopupMenuRenameClick;
    263   PopupMenu1.Items.Add(NewMenuItem);
    264 
    265   NewMenuItem := TMenuItem.Create(PopupMenu1);
     301  PopupMenuTabs.Items.Add(NewMenuItem);
     302
     303  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    266304  NewMenuItem.Caption := SUndock;
    267305  NewMenuItem.OnClick := PopupMenuUndockClick;
    268   PopupMenu1.Items.Add(NewMenuItem);
     306  PopupMenuTabs.Items.Add(NewMenuItem);
     307
     308  NewMenuItem := TMenuItem.Create(PopupMenuTabs);
     309  NewMenuItem.Caption := SCustomize;
     310  NewMenuItem.OnClick := PopupMenuCustomizeClick;
     311  PopupMenuTabs.Items.Add(NewMenuItem);
     312
     313  // Header popup
     314
     315  PopupMenuHeader := TPopupMenu.Create(FDockSite);
     316
     317  NewMenuItem := TMenuItem.Create(PopupMenuHeader);
     318  NewMenuItem.Caption := SDockStyle;
     319  PopupMenuHeader.Items.Add(NewMenuItem);
     320
     321  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
     322  NewMenuItem2.Caption := SDockList;
     323  NewMenuItem2.OnClick := PopupMenuListClick;
     324  NewMenuItem.Add(NewMenuItem2);
     325
     326  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
     327  NewMenuItem2.Caption := SDockTabs;
     328  NewMenuItem2.OnClick := PopupMenuTabsClick;
     329  NewMenuItem.Add(NewMenuItem2);
     330
     331  NewMenuItem := TMenuItem.Create(PopupMenuHeader);
     332  NewMenuItem.Caption := SPosition;
     333  PopupMenuHeader.Items.Add(NewMenuItem);
     334
     335  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
     336  NewMenuItem2.Caption := SPositionAuto;
     337  NewMenuItem2.OnClick := PopupMenuPositionAutoClick;
     338  NewMenuItem.Add(NewMenuItem2);
     339
     340  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
     341  NewMenuItem2.Caption := SPositionTop;
     342  NewMenuItem2.OnClick := PopupMenuPositionTopClick;
     343  NewMenuItem.Add(NewMenuItem2);
     344
     345  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
     346  NewMenuItem2.Caption := SPositionLeft;
     347  NewMenuItem2.OnClick := PopupMenuPositionLeftClick;
     348  NewMenuItem.Add(NewMenuItem2);
     349
     350  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
     351  NewMenuItem2.Caption := SPositionBottom;
     352  NewMenuItem2.OnClick := PopupMenuPositionBottomClick;
     353  NewMenuItem.Add(NewMenuItem2);
     354
     355  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
     356  NewMenuItem2.Caption := SPositionRight;
     357  NewMenuItem2.OnClick := PopupMenuPositionRightClick;
     358  NewMenuItem.Add(NewMenuItem2);
     359
     360  NewMenuItem := TMenuItem.Create(PopupMenuHeader);
     361  NewMenuItem.Caption := SCloseForm;
     362  NewMenuItem.OnClick := PopupMenuCloseClick;
     363  PopupMenuHeader.Items.Add(NewMenuItem);
     364
     365  NewMenuItem := TMenuItem.Create(PopupMenuHeader);
     366  NewMenuItem.Caption := SRenameForm;
     367  NewMenuItem.OnClick := PopupMenuRenameClick;
     368  PopupMenuHeader.Items.Add(NewMenuItem);
     369
     370  NewMenuItem := TMenuItem.Create(PopupMenuHeader);
     371  NewMenuItem.Caption := SUndock;
     372  NewMenuItem.OnClick := PopupMenuUndockClick;
     373  PopupMenuHeader.Items.Add(NewMenuItem);
     374
     375  NewMenuItem := TMenuItem.Create(PopupMenuHeader);
     376  NewMenuItem.Caption := SCustomize;
     377  NewMenuItem.OnClick := PopupMenuCustomizeClick;
     378  PopupMenuHeader.Items.Add(NewMenuItem);
    269379
    270380  TabControl := TTabControl.Create(FDockSite);
    … …  
    275385    Height := 24;
    276386    OnChange := TabControlChange;
    277     PopupMenu := PopupMenu1;
     387    PopupMenu := PopupMenuTabs;
    278388    OnMouseDown := TabControlMouseDown;
    279389  end;
    … …  
    357467      if DockStyle = dsList then Visible := True;
    358468      Align := alClient;
     469      Header.PopupMenu := PopupMenuHeader;
    359470    end;
    360471
    … …  
    368479    end;
    369480    NewPanel.Control := Control;
     481    Control.AddHandlerOnVisibleChanged(NewPanel.VisibleChange);
    370482    Control.Parent := NewPanel.ClientAreaPanel;
    371483    Control.Align := alClient;
    … …  
    596708    for I := 0 to FDockPanels.Count - 1 do begin
    597709      TCoolDockClientPanel(FDockPanels[I]).Height := FDockSite.Height div
    598         FDockSite.DockClientCount;
     710        FDockSite.VisibleDockClientCount;
    599711      TCoolDockClientPanel(FDockPanels[I]).Width := FDockSite.Width div
    600         FDockSite.DockClientCount;
     712        FDockSite.VisibleDockClientCount;
    601713      //TCoolDockClientPanel(FDockPanels[I]).DockPanelPaint(Self);
    602714    end;
    … …  
    644756
    645757procedure TCoolDockManager.PopupMenuCloseClick(Sender: TObject);
    646 begin
    647   TForm(TCoolDockManager(TControl(Sender).Parent.Parent.Parent.DockManager).FDockSite).Close;
     758var
     759  Control: TControl;
     760begin
     761  Control := FindLCLControl(Mouse.CursorPos);
     762  if Assigned(Control) then
     763    ShowMessage(Control.ClassName);
     764//  DockSiteTForm(TCoolDockManager(TControl(Sender).Parent.Parent.Parent.DockManager).FDockSite).Close;
    648765end;
    649766
    … …  
    687804begin
    688805
     806end;
     807
     808procedure TCoolDockManager.PopupMenuCustomizeClick(Sender: TObject);
     809begin
     810//  if Assigned(DockMaster.Customize) then
     811//    DockMaster.Customize.Execute;
    689812end;
    690813
    … …  
    714837  FShowHeader := AValue;
    715838  DockPanelPaint(Self);
     839end;
     840
     841procedure TCoolDockClientPanel.VisibleChange(Sender: TObject);
     842begin
     843  //OwnerDockManager.FDockPanels.Remove(Self);
     844  ClientAreaPanel.Visible := Control.Visible;
     845  Splitter.Visible := Control.Visible;
     846  OwnerDockManager.UpdateClientSize;
    716847end;
    717848
    … …  
    737868    Align := alTop;
    738869    Height := GrabberSize;
     870    ParentClientPanel := Self;
    739871  end;
    740872  ClientAreaPanel := TPanel.Create(Self);
    … …  
    832964  if FTabsEnabled=AValue then exit;
    833965  FTabsEnabled:=AValue;
     966end;
     967
     968procedure TCoolDockMaster.SetCustomize(const AValue: TCoolDockCustomize
     969  );
     970begin
     971  if FCoolDockCustomize=AValue then exit;
     972  FCoolDockCustomize:=AValue;
     973  if Assigned(AValue) then
     974    if not Assigned(AValue.Manager) then
     975      AValue.Manager := Self;
    834976end;
    835977
    … …  
    9981140procedure TCoolDockHeader.CloseButtonClick(Sender: TObject);
    9991141begin
    1000 //  Control.Hide;
     1142  ParentClientPanel.Control.Hide;
     1143end;
     1144
     1145{ TCoolDockCustomize }
     1146
     1147procedure TCoolDockCustomize.SetManager(const AValue: TCoolDockMaster);
     1148begin
     1149  if FManager = AValue then exit;
     1150  FManager := AValue;
     1151  if Assigned(AValue) then
     1152    if not Assigned(AValue.Customize) then
     1153      AValue.Customize := Self;
     1154end;
     1155
     1156function TCoolDockCustomize.Execute: Boolean;
     1157begin
     1158  Form.ShowModal;
     1159  Result := True;
     1160end;
     1161
     1162constructor TCoolDockCustomize.Create(AOwner: TComponent);
     1163begin
     1164  inherited Create(AOwner);
     1165  Form := TCoolDockCustomizeForm.Create(Self);
     1166end;
     1167
     1168
     1169{ TCoolDockWindowList }
     1170
     1171function TCoolDockWindowList.Execute: Boolean;
     1172begin
     1173  Form.ShowModal;
     1174  Result := True;
     1175end;
     1176
     1177constructor TCoolDockWindowList.Create(AOwner: TComponent);
     1178begin
     1179  inherited Create(AOwner);
     1180  Form := TCoolDockWindowListForm.Create(Self);
    10011181end;
    10021182

  • Docking/CoolDocking/languages

    • Property svn:ignore set to
      *.mo

  • Docking/CoolDocking/languages/UCoolDocking.po

    r55 r56  
    11msgid ""
    2 msgstr ""
    3 "Content-Type: text/plain; charset=UTF-8\n"
    4 "Project-Id-Version: \n"
    5 "POT-Creation-Date: \n"
    6 "PO-Revision-Date: \n"
    7 "Last-Translator: Jiří Hajda <software@mezservis.cz>\n"
    8 "Language-Team: \n"
    9 "MIME-Version: 1.0\n"
    10 "Content-Transfer-Encoding: 8bit\n"
     2msgstr "Content-Type: text/plain; charset=UTF-8"
    113
    124#: ucooldocking.scloseform
    135msgid "Close"
    14 msgstr "Zavřít"
     6msgstr ""
     7
     8#: ucooldocking.scustomize
     9msgid "Customize..."
     10msgstr ""
    1511
    1612#: ucooldocking.sdocklist
    1713msgid "List"
    18 msgstr "Seznam"
     14msgstr ""
    1915
    2016#: ucooldocking.sdockstyle
    2117msgid "Style"
    22 msgstr "Styl"
     18msgstr ""
    2319
    2420#: ucooldocking.sdocktabs
    2521msgid "Tabs"
    26 msgstr "Záložky"
     22msgstr ""
    2723
    2824#: ucooldocking.sposition
    2925msgid "Position"
    30 msgstr "Pozice"
     26msgstr ""
    3127
    3228#: ucooldocking.spositionauto
    3329msgid "Auto"
    34 msgstr "Automaticky"
     30msgstr ""
    3531
    3632#: ucooldocking.spositionbottom
    3733msgid "Bottom"
    38 msgstr "Dole"
     34msgstr ""
    3935
    4036#: ucooldocking.spositionleft
    4137msgid "Left"
    42 msgstr "Vlevo"
     38msgstr ""
    4339
    4440#: ucooldocking.spositionright
    4541msgid "Right"
    46 msgstr "Vpravo"
     42msgstr ""
    4743
    4844#: ucooldocking.spositiontop
    4945msgid "Top"
    50 msgstr "Nahoře"
     46msgstr ""
    5147
    5248#: ucooldocking.srenameform
    5349msgid "Rename"
    54 msgstr "Přejmenovat"
     50msgstr ""
    5551
    5652#: ucooldocking.sundock
Note: See TracChangeset for help on using the changeset viewer.