Changeset 98


Ignore:
Timestamp:
Dec 9, 2010, 2:51:55 PM (14 years ago)
Author:
george
Message:
  • Upraveno: Obslužné funkce kontextového menu přesunuty do samostatné jednotky.
Location:
Docking/CoolDocking
Files:
2 added
11 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/CoolDocking.lpk

    r97 r98  
    2424    </CompilerOptions>
    2525    <Description Value="Set of components for docking of windows."/>
    26     <Version Minor="1"/>
    27     <Files Count="10">
     26    <Version Minor="2"/>
     27    <Files Count="11">
    2828      <Item1>
    2929        <Filename Value="UCoolDocking.pas"/>
    … …  
    6767        <UnitName Value="UCoolDockClientPanel"/>
    6868      </Item10>
     69      <Item11>
     70        <Filename Value="UCoolDockPopupMenu.pas"/>
     71        <UnitName Value="UCoolDockPopupMenu"/>
     72      </Item11>
    6973    </Files>
    7074    <i18n>

  • Docking/CoolDocking/CoolDocking.pas

    r97 r98  
    1010    UCoolDocking, UCoolDockCustomize, UCoolDockWindowList, UCoolDockStyleTabs,
    1111  UCoolDockStyleRegions, UCoolDockStylePopupTabs, UCoolDockStylePopupRegions,
    12   UCoolDockStyle, UCoolDockClientPanel, LazarusPackageIntf;
     12  UCoolDockStyle, UCoolDockClientPanel, UCoolDockPopupMenu, LazarusPackageIntf;
    1313
    1414implementation

  • Docking/CoolDocking/Demo

    • Property svn:ignore

      •  

        old new  
        11lib
        22Demo.exe
         3heaptrclog.trc

  • Docking/CoolDocking/Demo/Demo.lpi

    r97 r98  
    3838      </Item2>
    3939    </RequiredPackages>
    40     <Units Count="54">
     40    <Units Count="57">
    4141      <Unit0>
    4242        <Filename Value="Demo.lpr"/>
    4343        <IsPartOfProject Value="True"/>
    4444        <UnitName Value="Demo"/>
    45         <WindowIndex Value="0"/>
    46         <TopLine Value="1"/>
    47         <CursorPos X="11" Y="14"/>
    48         <UsageCount Value="183"/>
     45        <EditorIndex Value="5"/>
     46        <WindowIndex Value="0"/>
     47        <TopLine Value="2"/>
     48        <CursorPos X="46" Y="14"/>
     49        <UsageCount Value="184"/>
     50        <Loaded Value="True"/>
    4951        <DefaultSyntaxHighlighter Value="Delphi"/>
    5052      </Unit0>
    … …  
    5557        <ResourceBaseClass Value="Form"/>
    5658        <UnitName Value="UMainForm"/>
    57         <EditorIndex Value="5"/>
     59        <EditorIndex Value="9"/>
    5860        <WindowIndex Value="0"/>
    5961        <TopLine Value="58"/>
    6062        <CursorPos X="5" Y="73"/>
    61         <UsageCount Value="183"/>
     63        <UsageCount Value="184"/>
    6264        <Loaded Value="True"/>
    6365        <LoadedDesigner Value="True"/>
    … …  
    127129        <TopLine Value="7"/>
    128130        <CursorPos X="33" Y="21"/>
    129         <UsageCount Value="182"/>
     131        <UsageCount Value="183"/>
    130132        <DefaultSyntaxHighlighter Value="Delphi"/>
    131133      </Unit9>
    … …  
    170172        <TopLine Value="1215"/>
    171173        <CursorPos X="3" Y="1228"/>
    172         <UsageCount Value="54"/>
     174        <UsageCount Value="53"/>
    173175      </Unit14>
    174176      <Unit15>
    … …  
    227229      </Unit21>
    228230      <Unit22>
     231        <Filename Value="E:\Programy\Lazarus\lcl\menus.pp"/>
     232        <UnitName Value="Menus"/>
     233        <WindowIndex Value="0"/>
     234        <TopLine Value="280"/>
     235        <CursorPos X="33" Y="293"/>
     236        <UsageCount Value="10"/>
     237      </Unit22>
     238      <Unit23>
    229239        <Filename Value="..\UCoolDocking.pas"/>
    230240        <UnitName Value="UCoolDocking"/>
     241        <IsVisibleTab Value="True"/>
    231242        <EditorIndex Value="0"/>
    232243        <WindowIndex Value="0"/>
    233         <TopLine Value="618"/>
    234         <CursorPos X="29" Y="632"/>
     244        <TopLine Value="221"/>
     245        <CursorPos X="24" Y="239"/>
    235246        <UsageCount Value="82"/>
    236247        <Loaded Value="True"/>
    237248        <DefaultSyntaxHighlighter Value="Delphi"/>
    238       </Unit22>
    239       <Unit23>
     249      </Unit23>
     250      <Unit24>
    240251        <Filename Value="..\ReadMe.txt"/>
    241252        <WindowIndex Value="0"/>
    … …  
    244255        <UsageCount Value="19"/>
    245256        <DefaultSyntaxHighlighter Value="None"/>
    246       </Unit23>
    247       <Unit24>
     257      </Unit24>
     258      <Unit25>
    248259        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\lists.inc"/>
    249260        <WindowIndex Value="0"/>
    … …  
    251262        <CursorPos X="22" Y="621"/>
    252263        <UsageCount Value="19"/>
    253       </Unit24>
    254       <Unit25>
     264      </Unit25>
     265      <Unit26>
    255266        <Filename Value="E:\Programy\Lazarus\lcl\include\custompanel.inc"/>
    256267        <WindowIndex Value="0"/>
    … …  
    258269        <CursorPos X="3" Y="32"/>
    259270        <UsageCount Value="19"/>
    260       </Unit25>
    261       <Unit26>
     271      </Unit26>
     272      <Unit27>
    262273        <Filename Value="E:\Programy\Lazarus\lcl\include\customcontrol.inc"/>
    263274        <WindowIndex Value="0"/>
    … …  
    265276        <CursorPos X="18" Y="61"/>
    266277        <UsageCount Value="19"/>
    267       </Unit26>
    268       <Unit27>
     278      </Unit27>
     279      <Unit28>
    269280        <Filename Value="E:\Programy\Lazarus\lcl\include\controlsproc.inc"/>
    270281        <WindowIndex Value="0"/>
    … …  
    272283        <CursorPos X="45" Y="90"/>
    273284        <UsageCount Value="19"/>
    274       </Unit27>
    275       <Unit28>
     285      </Unit28>
     286      <Unit29>
    276287        <Filename Value="..\UCoolDockCustomize.pas"/>
    277288        <ComponentName Value="CoolDockCustomizeForm"/>
    … …  
    284295        <UsageCount Value="46"/>
    285296        <DefaultSyntaxHighlighter Value="Delphi"/>
    286       </Unit28>
    287       <Unit29>
     297      </Unit29>
     298      <Unit30>
    288299        <Filename Value="..\UCoolDockWindowList.pas"/>
    289300        <ComponentName Value="CoolDockWindowListForm"/>
    … …  
    296307        <UsageCount Value="1"/>
    297308        <DefaultSyntaxHighlighter Value="Delphi"/>
    298       </Unit29>
    299       <Unit30>
     309      </Unit30>
     310      <Unit31>
    300311        <Filename Value="SampleDockableForm.pas"/>
    301312        <IsPartOfProject Value="True"/>
    … …  
    306317        <TopLine Value="1"/>
    307318        <CursorPos X="53" Y="2"/>
    308         <UsageCount Value="125"/>
    309         <DefaultSyntaxHighlighter Value="Delphi"/>
    310       </Unit30>
    311       <Unit31>
     319        <UsageCount Value="126"/>
     320        <DefaultSyntaxHighlighter Value="Delphi"/>
     321      </Unit31>
     322      <Unit32>
    312323        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\compon.inc"/>
    313324        <WindowIndex Value="0"/>
    … …  
    315326        <CursorPos X="3" Y="226"/>
    316327        <UsageCount Value="3"/>
    317       </Unit31>
    318       <Unit32>
     328      </Unit32>
     329      <Unit33>
    319330        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\sysutils\sysutilh.inc"/>
    320331        <WindowIndex Value="0"/>
    … …  
    322333        <CursorPos X="4" Y="66"/>
    323334        <UsageCount Value="3"/>
    324       </Unit32>
    325       <Unit33>
     335      </Unit33>
     336      <Unit34>
    326337        <Filename Value="E:\Programy\Lazarus\lcl\lresources.pp"/>
    327338        <UnitName Value="LResources"/>
    … …  
    330341        <CursorPos X="1" Y="3047"/>
    331342        <UsageCount Value="0"/>
    332       </Unit33>
    333       <Unit34>
     343      </Unit34>
     344      <Unit35>
    334345        <Filename Value="E:\Programy\Lazarus\lcl\include\tabcontrol.inc"/>
    335346        <WindowIndex Value="0"/>
    … …  
    337348        <CursorPos X="45" Y="239"/>
    338349        <UsageCount Value="7"/>
    339       </Unit34>
    340       <Unit35>
     350      </Unit35>
     351      <Unit36>
    341352        <Filename Value="E:\Programy\Lazarus\lcl\include\pagecontrol.inc"/>
    342353        <WindowIndex Value="0"/>
    … …  
    344355        <CursorPos X="3" Y="103"/>
    345356        <UsageCount Value="6"/>
    346       </Unit35>
    347       <Unit36>
     357      </Unit36>
     358      <Unit37>
    348359        <Filename Value="E:\Programy\Lazarus\lcl\include\customnotebook.inc"/>
    349360        <WindowIndex Value="0"/>
    … …  
    351362        <CursorPos X="3" Y="853"/>
    352363        <UsageCount Value="6"/>
    353       </Unit36>
    354       <Unit37>
     364      </Unit37>
     365      <Unit38>
    355366        <Filename Value="E:\Programy\Lazarus\lcl\include\canvas.inc"/>
    356367        <WindowIndex Value="0"/>
    … …  
    358369        <CursorPos X="1" Y="1568"/>
    359370        <UsageCount Value="6"/>
    360       </Unit37>
    361       <Unit38>
     371      </Unit38>
     372      <Unit39>
    362373        <Filename Value="E:\Programy\Lazarus\lcl\include\lclintfh.inc"/>
    363374        <WindowIndex Value="0"/>
    … …  
    365376        <CursorPos X="10" Y="40"/>
    366377        <UsageCount Value="6"/>
    367       </Unit38>
    368       <Unit39>
     378      </Unit39>
     379      <Unit40>
    369380        <Filename Value="E:\Programy\Lazarus\lcl\include\intfbaselcl.inc"/>
    370381        <WindowIndex Value="0"/>
    … …  
    372383        <CursorPos X="3" Y="32"/>
    373384        <UsageCount Value="6"/>
    374       </Unit39>
    375       <Unit40>
     385      </Unit40>
     386      <Unit41>
    376387        <Filename Value="E:\Programy\Lazarus\lcl\include\winapih.inc"/>
    377388        <WindowIndex Value="0"/>
    … …  
    379390        <CursorPos X="10" Y="319"/>
    380391        <UsageCount Value="6"/>
    381       </Unit40>
    382       <Unit41>
     392      </Unit41>
     393      <Unit42>
    383394        <Filename Value="E:\Programy\Lazarus\lcl\include\controlcanvas.inc"/>
    384395        <WindowIndex Value="0"/>
    … …  
    386397        <CursorPos X="1" Y="92"/>
    387398        <UsageCount Value="5"/>
    388       </Unit41>
    389       <Unit42>
     399      </Unit42>
     400      <Unit43>
    390401        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\sysutils\datih.inc"/>
    391402        <WindowIndex Value="0"/>
    … …  
    393404        <CursorPos X="89" Y="147"/>
    394405        <UsageCount Value="5"/>
    395       </Unit42>
    396       <Unit43>
     406      </Unit43>
     407      <Unit44>
    397408        <Filename Value="UComponentTree.pas"/>
    398409        <IsPartOfProject Value="True"/>
    … …  
    403414        <TopLine Value="37"/>
    404415        <CursorPos X="18" Y="39"/>
    405         <UsageCount Value="77"/>
    406         <DefaultSyntaxHighlighter Value="Delphi"/>
    407       </Unit43>
    408       <Unit44>
     416        <UsageCount Value="78"/>
     417        <DefaultSyntaxHighlighter Value="Delphi"/>
     418      </Unit44>
     419      <Unit45>
    409420        <Filename Value="E:\Programy\Lazarus\lcl\include\treeview.inc"/>
    410421        <WindowIndex Value="0"/>
    … …  
    412423        <CursorPos X="3" Y="332"/>
    413424        <UsageCount Value="6"/>
    414       </Unit44>
    415       <Unit45>
    416         <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\classes\classesh.inc"/>
    417         <WindowIndex Value="0"/>
    418         <TopLine Value="1659"/>
    419         <CursorPos X="17" Y="1675"/>
    420         <UsageCount Value="6"/>
    421425      </Unit45>
    422426      <Unit46>
     427        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\classes\classesh.inc"/>
     428        <WindowIndex Value="0"/>
     429        <TopLine Value="107"/>
     430        <CursorPos X="3" Y="120"/>
     431        <UsageCount Value="10"/>
     432      </Unit46>
     433      <Unit47>
    423434        <Filename Value="..\UCoolDockCustomize.lrs"/>
    424435        <WindowIndex Value="0"/>
    425436        <TopLine Value="1"/>
    426437        <CursorPos X="1" Y="4"/>
    427         <UsageCount Value="5"/>
    428         <DefaultSyntaxHighlighter Value="Delphi"/>
    429       </Unit46>
    430       <Unit47>
     438        <UsageCount Value="4"/>
     439        <DefaultSyntaxHighlighter Value="Delphi"/>
     440      </Unit47>
     441      <Unit48>
    431442        <Filename Value="..\UCoolDockStyleTabs.pas"/>
    432443        <UnitName Value="UCoolDockStyleTabs"/>
    433         <EditorIndex Value="4"/>
    434         <WindowIndex Value="0"/>
    435         <TopLine Value="23"/>
    436         <CursorPos X="15" Y="36"/>
     444        <WindowIndex Value="0"/>
     445        <TopLine Value="127"/>
     446        <CursorPos X="42" Y="140"/>
    437447        <UsageCount Value="38"/>
    438         <Loaded Value="True"/>
    439         <DefaultSyntaxHighlighter Value="Delphi"/>
    440       </Unit47>
    441       <Unit48>
     448        <DefaultSyntaxHighlighter Value="Delphi"/>
     449      </Unit48>
     450      <Unit49>
    442451        <Filename Value="..\UCoolDockStylePopupTabs.pas"/>
    443452        <UnitName Value="UCoolDockStylePopupTabs"/>
    444         <WindowIndex Value="0"/>
    445         <TopLine Value="185"/>
    446         <CursorPos X="41" Y="190"/>
    447         <UsageCount Value="5"/>
    448         <DefaultSyntaxHighlighter Value="Delphi"/>
    449       </Unit48>
    450       <Unit49>
     453        <EditorIndex Value="2"/>
     454        <WindowIndex Value="0"/>
     455        <TopLine Value="182"/>
     456        <CursorPos X="32" Y="195"/>
     457        <UsageCount Value="10"/>
     458        <Loaded Value="True"/>
     459        <DefaultSyntaxHighlighter Value="Delphi"/>
     460      </Unit49>
     461      <Unit50>
    451462        <Filename Value="..\UCoolDockStyle.pas"/>
    452463        <UnitName Value="UCoolDockStyle"/>
    453         <EditorIndex Value="3"/>
     464        <EditorIndex Value="8"/>
    454465        <WindowIndex Value="0"/>
    455466        <TopLine Value="1"/>
    456467        <CursorPos X="3" Y="14"/>
    457         <UsageCount Value="37"/>
    458         <Loaded Value="True"/>
    459         <DefaultSyntaxHighlighter Value="Delphi"/>
    460       </Unit49>
    461       <Unit50>
     468        <UsageCount Value="38"/>
     469        <Loaded Value="True"/>
     470        <DefaultSyntaxHighlighter Value="Delphi"/>
     471      </Unit50>
     472      <Unit51>
    462473        <Filename Value="..\UCoolDockStyleRegions.pas"/>
    463474        <UnitName Value="UCoolDockStyleRegions"/>
    464         <EditorIndex Value="2"/>
    465         <WindowIndex Value="0"/>
    466         <TopLine Value="51"/>
    467         <CursorPos X="1" Y="74"/>
    468         <UsageCount Value="37"/>
    469         <Loaded Value="True"/>
    470         <DefaultSyntaxHighlighter Value="Delphi"/>
    471       </Unit50>
    472       <Unit51>
     475        <EditorIndex Value="7"/>
     476        <WindowIndex Value="0"/>
     477        <TopLine Value="31"/>
     478        <CursorPos X="25" Y="37"/>
     479        <UsageCount Value="38"/>
     480        <Loaded Value="True"/>
     481        <DefaultSyntaxHighlighter Value="Delphi"/>
     482      </Unit51>
     483      <Unit52>
    473484        <Filename Value="..\UCoolDockStylePopupRegions.pas"/>
    474485        <UnitName Value="UCoolDockStylePopupRegions"/>
     486        <EditorIndex Value="6"/>
    475487        <WindowIndex Value="0"/>
    476488        <TopLine Value="1"/>
    477         <CursorPos X="16" Y="19"/>
    478         <UsageCount Value="5"/>
    479         <DefaultSyntaxHighlighter Value="Delphi"/>
    480       </Unit51>
    481       <Unit52>
     489        <CursorPos X="44" Y="11"/>
     490        <UsageCount Value="10"/>
     491        <Loaded Value="True"/>
     492        <DefaultSyntaxHighlighter Value="Delphi"/>
     493      </Unit52>
     494      <Unit53>
    482495        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\inc\objpash.inc"/>
    483496        <WindowIndex Value="0"/>
    484497        <TopLine Value="172"/>
    485498        <CursorPos X="23" Y="185"/>
    486         <UsageCount Value="5"/>
    487       </Unit52>
    488       <Unit53>
     499        <UsageCount Value="4"/>
     500      </Unit53>
     501      <Unit54>
    489502        <Filename Value="..\UCoolDockClientPanel.pas"/>
    490503        <UnitName Value="UCoolDockClientPanel"/>
    491         <IsVisibleTab Value="True"/>
     504        <EditorIndex Value="3"/>
     505        <WindowIndex Value="0"/>
     506        <TopLine Value="37"/>
     507        <CursorPos X="21" Y="51"/>
     508        <UsageCount Value="37"/>
     509        <Loaded Value="True"/>
     510        <DefaultSyntaxHighlighter Value="Delphi"/>
     511      </Unit54>
     512      <Unit55>
     513        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     514        <UnitName Value="UCoolDockPopupMenu"/>
     515        <EditorIndex Value="4"/>
     516        <WindowIndex Value="0"/>
     517        <TopLine Value="49"/>
     518        <CursorPos X="24" Y="62"/>
     519        <UsageCount Value="11"/>
     520        <Loaded Value="True"/>
     521        <DefaultSyntaxHighlighter Value="Delphi"/>
     522      </Unit55>
     523      <Unit56>
     524        <Filename Value="E:\Programy\Lazarus\lcl\include\menuitem.inc"/>
    492525        <EditorIndex Value="1"/>
    493526        <WindowIndex Value="0"/>
    494         <TopLine Value="32"/>
    495         <CursorPos X="1" Y="52"/>
    496         <UsageCount Value="37"/>
    497         <Loaded Value="True"/>
    498         <DefaultSyntaxHighlighter Value="Delphi"/>
    499       </Unit53>
     527        <TopLine Value="392"/>
     528        <CursorPos X="1" Y="405"/>
     529        <UsageCount Value="10"/>
     530        <Loaded Value="True"/>
     531      </Unit56>
    500532    </Units>
    501533    <JumpHistory Count="30" HistoryIndex="29">
    502534      <Position1>
    503         <Filename Value="..\UCoolDockClientPanel.pas"/>
    504         <Caret Line="9" Column="10" TopLine="1"/>
     535        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     536        <Caret Line="259" Column="29" TopLine="232"/>
    505537      </Position1>
    506538      <Position2>
    507         <Filename Value="..\UCoolDockClientPanel.pas"/>
    508         <Caret Line="17" Column="32" TopLine="12"/>
     539        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     540        <Caret Line="260" Column="45" TopLine="245"/>
    509541      </Position2>
    510542      <Position3>
    511         <Filename Value="..\UCoolDocking.pas"/>
    512         <Caret Line="469" Column="10" TopLine="435"/>
     543        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     544        <Caret Line="259" Column="20" TopLine="247"/>
    513545      </Position3>
    514546      <Position4>
    515         <Filename Value="..\UCoolDocking.pas"/>
    516         <Caret Line="474" Column="38" TopLine="461"/>
     547        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     548        <Caret Line="14" Column="3" TopLine="1"/>
    517549      </Position4>
    518550      <Position5>
    519         <Filename Value="..\UCoolDocking.pas"/>
    520         <Caret Line="477" Column="57" TopLine="464"/>
     551        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     552        <Caret Line="57" Column="3" TopLine="51"/>
    521553      </Position5>
    522554      <Position6>
    523         <Filename Value="..\UCoolDocking.pas"/>
    524         <Caret Line="646" Column="1" TopLine="633"/>
     555        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     556        <Caret Line="63" Column="39" TopLine="50"/>
    525557      </Position6>
    526558      <Position7>
    527         <Filename Value="..\UCoolDockStyleTabs.pas"/>
    528         <Caret Line="231" Column="1" TopLine="212"/>
     559        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     560        <Caret Line="15" Column="9" TopLine="3"/>
    529561      </Position7>
    530562      <Position8>
    531         <Filename Value="..\UCoolDockStyleTabs.pas"/>
    532         <Caret Line="253" Column="23" TopLine="245"/>
     563        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     564        <Caret Line="3" Column="14" TopLine="1"/>
    533565      </Position8>
    534566      <Position9>
    535         <Filename Value="..\UCoolDockStyleTabs.pas"/>
    536         <Caret Line="15" Column="34" TopLine="2"/>
     567        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     568        <Caret Line="116" Column="39" TopLine="95"/>
    537569      </Position9>
    538570      <Position10>
    539         <Filename Value="..\UCoolDockStyleTabs.pas"/>
    540         <Caret Line="258" Column="1" TopLine="246"/>
     571        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     572        <Caret Line="59" Column="23" TopLine="53"/>
    541573      </Position10>
    542574      <Position11>
    543         <Filename Value="..\UCoolDockStyleTabs.pas"/>
    544         <Caret Line="259" Column="17" TopLine="246"/>
     575        <Filename Value="..\UCoolDocking.pas"/>
     576        <Caret Line="500" Column="1" TopLine="484"/>
    545577      </Position11>
    546578      <Position12>
    547         <Filename Value="..\UCoolDockStyleTabs.pas"/>
    548         <Caret Line="261" Column="67" TopLine="247"/>
     579        <Filename Value="..\UCoolDockStylePopupTabs.pas"/>
     580        <Caret Line="190" Column="41" TopLine="185"/>
    549581      </Position12>
    550582      <Position13>
    551         <Filename Value="..\UCoolDockStyleTabs.pas"/>
    552         <Caret Line="266" Column="29" TopLine="253"/>
     583        <Filename Value="..\UCoolDockStylePopupTabs.pas"/>
     584        <Caret Line="195" Column="32" TopLine="182"/>
    553585      </Position13>
    554586      <Position14>
    555         <Filename Value="UMainForm.pas"/>
    556         <Caret Line="78" Column="47" TopLine="65"/>
     587        <Filename Value="..\UCoolDocking.pas"/>
     588        <Caret Line="58" Column="35" TopLine="45"/>
    557589      </Position14>
    558590      <Position15>
    559         <Filename Value="UMainForm.pas"/>
    560         <Caret Line="73" Column="5" TopLine="58"/>
     591        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     592        <Caret Line="34" Column="16" TopLine="18"/>
    561593      </Position15>
    562594      <Position16>
    563         <Filename Value="..\UCoolDocking.pas"/>
    564         <Caret Line="639" Column="52" TopLine="625"/>
     595        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     596        <Caret Line="8" Column="46" TopLine="2"/>
    565597      </Position16>
    566598      <Position17>
    567         <Filename Value="..\UCoolDocking.pas"/>
    568         <Caret Line="660" Column="15" TopLine="647"/>
     599        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     600        <Caret Line="285" Column="36" TopLine="272"/>
    569601      </Position17>
    570602      <Position18>
    571         <Filename Value="..\UCoolDocking.pas"/>
    572         <Caret Line="43" Column="5" TopLine="30"/>
     603        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     604        <Caret Line="21" Column="15" TopLine="8"/>
    573605      </Position18>
    574606      <Position19>
    575         <Filename Value="..\UCoolDocking.pas"/>
    576         <Caret Line="633" Column="21" TopLine="616"/>
     607        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     608        <Caret Line="34" Column="28" TopLine="25"/>
    577609      </Position19>
    578610      <Position20>
    579         <Filename Value="..\UCoolDocking.pas"/>
    580         <Caret Line="629" Column="13" TopLine="620"/>
     611        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     612        <Caret Line="285" Column="13" TopLine="272"/>
    581613      </Position20>
    582614      <Position21>
    583         <Filename Value="..\UCoolDocking.pas"/>
    584         <Caret Line="45" Column="22" TopLine="32"/>
     615        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     616        <Caret Line="287" Column="31" TopLine="274"/>
    585617      </Position21>
    586618      <Position22>
    587         <Filename Value="..\UCoolDocking.pas"/>
    588         <Caret Line="261" Column="23" TopLine="247"/>
     619        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     620        <Caret Line="326" Column="40" TopLine="311"/>
    589621      </Position22>
    590622      <Position23>
    591         <Filename Value="..\UCoolDocking.pas"/>
    592         <Caret Line="631" Column="1" TopLine="618"/>
     623        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     624        <Caret Line="325" Column="36" TopLine="311"/>
    593625      </Position23>
    594626      <Position24>
    595627        <Filename Value="..\UCoolDocking.pas"/>
    596         <Caret Line="632" Column="1" TopLine="618"/>
     628        <Caret Line="241" Column="47" TopLine="221"/>
    597629      </Position24>
    598630      <Position25>
    599         <Filename Value="..\UCoolDocking.pas"/>
    600         <Caret Line="633" Column="1" TopLine="618"/>
     631        <Filename Value="E:\Programy\Lazarus\lcl\include\menuitem.inc"/>
     632        <Caret Line="405" Column="1" TopLine="392"/>
    601633      </Position25>
    602634      <Position26>
    603635        <Filename Value="..\UCoolDocking.pas"/>
    604         <Caret Line="634" Column="1" TopLine="618"/>
     636        <Caret Line="232" Column="1" TopLine="221"/>
    605637      </Position26>
    606638      <Position27>
    607         <Filename Value="..\UCoolDocking.pas"/>
    608         <Caret Line="637" Column="1" TopLine="618"/>
     639        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     640        <Caret Line="66" Column="1" TopLine="53"/>
    609641      </Position27>
    610642      <Position28>
    611         <Filename Value="..\UCoolDocking.pas"/>
    612         <Caret Line="638" Column="1" TopLine="618"/>
     643        <Filename Value="..\UCoolDockPopupMenu.pas"/>
     644        <Caret Line="62" Column="13" TopLine="53"/>
    613645      </Position28>
    614646      <Position29>
    615         <Filename Value="..\UCoolDocking.pas"/>
    616         <Caret Line="647" Column="1" TopLine="634"/>
     647        <Filename Value="Demo.lpr"/>
     648        <Caret Line="20" Column="1" TopLine="1"/>
    617649      </Position29>
    618650      <Position30>
    619         <Filename Value="..\UCoolDocking.pas"/>
    620         <Caret Line="648" Column="1" TopLine="634"/>
     651        <Filename Value="Demo.lpr"/>
     652        <Caret Line="11" Column="11" TopLine="1"/>
    621653      </Position30>
    622654    </JumpHistory>
    … …  
    653685    <Other>
    654686      <CompilerMessages>
    655         <IgnoredMessages idx5024="True"/>
     687        <IgnoredMessages idx5023="True" idx5024="True" idx5025="True" idx5026="True" idx5027="True" idx5028="True" idx5029="True" idx5030="True" idx5031="True"/>
    656688        <UseMsgFile Value="True"/>
    657689      </CompilerMessages>

  • Docking/CoolDocking/Demo/Demo.lpr

    r96 r98  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UMainForm, UDockForm, CoolDocking, SampleDockableForm, UComponentTree;
     10  Forms, UMainForm, UDockForm, CoolDocking, SampleDockableForm, UComponentTree,
     11  FileUtil, SysUtils;
    1112
    1213{$R *.res}
    1314
     15const
     16  HeapTraceLog = 'heaptrclog.trc';
    1417begin
     18  // Heap trace
     19  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
     20  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
     21
    1522  Application.Initialize;
    1623  Application.CreateForm(TMainForm, MainForm);

  • Docking/CoolDocking/UCoolDockClientPanel.pas

    r97 r98  
    77uses
    88  Classes, Controls, SysUtils, Forms, StdCtrls, ExtCtrls, Graphics,
    9   Buttons;
     9  Buttons, UCoolDockPopupMenu;
    1010
    1111type

  • Docking/CoolDocking/UCoolDockStylePopupTabs.pas

    r97 r98  
    193193    Height := 24;
    194194    OnChange := TabControlChange;
    195     PopupMenu := PopupMenuTabs;
     195    PopupMenu := TCoolDockManager(Manager).PopupMenu;
    196196    TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseLeave := TabControlMouseLeave;
    197197    TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseDown := TabControlMouseDown;

  • Docking/CoolDocking/UCoolDockStyleTabs.pas

    r97 r98  
    1919    TabControl: TTabControl;
    2020    TabImageList: TImageList;
    21     PopupMenuTabs: TPopupMenu;
    2221    procedure TabControlMouseLeave(Sender: TObject);
    2322    procedure TabControlChange(Sender: TObject);
    … …  
    127126  inherited;
    128127
    129   (*// Tabs popup
    130 
    131   PopupMenuTabs := TPopupMenu.Create(Manager.DockSite);
    132 
    133   NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    134   NewMenuItem.Caption := SDockStyle;
    135   PopupMenuTabs.Items.Add(NewMenuItem);
    136 
    137   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    138   NewMenuItem2.Caption := SDockList;
    139   NewMenuItem2.OnClick := PopupMenuListClick;
    140   NewMenuItem.Add(NewMenuItem2);
    141 
    142   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    143   NewMenuItem2.Caption := SDockTabs;
    144   NewMenuItem2.OnClick := PopupMenuTabsClick;
    145   NewMenuItem.Add(NewMenuItem2);
    146 
    147   NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    148   NewMenuItem.Caption := SPosition;
    149   PopupMenuTabs.Items.Add(NewMenuItem);
    150 
    151   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    152   NewMenuItem2.Caption := SPositionAuto;
    153   NewMenuItem2.OnClick := PopupMenuPositionAutoClick;
    154   NewMenuItem.Add(NewMenuItem2);
    155 
    156   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    157   NewMenuItem2.Caption := SPositionTop;
    158   NewMenuItem2.OnClick := PopupMenuPositionTopClick;
    159   NewMenuItem.Add(NewMenuItem2);
    160 
    161   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    162   NewMenuItem2.Caption := SPositionLeft;
    163   NewMenuItem2.OnClick := PopupMenuPositionLeftClick;
    164   NewMenuItem.Add(NewMenuItem2);
    165 
    166   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    167   NewMenuItem2.Caption := SPositionBottom;
    168   NewMenuItem2.OnClick := PopupMenuPositionBottomClick;
    169   NewMenuItem.Add(NewMenuItem2);
    170 
    171   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    172   NewMenuItem2.Caption := SPositionRight;
    173   NewMenuItem2.OnClick := PopupMenuPositionRightClick;
    174   NewMenuItem.Add(NewMenuItem2);
    175 
    176   NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    177   NewMenuItem.Caption := SCloseForm;
    178   NewMenuItem.OnClick := PopupMenuCloseClick;
    179   PopupMenuTabs.Items.Add(NewMenuItem);
    180 
    181   NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    182   NewMenuItem.Caption := SRenameForm;
    183   NewMenuItem.OnClick := PopupMenuRenameClick;
    184   PopupMenuTabs.Items.Add(NewMenuItem);
    185 
    186   NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    187   NewMenuItem.Caption := SUndock;
    188   NewMenuItem.OnClick := PopupMenuUndockClick;
    189   PopupMenuTabs.Items.Add(NewMenuItem);
    190 
    191   NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    192   NewMenuItem.Caption := SCustomize;
    193   NewMenuItem.OnClick := PopupMenuCustomizeClick;
    194   PopupMenuTabs.Items.Add(NewMenuItem);     *)
    195 
    196128  TabImageList := TImageList.Create(TCoolDockManager(AManager).DockSite); //FDockSite);
    197129  with TabImageList do begin
    … …  
    206138    Height := 24;
    207139    OnChange := TabControlChange;
    208     PopupMenu := PopupMenuTabs;
     140    PopupMenu := TCoolDockManager(Manager).PopupMenu;
    209141    TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseLeave := TabControlMouseLeave;
    210142    TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseDown := TabControlMouseDown;

  • Docking/CoolDocking/UCoolDocking.pas

    r97 r98  
    1212  UCoolDockCustomize, DOM, XMLWrite, XMLRead, UCoolDockWindowList,
    1313  DateUtils, UCoolDockStyleTabs, UCoolDockStyleRegions, UCoolDockStylePopupTabs,
    14   UCoolDockStylePopupRegions, UCoolDockStyle, UCoolDockClientPanel;
     14  UCoolDockStylePopupRegions, UCoolDockStyle, UCoolDockClientPanel,
     15  UCoolDockPopupMenu;
    1516
    1617const
    … …  
    4243    FMaster: TCoolDockMaster;
    4344    DockStyleHandler: TCoolDockStyle;
    44     PopupMenuHeader: TPopupMenu;
    4545    FDockStyle: TDockStyle;
    4646    FDockDirection: TDockDirection;
    … …  
    5656    procedure SetMoveDuration(const AValue: Integer);
    5757    procedure UpdateClientSize;
    58     procedure PopupMenuListClick(Sender: TObject);
    59     procedure PopupMenuTabsClick(Sender: TObject);
    60     procedure PopupMenuCloseClick(Sender: TObject);
    61     procedure PopupMenuRenameClick(Sender: TObject);
    62     procedure PopupMenuPositionAutoClick(Sender: TObject);
    63     procedure PopupMenuPositionLeftClick(Sender: TObject);
    64     procedure PopupMenuPositionRightClick(Sender: TObject);
    65     procedure PopupMenuPositionTopClick(Sender: TObject);
    66     procedure PopupMenuPositionBottomClick(Sender: TObject);
    67     procedure PopupMenuUndockClick(Sender: TObject);
    68     procedure PopupMenuCustomizeClick(Sender: TObject);
    6958  public
     59    PopupMenu: TCoolDockPopupMenu;
    7060    constructor Create(ADockSite: TWinControl); override;
    7161    destructor Destroy; override;
    … …  
    192182
    193183resourcestring
    194   SDockStyle = 'Style';
    195   SDockList = 'List';
    196   SDockTabs = 'Tabs';
    197   SCloseForm = 'Close';
    198   SRenameForm = 'Rename';
    199   SPosition = 'Position';
    200   SPositionAuto = 'Auto';
    201   SPositionTop = 'Top';
    202   SPositionLeft = 'Left';
    203   SPositionRight = 'Right';
    204   SPositionBottom = 'Bottom';
    205   SUndock = 'Undock';
    206   SCustomize = 'Customize...';
    207184  SWrongOwner = 'Owner of TCoolDockClient have to be TForm';
    208   SEnterNewWindowName = 'Enter new window name';
    209   SRenameWindow = 'Rename window';
    210 
    211185
    212186implementation
    … …  
    256230  FDockStyle := dsTabs; // To initialize style value have to be different
    257231  DockStyle := dsList;
    258 
    259 (*  // Tabs popup
    260 
    261   PopupMenuTabs := TPopupMenu.Create(FDockSite);
    262   PopupMenuTabs.Name := ADockSite.Name + '_' + 'PopupMenuTabs';
    263 
    264   NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    265   NewMenuItem.Caption := SDockStyle;
    266   PopupMenuTabs.Items.Add(NewMenuItem);
    267 
    268   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    269   NewMenuItem2.Caption := SDockList;
    270   NewMenuItem2.OnClick := PopupMenuListClick;
    271   NewMenuItem.Add(NewMenuItem2);
    272 
    273   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    274   NewMenuItem2.Caption := SDockTabs;
    275   NewMenuItem2.OnClick := PopupMenuTabsClick;
    276   NewMenuItem.Add(NewMenuItem2);
    277 
    278   NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    279   NewMenuItem.Caption := SPosition;
    280   PopupMenuTabs.Items.Add(NewMenuItem);
    281 
    282   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    283   NewMenuItem2.Caption := SPositionAuto;
    284   NewMenuItem2.OnClick := PopupMenuPositionAutoClick;
    285   NewMenuItem.Add(NewMenuItem2);
    286 
    287   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    288   NewMenuItem2.Caption := SPositionTop;
    289   NewMenuItem2.OnClick := PopupMenuPositionTopClick;
    290   NewMenuItem.Add(NewMenuItem2);
    291 
    292   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    293   NewMenuItem2.Caption := SPositionLeft;
    294   NewMenuItem2.OnClick := PopupMenuPositionLeftClick;
    295   NewMenuItem.Add(NewMenuItem2);
    296 
    297   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    298   NewMenuItem2.Caption := SPositionBottom;
    299   NewMenuItem2.OnClick := PopupMenuPositionBottomClick;
    300   NewMenuItem.Add(NewMenuItem2);
    301 
    302   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    303   NewMenuItem2.Caption := SPositionRight;
    304   NewMenuItem2.OnClick := PopupMenuPositionRightClick;
    305   NewMenuItem.Add(NewMenuItem2);
    306 
    307   NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    308   NewMenuItem.Caption := SCloseForm;
    309   NewMenuItem.OnClick := PopupMenuCloseClick;
    310   PopupMenuTabs.Items.Add(NewMenuItem);
    311 
    312   NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    313   NewMenuItem.Caption := SRenameForm;
    314   NewMenuItem.OnClick := PopupMenuRenameClick;
    315   PopupMenuTabs.Items.Add(NewMenuItem);
    316 
    317   NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    318   NewMenuItem.Caption := SUndock;
    319   NewMenuItem.OnClick := PopupMenuUndockClick;
    320   PopupMenuTabs.Items.Add(NewMenuItem);
    321 
    322   NewMenuItem := TMenuItem.Create(PopupMenuTabs);
    323   NewMenuItem.Caption := SCustomize;
    324   NewMenuItem.OnClick := PopupMenuCustomizeClick;
    325   PopupMenuTabs.Items.Add(NewMenuItem);
    326 
    327   // Header popup
    328 
    329   PopupMenuHeader := TPopupMenu.Create(FDockSite);
    330   PopupMenuHeader.Name := ADockSite.Name + '_' + 'PopupMenuHeader';
    331 
    332   NewMenuItem := TMenuItem.Create(PopupMenuHeader);
    333   NewMenuItem.Caption := SDockStyle;
    334   PopupMenuHeader.Items.Add(NewMenuItem);
    335 
    336   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    337   NewMenuItem2.Caption := SDockList;
    338   NewMenuItem2.OnClick := PopupMenuListClick;
    339   NewMenuItem.Add(NewMenuItem2);
    340 
    341   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    342   NewMenuItem2.Caption := SDockTabs;
    343   NewMenuItem2.OnClick := PopupMenuTabsClick;
    344   NewMenuItem.Add(NewMenuItem2);
    345 
    346   NewMenuItem := TMenuItem.Create(PopupMenuHeader);
    347   NewMenuItem.Caption := SPosition;
    348   PopupMenuHeader.Items.Add(NewMenuItem);
    349 
    350   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    351   NewMenuItem2.Caption := SPositionAuto;
    352   NewMenuItem2.OnClick := PopupMenuPositionAutoClick;
    353   NewMenuItem.Add(NewMenuItem2);
    354 
    355   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    356   NewMenuItem2.Caption := SPositionTop;
    357   NewMenuItem2.OnClick := PopupMenuPositionTopClick;
    358   NewMenuItem.Add(NewMenuItem2);
    359 
    360   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    361   NewMenuItem2.Caption := SPositionLeft;
    362   NewMenuItem2.OnClick := PopupMenuPositionLeftClick;
    363   NewMenuItem.Add(NewMenuItem2);
    364 
    365   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    366   NewMenuItem2.Caption := SPositionBottom;
    367   NewMenuItem2.OnClick := PopupMenuPositionBottomClick;
    368   NewMenuItem.Add(NewMenuItem2);
    369 
    370   NewMenuItem2 := TMenuItem.Create(NewMenuItem);
    371   NewMenuItem2.Caption := SPositionRight;
    372   NewMenuItem2.OnClick := PopupMenuPositionRightClick;
    373   NewMenuItem.Add(NewMenuItem2);
    374 
    375   NewMenuItem := TMenuItem.Create(PopupMenuHeader);
    376   NewMenuItem.Caption := SCloseForm;
    377   NewMenuItem.OnClick := PopupMenuCloseClick;
    378   PopupMenuHeader.Items.Add(NewMenuItem);
    379 
    380   NewMenuItem := TMenuItem.Create(PopupMenuHeader);
    381   NewMenuItem.Caption := SRenameForm;
    382   NewMenuItem.OnClick := PopupMenuRenameClick;
    383   PopupMenuHeader.Items.Add(NewMenuItem);
    384 
    385   NewMenuItem := TMenuItem.Create(PopupMenuHeader);
    386   NewMenuItem.Caption := SUndock;
    387   NewMenuItem.OnClick := PopupMenuUndockClick;
    388   PopupMenuHeader.Items.Add(NewMenuItem);
    389 
    390   NewMenuItem := TMenuItem.Create(PopupMenuHeader);
    391   NewMenuItem.Caption := SCustomize;
    392   NewMenuItem.OnClick := PopupMenuCustomizeClick;
    393   PopupMenuHeader.Items.Add(NewMenuItem);
    394   *)
     232  PopupMenu := TCoolDockPopupMenu.Create(Self);
    395233end;
    396234
    397235destructor TCoolDockManager.Destroy;
    398236begin
     237  PopupMenu.Free;
    399238  FDockPanels.Free;
     239  DockStyleHandler.Free;
    400240  inherited Destroy;
    401241end;
    … …  
    469309      if DockStyle = dsList then Visible := True;
    470310      Align := alClient;
    471       Header.PopupMenu := PopupMenuHeader;
     311      Header.PopupMenu := PopupMenu;
    472312    end;
    473313    if (Control is TForm) and Assigned((Control as TForm).Icon) then
    … …  
    515355
    516356//  FDockPanel.Invalidate;
    517   inherited;
     357  //inherited;
    518358end;
    519359
    … …  
    574414  ClientPanel: TCoolDockClientPanel;
    575415begin
    576   inherited;
     416  //inherited;
    577417  if Control.HostDockSite = Self.FDockSite then begin
    578418    ClientPanel := FindControlInPanels(Control);
    … …  
    663503end;
    664504
    665 procedure TCoolDockManager.PopupMenuTabsClick(Sender: TObject);
    666 begin
    667   DockStyle := dsTabs;
    668 end;
    669 
    670 procedure TCoolDockManager.PopupMenuCloseClick(Sender: TObject);
    671 var
    672   Control: TControl;
    673 begin
    674   Control := FindLCLControl(Mouse.CursorPos);
    675   if Assigned(Control) then
    676     ShowMessage(Control.ClassName);
    677 //  DockSiteTForm(TCoolDockManager(TControl(Sender).Parent.Parent.Parent.DockManager).FDockSite).Close;
    678 end;
    679 
    680 procedure TCoolDockManager.PopupMenuRenameClick(Sender: TObject);
    681 var
    682   Value: string;
    683 begin
    684   Value := DockSite.Parent.Caption;
    685   if InputQuery(SRenameWindow, SEnterNewWindowName, False, Value) then
    686     DockSite.Parent.Caption := Value;
    687 end;
    688 
    689 procedure TCoolDockManager.PopupMenuPositionAutoClick(Sender: TObject);
    690 begin
    691   //TabsPos := hpAuto;
    692 end;
    693 
    694 procedure TCoolDockManager.PopupMenuPositionLeftClick(Sender: TObject);
    695 begin
    696   //TabsPos := hpLeft;
    697 end;
    698 
    699 procedure TCoolDockManager.PopupMenuPositionRightClick(Sender: TObject);
    700 begin
    701   //TabsPos := hpRight;
    702 end;
    703 
    704 procedure TCoolDockManager.PopupMenuPositionTopClick(Sender: TObject);
    705 begin
    706   //TabsPos := hpTop;
    707 end;
    708 
    709 procedure TCoolDockManager.PopupMenuPositionBottomClick(Sender: TObject);
    710 begin
    711   //TabsPos := hpBottom;
    712 end;
    713 
    714 procedure TCoolDockManager.PopupMenuUndockClick(Sender: TObject);
    715 var
    716   Control: TControl;
    717 begin
    718 
    719   //Control.ManualFloat(Control.BoundsRect);
    720 end;
    721 
    722 procedure TCoolDockManager.PopupMenuCustomizeClick(Sender: TObject);
    723 begin
    724   if Assigned(Master) and
    725     Assigned(Master.Customize) then
    726     Master.Customize.Execute;
    727 end;
    728 
    729 procedure TCoolDockManager.PopupMenuListClick(Sender: TObject);
    730 begin
    731   DockStyle := dsList;
    732 end;
    733 
    734 
    735505{ TCoolDockConjoinForm }
    736506

  • Docking/CoolDocking/languages/UCoolDocking.cs.po

    r60 r98  
    1010"Content-Transfer-Encoding: 8bit\n"
    1111
    12 #: ucooldocking.scloseform
    13 msgid "Close"
    14 msgstr "Zavřít"
    15 
    16 #: ucooldocking.scustomize
    17 #| msgid "Customize...s"
    18 msgid "Customize..."
    19 msgstr "Přizpůsobit..."
    20 
    21 #: ucooldocking.sdocklist
    22 msgid "List"
    23 msgstr "Seznam"
    24 
    25 #: ucooldocking.sdockstyle
    26 msgid "Style"
    27 msgstr "Styl"
    28 
    29 #: ucooldocking.sdocktabs
    30 msgid "Tabs"
    31 msgstr "Záložky"
    32 
    33 #: ucooldocking.senternewwindowname
    34 msgid "Enter new window name"
    35 msgstr ""
    36 
    37 #: ucooldocking.sposition
    38 msgid "Position"
    39 msgstr "Pozice"
    40 
    41 #: ucooldocking.spositionauto
    42 msgid "Auto"
    43 msgstr "Automaticky"
    44 
    45 #: ucooldocking.spositionbottom
    46 msgid "Bottom"
    47 msgstr "Dole"
    48 
    49 #: ucooldocking.spositionleft
    50 msgid "Left"
    51 msgstr "Vlevo"
    52 
    53 #: ucooldocking.spositionright
    54 msgid "Right"
    55 msgstr "Vpravo"
    56 
    57 #: ucooldocking.spositiontop
    58 msgid "Top"
    59 msgstr "Nahoře"
    60 
    61 #: ucooldocking.srenameform
    62 msgid "Rename"
    63 msgstr "Přejmenovat"
    64 
    65 #: ucooldocking.srenamewindow
    66 msgid "Rename window"
    67 msgstr ""
    68 
    69 #: ucooldocking.sundock
    70 msgid "Undock"
    71 msgstr "Odkotvit"
    72 
    7312#: ucooldocking.swrongowner
    7413msgid "Owner of TCoolDockClient have to be TForm"

  • Docking/CoolDocking/languages/UCoolDocking.po

    r60 r98  
    11msgid ""
    22msgstr "Content-Type: text/plain; charset=UTF-8"
    3 
    4 #: ucooldocking.scloseform
    5 msgid "Close"
    6 msgstr ""
    7 
    8 #: ucooldocking.scustomize
    9 msgid "Customize..."
    10 msgstr ""
    11 
    12 #: ucooldocking.sdocklist
    13 msgid "List"
    14 msgstr ""
    15 
    16 #: ucooldocking.sdockstyle
    17 msgid "Style"
    18 msgstr ""
    19 
    20 #: ucooldocking.sdocktabs
    21 msgid "Tabs"
    22 msgstr ""
    23 
    24 #: ucooldocking.senternewwindowname
    25 msgid "Enter new window name"
    26 msgstr ""
    27 
    28 #: ucooldocking.sposition
    29 msgid "Position"
    30 msgstr ""
    31 
    32 #: ucooldocking.spositionauto
    33 msgid "Auto"
    34 msgstr ""
    35 
    36 #: ucooldocking.spositionbottom
    37 msgid "Bottom"
    38 msgstr ""
    39 
    40 #: ucooldocking.spositionleft
    41 msgid "Left"
    42 msgstr ""
    43 
    44 #: ucooldocking.spositionright
    45 msgid "Right"
    46 msgstr ""
    47 
    48 #: ucooldocking.spositiontop
    49 msgid "Top"
    50 msgstr ""
    51 
    52 #: ucooldocking.srenameform
    53 msgid "Rename"
    54 msgstr ""
    55 
    56 #: ucooldocking.srenamewindow
    57 msgid "Rename window"
    58 msgstr ""
    59 
    60 #: ucooldocking.sundock
    61 msgid "Undock"
    62 msgstr ""
    633
    644#: ucooldocking.swrongowner
Note: See TracChangeset for help on using the changeset viewer.