Changeset 59 for Docking


Ignore:
Timestamp:
Sep 24, 2010, 7:46:17 AM (14 years ago)
Author:
george
Message:
  • Přidáno: Provázání odkazu na TCoolDockMaster přímo do TCoolDockManager.
  • Opraveno: Nyní funkční odkaz kontextového menu Customize..., který zobrazí patřičné okno.
Location:
Docking/CoolDocking
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/Demo/Demo.lpi

    r58 r59  
    3535      </Item2>
    3636    </RequiredPackages>
    37     <Units Count="44">
     37    <Units Count="45">
    3838      <Unit0>
    3939        <Filename Value="Demo.lpr"/>
    … …  
    4444        <TopLine Value="1"/>
    4545        <CursorPos X="25" Y="8"/>
    46         <UsageCount Value="82"/>
     46        <UsageCount Value="122"/>
    4747        <Loaded Value="True"/>
    4848        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    5454        <ResourceBaseClass Value="Form"/>
    5555        <UnitName Value="UMainForm"/>
    56         <EditorIndex Value="7"/>
    57         <WindowIndex Value="0"/>
    58         <TopLine Value="51"/>
    59         <CursorPos X="38" Y="64"/>
    60         <UsageCount Value="82"/>
     56        <EditorIndex Value="5"/>
     57        <WindowIndex Value="0"/>
     58        <TopLine Value="54"/>
     59        <CursorPos X="1" Y="74"/>
     60        <UsageCount Value="122"/>
    6161        <Loaded Value="True"/>
    6262        <LoadedDesigner Value="True"/>
    … …  
    6666        <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
    6767        <UnitName Value="Controls"/>
    68         <EditorIndex Value="10"/>
     68        <EditorIndex Value="8"/>
    6969        <WindowIndex Value="0"/>
    7070        <TopLine Value="1673"/>
    71         <CursorPos X="15" Y="1686"/>
    72         <UsageCount Value="40"/>
     71        <CursorPos X="29" Y="1685"/>
     72        <UsageCount Value="59"/>
    7373        <Loaded Value="True"/>
    7474      </Unit2>
    … …  
    7979        <TopLine Value="98"/>
    8080        <CursorPos X="27" Y="110"/>
    81         <UsageCount Value="20"/>
     81        <UsageCount Value="16"/>
    8282        <DefaultSyntaxHighlighter Value="Delphi"/>
    8383      </Unit3>
    8484      <Unit4>
    8585        <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    86         <WindowIndex Value="0"/>
    87         <TopLine Value="1325"/>
    88         <CursorPos X="20" Y="1335"/>
    89         <UsageCount Value="36"/>
     86        <EditorIndex Value="2"/>
     87        <WindowIndex Value="0"/>
     88        <TopLine Value="3138"/>
     89        <CursorPos X="1" Y="3151"/>
     90        <UsageCount Value="54"/>
     91        <Loaded Value="True"/>
    9092      </Unit4>
    9193      <Unit5>
    9294        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    93         <EditorIndex Value="11"/>
     95        <EditorIndex Value="9"/>
    9496        <WindowIndex Value="0"/>
    9597        <TopLine Value="5341"/>
    9698        <CursorPos X="65" Y="5348"/>
    97         <UsageCount Value="39"/>
     99        <UsageCount Value="58"/>
    98100        <Loaded Value="True"/>
    99101      </Unit5>
    … …  
    104106        <TopLine Value="28"/>
    105107        <CursorPos X="54" Y="32"/>
    106         <UsageCount Value="7"/>
     108        <UsageCount Value="3"/>
    107109      </Unit6>
    108110      <Unit7>
    109111        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\classesh.inc"/>
    110         <EditorIndex Value="3"/>
    111         <WindowIndex Value="0"/>
    112         <TopLine Value="484"/>
     112        <WindowIndex Value="0"/>
     113        <TopLine Value="490"/>
    113114        <CursorPos X="3" Y="497"/>
    114         <UsageCount Value="32"/>
    115         <Loaded Value="True"/>
     115        <UsageCount Value="29"/>
    116116      </Unit7>
    117117      <Unit8>
    … …  
    120120        <TopLine Value="206"/>
    121121        <CursorPos X="8" Y="219"/>
    122         <UsageCount Value="10"/>
     122        <UsageCount Value="6"/>
    123123      </Unit8>
    124124      <Unit9>
    … …  
    128128        <TopLine Value="114"/>
    129129        <CursorPos X="3" Y="127"/>
    130         <UsageCount Value="5"/>
     130        <UsageCount Value="1"/>
    131131      </Unit9>
    132132      <Unit10>
    … …  
    136136        <TopLine Value="1493"/>
    137137        <CursorPos X="18" Y="1498"/>
    138         <UsageCount Value="29"/>
     138        <UsageCount Value="25"/>
    139139      </Unit10>
    140140      <Unit11>
    … …  
    143143        <TopLine Value="417"/>
    144144        <CursorPos X="60" Y="434"/>
    145         <UsageCount Value="5"/>
     145        <UsageCount Value="1"/>
    146146      </Unit11>
    147147      <Unit12>
    … …  
    150150        <TopLine Value="67"/>
    151151        <CursorPos X="10" Y="80"/>
    152         <UsageCount Value="5"/>
     152        <UsageCount Value="1"/>
    153153      </Unit12>
    154154      <Unit13>
    … …  
    158158        <TopLine Value="280"/>
    159159        <CursorPos X="3" Y="282"/>
    160         <UsageCount Value="7"/>
     160        <UsageCount Value="3"/>
    161161      </Unit13>
    162162      <Unit14>
    … …  
    165165        <TopLine Value="200"/>
    166166        <CursorPos X="3" Y="218"/>
    167         <UsageCount Value="7"/>
     167        <UsageCount Value="3"/>
    168168      </Unit14>
    169169      <Unit15>
    … …  
    174174        <ResourceBaseClass Value="Form"/>
    175175        <UnitName Value="UDockForm"/>
    176         <EditorIndex Value="8"/>
     176        <EditorIndex Value="6"/>
    177177        <WindowIndex Value="0"/>
    178178        <TopLine Value="1"/>
    179179        <CursorPos X="15" Y="9"/>
    180         <UsageCount Value="81"/>
     180        <UsageCount Value="121"/>
    181181        <Loaded Value="True"/>
    182182        <LoadedDesigner Value="True"/>
    … …  
    189189        <TopLine Value="675"/>
    190190        <CursorPos X="24" Y="688"/>
    191         <UsageCount Value="7"/>
     191        <UsageCount Value="3"/>
    192192      </Unit16>
    193193      <Unit17>
    194194        <Filename Value="E:\Programy\Lazarus\lcl\stdctrls.pp"/>
    195195        <UnitName Value="StdCtrls"/>
    196         <EditorIndex Value="6"/>
     196        <EditorIndex Value="4"/>
    197197        <WindowIndex Value="0"/>
    198198        <TopLine Value="813"/>
    199199        <CursorPos X="28" Y="826"/>
    200         <UsageCount Value="11"/>
     200        <UsageCount Value="30"/>
    201201        <Loaded Value="True"/>
    202202      </Unit17>
    … …  
    207207        <TopLine Value="4756"/>
    208208        <CursorPos X="5" Y="4763"/>
    209         <UsageCount Value="15"/>
     209        <UsageCount Value="11"/>
    210210        <DefaultSyntaxHighlighter Value="Delphi"/>
    211211      </Unit18>
    … …  
    216216        <TopLine Value="362"/>
    217217        <CursorPos X="21" Y="369"/>
    218         <UsageCount Value="6"/>
     218        <UsageCount Value="2"/>
    219219      </Unit19>
    220220      <Unit20>
    … …  
    224224        <TopLine Value="702"/>
    225225        <CursorPos X="10" Y="719"/>
    226         <UsageCount Value="29"/>
     226        <UsageCount Value="25"/>
    227227        <DefaultSyntaxHighlighter Value="Delphi"/>
    228228      </Unit20>
    … …  
    233233        <TopLine Value="1153"/>
    234234        <CursorPos X="32" Y="1160"/>
    235         <UsageCount Value="30"/>
     235        <UsageCount Value="26"/>
    236236      </Unit21>
    237237      <Unit22>
    … …  
    241241        <TopLine Value="479"/>
    242242        <CursorPos X="30" Y="488"/>
    243         <UsageCount Value="5"/>
     243        <UsageCount Value="1"/>
    244244      </Unit22>
    245245      <Unit23>
    … …  
    248248        <TopLine Value="538"/>
    249249        <CursorPos X="20" Y="567"/>
    250         <UsageCount Value="10"/>
     250        <UsageCount Value="6"/>
    251251      </Unit23>
    252252      <Unit24>
    … …  
    255255        <TopLine Value="359"/>
    256256        <CursorPos X="1" Y="372"/>
    257         <UsageCount Value="5"/>
     257        <UsageCount Value="1"/>
    258258      </Unit24>
    259259      <Unit25>
    … …  
    263263        <TopLine Value="267"/>
    264264        <CursorPos X="1" Y="269"/>
    265         <UsageCount Value="12"/>
     265        <UsageCount Value="8"/>
    266266      </Unit25>
    267267      <Unit26>
    … …  
    271271        <TopLine Value="551"/>
    272272        <CursorPos X="3" Y="558"/>
    273         <UsageCount Value="12"/>
     273        <UsageCount Value="8"/>
    274274      </Unit26>
    275275      <Unit27>
    276276        <Filename Value="E:\Programy\Lazarus\lcl\forms.pp"/>
    277277        <UnitName Value="Forms"/>
    278         <EditorIndex Value="9"/>
     278        <EditorIndex Value="7"/>
    279279        <WindowIndex Value="0"/>
    280280        <TopLine Value="709"/>
    281281        <CursorPos X="18" Y="722"/>
    282         <UsageCount Value="13"/>
     282        <UsageCount Value="32"/>
    283283        <Loaded Value="True"/>
    284284      </Unit27>
    … …  
    289289        <TopLine Value="550"/>
    290290        <CursorPos X="26" Y="560"/>
    291         <UsageCount Value="32"/>
     291        <UsageCount Value="28"/>
    292292      </Unit28>
    293293      <Unit29>
    … …  
    297297        <TopLine Value="374"/>
    298298        <CursorPos X="3" Y="387"/>
    299         <UsageCount Value="6"/>
     299        <UsageCount Value="2"/>
    300300      </Unit29>
    301301      <Unit30>
    … …  
    305305        <TopLine Value="49"/>
    306306        <CursorPos X="1" Y="56"/>
    307         <UsageCount Value="8"/>
     307        <UsageCount Value="4"/>
    308308        <DefaultSyntaxHighlighter Value="Delphi"/>
    309309      </Unit30>
    … …  
    314314        <TopLine Value="68"/>
    315315        <CursorPos X="3" Y="77"/>
    316         <UsageCount Value="6"/>
     316        <UsageCount Value="2"/>
    317317      </Unit31>
    318318      <Unit32>
    … …  
    322322        <TopLine Value="341"/>
    323323        <CursorPos X="1" Y="354"/>
    324         <UsageCount Value="6"/>
     324        <UsageCount Value="2"/>
    325325      </Unit32>
    326326      <Unit33>
    … …  
    330330        <EditorIndex Value="1"/>
    331331        <WindowIndex Value="0"/>
    332         <TopLine Value="987"/>
    333         <CursorPos X="14" Y="1002"/>
    334         <UsageCount Value="31"/>
     332        <TopLine Value="1307"/>
     333        <CursorPos X="18" Y="1322"/>
     334        <UsageCount Value="50"/>
    335335        <Loaded Value="True"/>
    336336        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    341341        <TopLine Value="1"/>
    342342        <CursorPos X="29" Y="16"/>
    343         <UsageCount Value="29"/>
     343        <UsageCount Value="25"/>
    344344        <DefaultSyntaxHighlighter Value="None"/>
    345345      </Unit34>
    … …  
    349349        <TopLine Value="619"/>
    350350        <CursorPos X="22" Y="621"/>
    351         <UsageCount Value="29"/>
     351        <UsageCount Value="25"/>
    352352      </Unit35>
    353353      <Unit36>
    … …  
    356356        <TopLine Value="27"/>
    357357        <CursorPos X="3" Y="32"/>
    358         <UsageCount Value="29"/>
     358        <UsageCount Value="25"/>
    359359      </Unit36>
    360360      <Unit37>
    … …  
    363363        <TopLine Value="50"/>
    364364        <CursorPos X="18" Y="61"/>
    365         <UsageCount Value="29"/>
     365        <UsageCount Value="25"/>
    366366      </Unit37>
    367367      <Unit38>
    … …  
    370370        <TopLine Value="84"/>
    371371        <CursorPos X="45" Y="90"/>
    372         <UsageCount Value="29"/>
     372        <UsageCount Value="25"/>
    373373      </Unit38>
    374374      <Unit39>
    … …  
    378378        <ResourceBaseClass Value="Form"/>
    379379        <UnitName Value="UCoolDockCustomize"/>
    380         <EditorIndex Value="12"/>
     380        <EditorIndex Value="10"/>
    381381        <WindowIndex Value="0"/>
    382382        <TopLine Value="9"/>
    383383        <CursorPos X="19" Y="17"/>
    384         <UsageCount Value="30"/>
     384        <UsageCount Value="49"/>
    385385        <Loaded Value="True"/>
    386386        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    395395        <TopLine Value="59"/>
    396396        <CursorPos X="44" Y="61"/>
    397         <UsageCount Value="11"/>
     397        <UsageCount Value="7"/>
    398398        <DefaultSyntaxHighlighter Value="Delphi"/>
    399399      </Unit40>
    … …  
    404404        <ResourceBaseClass Value="Form"/>
    405405        <UnitName Value="SampleDockableForm"/>
    406         <EditorIndex Value="5"/>
     406        <EditorIndex Value="3"/>
    407407        <WindowIndex Value="0"/>
    408408        <TopLine Value="1"/>
    409         <CursorPos X="15" Y="18"/>
    410         <UsageCount Value="24"/>
     409        <CursorPos X="53" Y="2"/>
     410        <UsageCount Value="64"/>
    411411        <Loaded Value="True"/>
    412412        <LoadedDesigner Value="True"/>
    … …  
    415415      <Unit42>
    416416        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\compon.inc"/>
    417         <EditorIndex Value="4"/>
    418417        <WindowIndex Value="0"/>
    419418        <TopLine Value="223"/>
    420419        <CursorPos X="3" Y="226"/>
    421         <UsageCount Value="12"/>
    422         <Loaded Value="True"/>
     420        <UsageCount Value="9"/>
    423421      </Unit42>
    424422      <Unit43>
    425423        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\sysutils\sysutilh.inc"/>
    426         <EditorIndex Value="2"/>
    427         <WindowIndex Value="0"/>
    428         <TopLine Value="53"/>
     424        <WindowIndex Value="0"/>
     425        <TopLine Value="59"/>
    429426        <CursorPos X="4" Y="66"/>
    430         <UsageCount Value="12"/>
    431         <Loaded Value="True"/>
     427        <UsageCount Value="9"/>
    432428      </Unit43>
     429      <Unit44>
     430        <Filename Value="E:\Programy\Lazarus\lcl\lresources.pp"/>
     431        <UnitName Value="LResources"/>
     432        <WindowIndex Value="0"/>
     433        <TopLine Value="3034"/>
     434        <CursorPos X="1" Y="3047"/>
     435        <UsageCount Value="6"/>
     436      </Unit44>
    433437    </Units>
    434438    <JumpHistory Count="30" HistoryIndex="29">
    435439      <Position1>
    436440        <Filename Value="..\UCoolDocking.pas"/>
    437         <Caret Line="1307" Column="15" TopLine="1289"/>
     441        <Caret Line="668" Column="1" TopLine="654"/>
    438442      </Position1>
    439443      <Position2>
    440444        <Filename Value="..\UCoolDocking.pas"/>
    441         <Caret Line="1293" Column="23" TopLine="1280"/>
     445        <Caret Line="669" Column="1" TopLine="654"/>
    442446      </Position2>
    443447      <Position3>
    444448        <Filename Value="..\UCoolDocking.pas"/>
    445         <Caret Line="1147" Column="19" TopLine="1139"/>
     449        <Caret Line="671" Column="1" TopLine="654"/>
    446450      </Position3>
    447451      <Position4>
    448452        <Filename Value="..\UCoolDocking.pas"/>
    449         <Caret Line="185" Column="16" TopLine="171"/>
     453        <Caret Line="672" Column="1" TopLine="654"/>
    450454      </Position4>
    451455      <Position5>
    452         <Filename Value="UMainForm.pas"/>
    453         <Caret Line="23" Column="42" TopLine="14"/>
     456        <Filename Value="..\UCoolDocking.pas"/>
     457        <Caret Line="673" Column="1" TopLine="654"/>
    454458      </Position5>
    455459      <Position6>
    456         <Filename Value="..\UCoolDocking.pas"/>
    457         <Caret Line="1301" Column="16" TopLine="1285"/>
     460        <Filename Value="UMainForm.pas"/>
     461        <Caret Line="70" Column="1" TopLine="54"/>
    458462      </Position6>
    459463      <Position7>
    460         <Filename Value="..\UCoolDocking.pas"/>
    461         <Caret Line="1298" Column="49" TopLine="1285"/>
     464        <Filename Value="UMainForm.pas"/>
     465        <Caret Line="71" Column="1" TopLine="54"/>
    462466      </Position7>
    463467      <Position8>
    464         <Filename Value="..\UCoolDocking.pas"/>
    465         <Caret Line="1302" Column="20" TopLine="1285"/>
     468        <Filename Value="UMainForm.pas"/>
     469        <Caret Line="73" Column="1" TopLine="54"/>
    466470      </Position8>
    467471      <Position9>
    468         <Filename Value="..\UCoolDocking.pas"/>
    469         <Caret Line="1303" Column="21" TopLine="1285"/>
     472        <Filename Value="UMainForm.pas"/>
     473        <Caret Line="74" Column="1" TopLine="54"/>
    470474      </Position9>
    471475      <Position10>
    472         <Filename Value="E:\Programy\Lazarus\lcl\forms.pp"/>
    473         <Caret Line="722" Column="18" TopLine="709"/>
     476        <Filename Value="..\UCoolDocking.pas"/>
     477        <Caret Line="665" Column="1" TopLine="654"/>
    474478      </Position10>
    475479      <Position11>
    476         <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
    477         <Caret Line="1878" Column="60" TopLine="1865"/>
     480        <Filename Value="..\UCoolDocking.pas"/>
     481        <Caret Line="666" Column="1" TopLine="654"/>
    478482      </Position11>
    479483      <Position12>
    480         <Filename Value="SampleDockableForm.pas"/>
    481         <Caret Line="4" Column="41" TopLine="1"/>
     484        <Filename Value="..\UCoolDocking.pas"/>
     485        <Caret Line="667" Column="1" TopLine="654"/>
    482486      </Position12>
    483487      <Position13>
    484         <Filename Value="UDockForm.pas"/>
    485         <Caret Line="8" Column="47" TopLine="1"/>
     488        <Filename Value="..\UCoolDocking.pas"/>
     489        <Caret Line="668" Column="1" TopLine="654"/>
    486490      </Position13>
    487491      <Position14>
    488         <Filename Value="UMainForm.pas"/>
    489         <Caret Line="99" Column="5" TopLine="91"/>
     492        <Filename Value="..\UCoolDocking.pas"/>
     493        <Caret Line="1308" Column="7" TopLine="1299"/>
    490494      </Position14>
    491495      <Position15>
    492496        <Filename Value="..\UCoolDocking.pas"/>
    493         <Caret Line="1309" Column="1" TopLine="1287"/>
     497        <Caret Line="858" Column="3" TopLine="856"/>
    494498      </Position15>
    495499      <Position16>
    496         <Filename Value="UMainForm.pas"/>
    497         <Caret Line="66" Column="26" TopLine="55"/>
     500        <Filename Value="..\UCoolDocking.pas"/>
     501        <Caret Line="861" Column="1" TopLine="856"/>
    498502      </Position16>
    499503      <Position17>
    500         <Filename Value="UMainForm.pas"/>
    501         <Caret Line="67" Column="26" TopLine="56"/>
     504        <Filename Value="..\UCoolDocking.pas"/>
     505        <Caret Line="858" Column="1" TopLine="853"/>
    502506      </Position17>
    503507      <Position18>
    504         <Filename Value="UMainForm.pas"/>
    505         <Caret Line="66" Column="26" TopLine="55"/>
     508        <Filename Value="..\UCoolDocking.pas"/>
     509        <Caret Line="861" Column="1" TopLine="853"/>
    506510      </Position18>
    507511      <Position19>
    508512        <Filename Value="..\UCoolDocking.pas"/>
    509         <Caret Line="183" Column="34" TopLine="169"/>
     513        <Caret Line="858" Column="1" TopLine="853"/>
    510514      </Position19>
    511515      <Position20>
    512516        <Filename Value="..\UCoolDocking.pas"/>
    513         <Caret Line="177" Column="70" TopLine="153"/>
     517        <Caret Line="1319" Column="50" TopLine="1308"/>
    514518      </Position20>
    515519      <Position21>
    516         <Filename Value="SampleDockableForm.pas"/>
    517         <Caret Line="4" Column="41" TopLine="1"/>
     520        <Filename Value="..\UCoolDocking.pas"/>
     521        <Caret Line="1320" Column="1" TopLine="1308"/>
    518522      </Position21>
    519523      <Position22>
    520         <Filename Value="SampleDockableForm.pas"/>
    521         <Caret Line="18" Column="15" TopLine="1"/>
     524        <Filename Value="..\UCoolDocking.pas"/>
     525        <Caret Line="710" Column="1" TopLine="697"/>
    522526      </Position22>
    523527      <Position23>
    524         <Filename Value="E:\Programy\Lazarus\lcl\stdctrls.pp"/>
    525         <Caret Line="918" Column="17" TopLine="906"/>
     528        <Filename Value="..\UCoolDocking.pas"/>
     529        <Caret Line="711" Column="1" TopLine="697"/>
    526530      </Position23>
    527531      <Position24>
    528         <Filename Value="E:\Programy\Lazarus\lcl\stdctrls.pp"/>
    529         <Caret Line="826" Column="28" TopLine="813"/>
     532        <Filename Value="..\UCoolDocking.pas"/>
     533        <Caret Line="712" Column="1" TopLine="697"/>
    530534      </Position24>
    531535      <Position25>
    532536        <Filename Value="..\UCoolDocking.pas"/>
    533         <Caret Line="192" Column="21" TopLine="178"/>
     537        <Caret Line="1322" Column="1" TopLine="1309"/>
    534538      </Position25>
    535539      <Position26>
    536         <Filename Value="UMainForm.pas"/>
    537         <Caret Line="61" Column="45" TopLine="55"/>
     540        <Filename Value="..\UCoolDocking.pas"/>
     541        <Caret Line="1320" Column="1" TopLine="1309"/>
    538542      </Position26>
    539543      <Position27>
    540         <Filename Value="UMainForm.pas"/>
    541         <Caret Line="66" Column="43" TopLine="56"/>
     544        <Filename Value="..\UCoolDocking.pas"/>
     545        <Caret Line="710" Column="1" TopLine="697"/>
    542546      </Position27>
    543547      <Position28>
    544         <Filename Value="UMainForm.pas"/>
    545         <Caret Line="64" Column="32" TopLine="56"/>
     548        <Filename Value="..\UCoolDocking.pas"/>
     549        <Caret Line="711" Column="1" TopLine="697"/>
    546550      </Position28>
    547551      <Position29>
    548         <Filename Value="UMainForm.pas"/>
    549         <Caret Line="71" Column="35" TopLine="56"/>
     552        <Filename Value="..\UCoolDocking.pas"/>
     553        <Caret Line="712" Column="1" TopLine="697"/>
    550554      </Position29>
    551555      <Position30>
    552         <Filename Value="UMainForm.pas"/>
    553         <Caret Line="64" Column="38" TopLine="51"/>
     556        <Filename Value="..\UCoolDocking.pas"/>
     557        <Caret Line="1320" Column="47" TopLine="1307"/>
    554558      </Position30>
    555559    </JumpHistory>
    … …  
    598602  </CompilerOptions>
    599603  <Debugging>
    600     <BreakPoints Count="1">
     604    <BreakPoints Count="3">
    601605      <Item1>
    602606        <Source Value="..\UCoolDocking.pas"/>
    603         <Line Value="883"/>
     607        <Line Value="891"/>
    604608      </Item1>
     609      <Item2>
     610        <Source Value="..\UCoolDocking.pas"/>
     611        <Line Value="1338"/>
     612      </Item2>
     613      <Item3>
     614        <Source Value="..\UCoolDocking.pas"/>
     615        <Line Value="857"/>
     616      </Item3>
    605617    </BreakPoints>
    606618    <Watches Count="1">

  • Docking/CoolDocking/Demo/SampleDockableForm.lfm

    r58 r59  
    2323  end
    2424  object CoolDockClient1: TCoolDockClient
     25    Dockable = True
    2526    Master = MainForm.CoolDockMaster1
    2627    left = 104
    … …  
    2829  end
    2930  object ImageList1: TImageList
    30     left = 208
    31     top = 80
     31    left = 200
     32    top = 33
    3233  end
    3334end

  • Docking/CoolDocking/Demo/UDockForm.lfm

    r58 r59  
    1717  end
    1818  object CoolDockClient1: TCoolDockClient
     19    Dockable = True
    1920    Master = MainForm.CoolDockMaster1
    2021    left = 40

  • Docking/CoolDocking/Demo/UMainForm.lfm

    r58 r59  
    6464  end
    6565  object CoolDockClient1: TCoolDockClient
     66    Dockable = False
    6667    Master = CoolDockMaster1
    6768    Panel = Panel1

  • Docking/CoolDocking/UCoolDocking.pas

    r58 r59  
    2323  TCoolDockCustomize = class;
    2424  TCoolDockClient = class;
     25  TCoolDockMaster = class;
    2526
    2627  { TCoolDockConjoinForm }
    … …  
    8182  TCoolDockManager = class(TDockManager)
    8283  private
     84    FMaster: TCoolDockMaster;
    8385    FMoveDuration: Integer;
    8486    FTabsPos: THeaderPos;
    … …  
    9799    procedure PopupMenuTabCloseClick(Sender: TObject);
    98100    procedure SetDockStyle(const AValue: TDockStyle);
     101    procedure SetMaster(const AValue: TCoolDockMaster);
    99102    procedure SetMoveDuration(const AValue: Integer);
    100103    procedure SetTabsPos(const AValue: THeaderPos);
    … …  
    144147    property MoveDuration: Integer read FMoveDuration write SetMoveDuration;
    145148    property TabsPos: THeaderPos read FTabsPos write SetTabsPos;
     149    property Master: TCoolDockMaster read FMaster write SetMaster;
    146150  end;
    147151
    … …  
    181185  TCoolDockClient = class(TComponent)
    182186  private
     187    FDockable: Boolean;
    183188    FMaster: TCoolDockMaster;
    184189    FPanel: TPanel;
     190    procedure SetDockable(const AValue: Boolean);
    185191    procedure SetMaster(const AValue: TCoolDockMaster);
    186192    constructor Create(AOwner: TComponent); override;
    … …  
    188194    procedure SetPanel(const AValue: TPanel);
    189195  published
     196    property Dockable: Boolean read FDockable
     197      write SetDockable default True;
    190198    property Master: TCoolDockMaster read FMaster
    191199      write SetMaster;
    … …  
    538546    if (not Assigned(FDockSite.Parent)) then begin
    539547      // Create conjointed form
    540       NewConjoinDockForm := TCoolDockConjoinForm.Create(Application);
    541       NewConjoinDockForm.Visible := True;
    542       NewConjoinDockForm.BoundsRect := FDockSite.BoundsRect;
     548      NewConjoinDockForm := CreateContainer(InsertAt);
    543549      FDockSite.ManualDock(NewConjoinDockForm.Panel);
    544550      Control.ManualDock(NewConjoinDockForm.Panel, nil, InsertAt);
    545551    end else begin
    546       NewConjoinDockForm := TCoolDockConjoinForm.Create(Application);
    547       NewConjoinDockForm.Visible := True;
    548       NewConjoinDockForm.BoundsRect := FDockSite.BoundsRect;
    549       NewConjoinDockForm.DragMode := dmAutomatic;
    550       NewConjoinDockForm.DragKind := dkDock;
     552      NewConjoinDockForm := CreateContainer(InsertAt);
    551553      NewDockSite := FDockSite.HostDockSite;
    552554//      FDockSite.ManualFloat(FDockSite.BoundsRect);
    … …  
    664666  NewConjoinDockForm.Visible := True;
    665667  NewConjoinDockForm.BoundsRect := FDockSite.BoundsRect;
    666   NewConjoinDockForm.DragMode := dmAutomatic;
    667   NewConjoinDockForm.DragKind := dkDock;
     668  NewConjoinDockForm.CoolDockClient.Master := Self.Master;
    668669  NewDockSite := FDockSite.HostDockSite;
    669670  //      FDockSite.ManualFloat(FDockSite.BoundsRect);
    … …  
    703704  end;
    704705  UpdateClientSize;
     706end;
     707
     708procedure TCoolDockManager.SetMaster(const AValue: TCoolDockMaster);
     709begin
     710  if FMaster = AValue then Exit;
     711  FMaster := AValue;
    705712end;
    706713
    … …  
    849856procedure TCoolDockManager.PopupMenuCustomizeClick(Sender: TObject);
    850857begin
    851 //  if Assigned(DockMaster.Customize) then
    852 //    DockMaster.Customize.Execute;
     858  if Assigned(Master) and
     859    Assigned(Master.Customize) then
     860    Master.Customize.Execute;
    853861end;
    854862
    … …  
    13071315  if Assigned(FOldMaster) then
    13081316    FOldMaster.UnregisterClient(Self);
    1309   if Assigned(FMaster) then
     1317  if Assigned(FMaster) then begin
    13101318    FMaster.RegisterClient(Self);
     1319    if not (csDesigning in ComponentState) then begin
     1320      if Assigned(TWinControl(Owner).DockManager) then
     1321        TCoolDockManager(TWinControl(Owner).DockManager).Master := FMaster;
     1322      if Assigned(Panel) then
     1323        TCoolDockManager(Panel.DockManager).Master := FMaster;
     1324    end;
     1325  end;
     1326end;
     1327
     1328procedure TCoolDockClient.SetDockable(const AValue: Boolean);
     1329begin
     1330  if FDockable = AValue then Exit;
     1331  FDockable := AValue;
     1332  if not (Owner is TForm) then
     1333  with (Owner as TForm) do
     1334  if AValue then begin
     1335    DragKind := dkDock;
     1336    DragMode := dmAutomatic;
     1337  end else begin
     1338    DragKind := dkDrag;
     1339    DragMode := dmManual;
     1340  end;
    13111341end;
    13121342
    … …  
    13141344begin
    13151345  inherited Create(AOwner);
     1346  FDockable := True;
    13161347  if not (AOwner is TForm) then
    13171348    raise Exception.Create(SWrongOwner);
    13181349  with (AOwner as TForm) do begin
    13191350    if not (csDesigning in ComponentState) then begin
    1320       DragKind := dkDock;
    1321       DragMode := dmAutomatic;
     1351      if Dockable then begin
     1352        DragKind := dkDock;
     1353        DragMode := dmAutomatic;
     1354      end;
    13221355      DockSite := True;
    13231356      UseDockManager := True;
Note: See TracChangeset for help on using the changeset viewer.