Changeset 205 for Docking


Ignore:
Timestamp:
Mar 17, 2011, 2:17:17 PM (14 years ago)
Author:
george
Message:
  • Modified: Enhanced tabs popup manager.
Location:
Docking/CoolDocking
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • Docking/CoolDocking/Demo/IDE/IDE.lpi

    r204 r205  
    5353        <UnitName Value="IDE"/>
    5454        <WindowIndex Value="0"/>
    55         <TopLine Value="4"/>
    56         <CursorPos X="35" Y="18"/>
     55        <TopLine Value="10"/>
     56        <CursorPos X="26" Y="20"/>
    5757        <UsageCount Value="314"/>
    5858      </Unit0>
     
    6363        <ResourceBaseClass Value="Form"/>
    6464        <UnitName Value="UMainForm"/>
    65         <EditorIndex Value="8"/>
    66         <WindowIndex Value="0"/>
    67         <TopLine Value="157"/>
    68         <CursorPos X="27" Y="168"/>
     65        <EditorIndex Value="4"/>
     66        <WindowIndex Value="0"/>
     67        <TopLine Value="92"/>
     68        <CursorPos X="73" Y="89"/>
    6969        <UsageCount Value="314"/>
    7070        <Loaded Value="True"/>
     
    106106      <Unit5>
    107107        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\control.inc"/>
    108         <WindowIndex Value="0"/>
    109         <TopLine Value="1330"/>
    110         <CursorPos X="1" Y="1347"/>
     108        <EditorIndex Value="3"/>
     109        <WindowIndex Value="0"/>
     110        <TopLine Value="3938"/>
     111        <CursorPos X="1" Y="3951"/>
    111112        <UsageCount Value="77"/>
     113        <Loaded Value="True"/>
    112114      </Unit5>
    113115      <Unit6>
     
    127129        <TopLine Value="941"/>
    128130        <CursorPos X="1" Y="954"/>
    129         <UsageCount Value="32"/>
     131        <UsageCount Value="31"/>
    130132      </Unit7>
    131133      <Unit8>
     
    201203        <ResourceBaseClass Value="Form"/>
    202204        <UnitName Value="USourceEditorForm"/>
    203         <WindowIndex Value="0"/>
    204         <TopLine Value="6"/>
    205         <CursorPos X="75" Y="7"/>
     205        <EditorIndex Value="5"/>
     206        <WindowIndex Value="0"/>
     207        <TopLine Value="9"/>
     208        <CursorPos X="28" Y="22"/>
    206209        <UsageCount Value="312"/>
     210        <Loaded Value="True"/>
    207211      </Unit14>
    208212      <Unit15>
     
    212216        <TopLine Value="81"/>
    213217        <CursorPos X="52" Y="92"/>
    214         <UsageCount Value="152"/>
     218        <UsageCount Value="151"/>
    215219      </Unit15>
    216220      <Unit16>
     
    220224        <TopLine Value="1"/>
    221225        <CursorPos X="22" Y="16"/>
    222         <UsageCount Value="62"/>
     226        <UsageCount Value="61"/>
    223227      </Unit16>
    224228      <Unit17>
    225229        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\classes\classesh.inc"/>
    226         <EditorIndex Value="3"/>
    227230        <WindowIndex Value="0"/>
    228231        <TopLine Value="20"/>
    229232        <CursorPos X="19" Y="33"/>
    230         <UsageCount Value="13"/>
    231         <Loaded Value="True"/>
     233        <UsageCount Value="15"/>
    232234      </Unit17>
    233235      <Unit18>
    234236        <Filename Value="..\..\Common\URectangle.pas"/>
    235237        <UnitName Value="URectangle"/>
    236         <EditorIndex Value="2"/>
    237238        <WindowIndex Value="0"/>
    238239        <TopLine Value="119"/>
    239240        <CursorPos X="27" Y="141"/>
    240         <UsageCount Value="27"/>
    241         <Loaded Value="True"/>
     241        <UsageCount Value="29"/>
    242242      </Unit18>
    243243      <Unit19>
     
    247247        <TopLine Value="702"/>
    248248        <CursorPos X="22" Y="715"/>
    249         <UsageCount Value="8"/>
     249        <UsageCount Value="7"/>
    250250      </Unit19>
    251251      <Unit20>
     
    254254        <TopLine Value="913"/>
    255255        <CursorPos X="1" Y="930"/>
    256         <UsageCount Value="10"/>
     256        <UsageCount Value="9"/>
    257257      </Unit20>
    258258      <Unit21>
    259259        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\controls.pp"/>
    260260        <UnitName Value="Controls"/>
    261         <EditorIndex Value="6"/>
    262         <WindowIndex Value="0"/>
    263         <TopLine Value="1228"/>
    264         <CursorPos X="15" Y="1283"/>
    265         <UsageCount Value="56"/>
     261        <EditorIndex Value="2"/>
     262        <WindowIndex Value="0"/>
     263        <TopLine Value="1222"/>
     264        <CursorPos X="37" Y="1235"/>
     265        <UsageCount Value="57"/>
    266266        <Loaded Value="True"/>
    267267      </Unit21>
     
    271271        <TopLine Value="7785"/>
    272272        <CursorPos X="1" Y="7810"/>
    273         <UsageCount Value="112"/>
     273        <UsageCount Value="111"/>
    274274      </Unit22>
    275275      <Unit23>
     
    282282        <TopLine Value="145"/>
    283283        <CursorPos X="34" Y="147"/>
    284         <UsageCount Value="136"/>
     284        <UsageCount Value="135"/>
    285285      </Unit23>
    286286      <Unit24>
    287287        <Filename Value="..\..\UCDCommon.pas"/>
    288288        <UnitName Value="UCDCommon"/>
    289         <EditorIndex Value="7"/>
    290289        <WindowIndex Value="0"/>
    291290        <TopLine Value="13"/>
    292291        <CursorPos X="18" Y="26"/>
    293         <UsageCount Value="58"/>
    294         <Loaded Value="True"/>
     292        <UsageCount Value="60"/>
    295293      </Unit24>
    296294      <Unit25>
    297295        <Filename Value="..\..\UCDPopupMenu.pas"/>
    298296        <UnitName Value="UCDPopupMenu"/>
    299         <EditorIndex Value="12"/>
     297        <EditorIndex Value="9"/>
    300298        <WindowIndex Value="0"/>
    301299        <TopLine Value="159"/>
     
    310308        <TopLine Value="81"/>
    311309        <CursorPos X="20" Y="94"/>
    312         <UsageCount Value="7"/>
     310        <UsageCount Value="6"/>
    313311      </Unit26>
    314312      <Unit27>
     
    318316        <TopLine Value="1"/>
    319317        <CursorPos X="24" Y="16"/>
    320         <UsageCount Value="10"/>
     318        <UsageCount Value="9"/>
    321319      </Unit27>
    322320      <Unit28>
     
    326324        <TopLine Value="1"/>
    327325        <CursorPos X="5" Y="11"/>
    328         <UsageCount Value="13"/>
     326        <UsageCount Value="12"/>
    329327      </Unit28>
    330328      <Unit29>
    331329        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    332330        <UnitName Value="UCDManagerTabs"/>
    333         <EditorIndex Value="11"/>
    334         <WindowIndex Value="0"/>
    335         <TopLine Value="169"/>
    336         <CursorPos X="27" Y="188"/>
     331        <EditorIndex Value="8"/>
     332        <WindowIndex Value="0"/>
     333        <TopLine Value="172"/>
     334        <CursorPos X="12" Y="183"/>
    337335        <UsageCount Value="130"/>
    338336        <Loaded Value="True"/>
     
    341339        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    342340        <UnitName Value="UCDManagerRegions"/>
    343         <EditorIndex Value="10"/>
     341        <EditorIndex Value="7"/>
    344342        <WindowIndex Value="0"/>
    345343        <TopLine Value="61"/>
     
    354352        <EditorIndex Value="0"/>
    355353        <WindowIndex Value="0"/>
    356         <TopLine Value="83"/>
    357         <CursorPos X="70" Y="101"/>
     354        <TopLine Value="414"/>
     355        <CursorPos X="1" Y="439"/>
    358356        <UsageCount Value="120"/>
    359357        <Loaded Value="True"/>
     
    364362        <TopLine Value="1"/>
    365363        <CursorPos X="22" Y="16"/>
    366         <UsageCount Value="6"/>
     364        <UsageCount Value="5"/>
    367365        <DefaultSyntaxHighlighter Value="None"/>
    368366      </Unit32>
     
    382380        <Filename Value="..\..\UCDManager.pas"/>
    383381        <UnitName Value="UCDManager"/>
    384         <EditorIndex Value="9"/>
    385         <WindowIndex Value="0"/>
    386         <TopLine Value="529"/>
    387         <CursorPos X="1" Y="543"/>
     382        <EditorIndex Value="6"/>
     383        <WindowIndex Value="0"/>
     384        <TopLine Value="40"/>
     385        <CursorPos X="18" Y="53"/>
    388386        <UsageCount Value="105"/>
    389387        <Loaded Value="True"/>
     
    393391        <UnitName Value="UCDConjoinForm"/>
    394392        <WindowIndex Value="0"/>
    395         <TopLine Value="1"/>
    396         <CursorPos X="31" Y="8"/>
    397         <UsageCount Value="99"/>
     393        <TopLine Value="44"/>
     394        <CursorPos X="3" Y="47"/>
     395        <UsageCount Value="98"/>
    398396      </Unit35>
    399397      <Unit36>
    400398        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\extctrls.pp"/>
    401399        <UnitName Value="ExtCtrls"/>
    402         <WindowIndex Value="0"/>
    403         <TopLine Value="111"/>
    404         <CursorPos X="3" Y="124"/>
    405         <UsageCount Value="97"/>
     400        <EditorIndex Value="1"/>
     401        <WindowIndex Value="0"/>
     402        <TopLine Value="1181"/>
     403        <CursorPos X="22" Y="1194"/>
     404        <UsageCount Value="96"/>
     405        <Loaded Value="True"/>
    406406      </Unit36>
    407407      <Unit37>
    408408        <Filename Value="..\..\UCDMaster.pas"/>
    409409        <UnitName Value="UCDMaster"/>
    410         <EditorIndex Value="13"/>
     410        <EditorIndex Value="10"/>
    411411        <WindowIndex Value="0"/>
    412412        <TopLine Value="11"/>
     
    421421        <TopLine Value="255"/>
    422422        <CursorPos X="14" Y="304"/>
    423         <UsageCount Value="92"/>
     423        <UsageCount Value="91"/>
    424424      </Unit38>
    425425      <Unit39>
     
    428428        <TopLine Value="136"/>
    429429        <CursorPos X="3" Y="138"/>
    430         <UsageCount Value="2"/>
     430        <UsageCount Value="1"/>
    431431      </Unit39>
    432432      <Unit40>
     
    436436        <TopLine Value="172"/>
    437437        <CursorPos X="17" Y="185"/>
    438         <UsageCount Value="3"/>
     438        <UsageCount Value="2"/>
    439439      </Unit40>
    440440      <Unit41>
     
    447447        <TopLine Value="33"/>
    448448        <CursorPos X="1" Y="47"/>
    449         <UsageCount Value="25"/>
     449        <UsageCount Value="24"/>
    450450      </Unit41>
    451451      <Unit42>
     
    455455        <TopLine Value="632"/>
    456456        <CursorPos X="14" Y="645"/>
    457         <UsageCount Value="3"/>
     457        <UsageCount Value="2"/>
    458458      </Unit42>
    459459      <Unit43>
     
    462462        <TopLine Value="426"/>
    463463        <CursorPos X="3" Y="417"/>
    464         <UsageCount Value="3"/>
     464        <UsageCount Value="2"/>
    465465      </Unit43>
    466466      <Unit44>
     
    472472        <TopLine Value="13"/>
    473473        <CursorPos X="40" Y="31"/>
    474         <UsageCount Value="22"/>
     474        <UsageCount Value="21"/>
    475475      </Unit44>
    476476      <Unit45>
     
    480480        <TopLine Value="165"/>
    481481        <CursorPos X="15" Y="178"/>
    482         <UsageCount Value="22"/>
     482        <UsageCount Value="21"/>
    483483      </Unit45>
    484484      <Unit46>
     
    487487        <TopLine Value="554"/>
    488488        <CursorPos X="9" Y="564"/>
    489         <UsageCount Value="22"/>
     489        <UsageCount Value="21"/>
    490490      </Unit46>
    491491      <Unit47>
    492492        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\inc\objpash.inc"/>
    493         <EditorIndex Value="1"/>
    494493        <WindowIndex Value="0"/>
    495494        <TopLine Value="179"/>
    496495        <CursorPos X="23" Y="192"/>
    497         <UsageCount Value="10"/>
    498         <Loaded Value="True"/>
     496        <UsageCount Value="12"/>
    499497      </Unit47>
    500498      <Unit48>
     
    504502        <TopLine Value="169"/>
    505503        <CursorPos X="1" Y="182"/>
    506         <UsageCount Value="8"/>
     504        <UsageCount Value="7"/>
    507505      </Unit48>
    508506      <Unit49>
     
    512510        <TopLine Value="153"/>
    513511        <CursorPos X="15" Y="166"/>
    514         <UsageCount Value="6"/>
     512        <UsageCount Value="5"/>
    515513      </Unit49>
    516514      <Unit50>
     
    519517        <TopLine Value="441"/>
    520518        <CursorPos X="1" Y="454"/>
    521         <UsageCount Value="6"/>
     519        <UsageCount Value="5"/>
    522520      </Unit50>
    523521      <Unit51>
     
    527525        <TopLine Value="70"/>
    528526        <CursorPos X="3" Y="83"/>
    529         <UsageCount Value="27"/>
     527        <UsageCount Value="26"/>
    530528      </Unit51>
    531529      <Unit52>
     
    535533        <TopLine Value="1429"/>
    536534        <CursorPos X="1" Y="1442"/>
    537         <UsageCount Value="26"/>
     535        <UsageCount Value="25"/>
    538536      </Unit52>
    539537      <Unit53>
    540538        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\types.pp"/>
    541539        <UnitName Value="types"/>
    542         <EditorIndex Value="4"/>
    543540        <WindowIndex Value="0"/>
    544541        <TopLine Value="319"/>
    545542        <CursorPos X="16" Y="319"/>
    546         <UsageCount Value="10"/>
    547         <Loaded Value="True"/>
     543        <UsageCount Value="12"/>
    548544      </Unit53>
    549545      <Unit54>
    550546        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\win\wininc\struct.inc"/>
    551         <EditorIndex Value="5"/>
    552547        <WindowIndex Value="0"/>
    553548        <TopLine Value="213"/>
    554549        <CursorPos X="6" Y="226"/>
    555         <UsageCount Value="10"/>
    556         <Loaded Value="True"/>
     550        <UsageCount Value="12"/>
    557551      </Unit54>
    558552    </Units>
    559     <JumpHistory Count="30" HistoryIndex="28">
     553    <JumpHistory Count="30" HistoryIndex="29">
    560554      <Position1>
    561555        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    562         <Caret Line="6" Column="64" TopLine="1"/>
     556        <Caret Line="285" Column="10" TopLine="272"/>
    563557      </Position1>
    564558      <Position2>
    565559        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    566         <Caret Line="19" Column="18" TopLine="1"/>
     560        <Caret Line="234" Column="41" TopLine="228"/>
    567561      </Position2>
    568562      <Position3>
    569563        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    570         <Caret Line="87" Column="20" TopLine="69"/>
     564        <Caret Line="9" Column="52" TopLine="1"/>
    571565      </Position3>
    572566      <Position4>
    573567        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    574         <Caret Line="161" Column="34" TopLine="148"/>
     568        <Caret Line="282" Column="25" TopLine="269"/>
    575569      </Position4>
    576570      <Position5>
    577571        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    578         <Caret Line="5" Column="70" TopLine="1"/>
     572        <Caret Line="361" Column="13" TopLine="352"/>
    579573      </Position5>
    580574      <Position6>
    581575        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    582         <Caret Line="19" Column="18" TopLine="1"/>
     576        <Caret Line="291" Column="15" TopLine="274"/>
    583577      </Position6>
    584578      <Position7>
    585579        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    586         <Caret Line="87" Column="58" TopLine="66"/>
     580        <Caret Line="56" Column="45" TopLine="53"/>
    587581      </Position7>
    588582      <Position8>
    589583        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    590         <Caret Line="88" Column="73" TopLine="67"/>
     584        <Caret Line="356" Column="3" TopLine="354"/>
    591585      </Position8>
    592586      <Position9>
    593587        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    594         <Caret Line="91" Column="77" TopLine="70"/>
     588        <Caret Line="56" Column="43" TopLine="43"/>
    595589      </Position9>
    596590      <Position10>
    597591        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    598         <Caret Line="92" Column="52" TopLine="71"/>
     592        <Caret Line="354" Column="59" TopLine="341"/>
    599593      </Position10>
    600594      <Position11>
    601595        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    602         <Caret Line="95" Column="58" TopLine="74"/>
     596        <Caret Line="356" Column="8" TopLine="341"/>
    603597      </Position11>
    604598      <Position12>
    605599        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    606         <Caret Line="96" Column="51" TopLine="75"/>
     600        <Caret Line="62" Column="19" TopLine="49"/>
    607601      </Position12>
    608602      <Position13>
    609         <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    610         <Caret Line="97" Column="22" TopLine="76"/>
     603        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\extctrls.pp"/>
     604        <Caret Line="570" Column="26" TopLine="563"/>
    611605      </Position13>
    612606      <Position14>
    613         <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    614         <Caret Line="100" Column="81" TopLine="79"/>
     607        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\extctrls.pp"/>
     608        <Caret Line="563" Column="32" TopLine="545"/>
    615609      </Position14>
    616610      <Position15>
    617         <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    618         <Caret Line="101" Column="84" TopLine="80"/>
     611        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\extctrls.pp"/>
     612        <Caret Line="564" Column="33" TopLine="545"/>
    619613      </Position15>
    620614      <Position16>
    621615        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    622         <Caret Line="128" Column="15" TopLine="107"/>
     616        <Caret Line="292" Column="19" TopLine="275"/>
    623617      </Position16>
    624618      <Position17>
    625619        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    626         <Caret Line="19" Column="27" TopLine="6"/>
     620        <Caret Line="58" Column="30" TopLine="47"/>
    627621      </Position17>
    628622      <Position18>
    629         <Filename Value="..\..\Common\URectangle.pas"/>
    630         <Caret Line="35" Column="42" TopLine="25"/>
     623        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
     624        <Caret Line="56" Column="33" TopLine="43"/>
    631625      </Position18>
    632626      <Position19>
    633         <Filename Value="..\..\Common\URectangle.pas"/>
    634         <Caret Line="139" Column="5" TopLine="117"/>
     627        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
     628        <Caret Line="58" Column="31" TopLine="43"/>
    635629      </Position19>
    636630      <Position20>
    637         <Filename Value="..\..\Common\URectangle.pas"/>
    638         <Caret Line="31" Column="5" TopLine="18"/>
     631        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
     632        <Caret Line="358" Column="1" TopLine="345"/>
    639633      </Position20>
    640634      <Position21>
    641635        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    642         <Caret Line="19" Column="27" TopLine="6"/>
     636        <Caret Line="56" Column="15" TopLine="43"/>
    643637      </Position21>
    644638      <Position22>
    645639        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    646         <Caret Line="87" Column="58" TopLine="66"/>
     640        <Caret Line="369" Column="13" TopLine="366"/>
    647641      </Position22>
    648642      <Position23>
    649643        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    650         <Caret Line="88" Column="73" TopLine="67"/>
     644        <Caret Line="380" Column="23" TopLine="360"/>
    651645      </Position23>
    652646      <Position24>
    653647        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    654         <Caret Line="106" Column="20" TopLine="85"/>
     648        <Caret Line="298" Column="32" TopLine="285"/>
    655649      </Position24>
    656650      <Position25>
    657651        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    658         <Caret Line="128" Column="35" TopLine="107"/>
     652        <Caret Line="61" Column="45" TopLine="47"/>
    659653      </Position25>
    660654      <Position26>
    661655        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    662         <Caret Line="141" Column="35" TopLine="120"/>
     656        <Caret Line="369" Column="74" TopLine="369"/>
    663657      </Position26>
    664658      <Position27>
    665659        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    666         <Caret Line="162" Column="16" TopLine="141"/>
     660        <Caret Line="298" Column="44" TopLine="285"/>
    667661      </Position27>
    668662      <Position28>
    669663        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    670         <Caret Line="175" Column="16" TopLine="154"/>
     664        <Caret Line="369" Column="49" TopLine="356"/>
    671665      </Position28>
    672666      <Position29>
    673667        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    674         <Caret Line="100" Column="44" TopLine="83"/>
     668        <Caret Line="62" Column="30" TopLine="47"/>
    675669      </Position29>
    676670      <Position30>
    677671        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    678         <Caret Line="258" Column="1" TopLine="245"/>
     672        <Caret Line="303" Column="16" TopLine="282"/>
    679673      </Position30>
    680674    </JumpHistory>
  • Docking/CoolDocking/Demo/IDE/UMainForm.pas

    r198 r205  
    103103    procedure FormShow(Sender: TObject);
    104104  public
     105    NewFileIndex: Integer;
     106    SourceCodeContainer: TCDConjoinForm;
    105107    procedure InitDefaultDockLayout;
    106108  end;
     
    176178    ToolPaletteForm.Show;
    177179
     180    SourceCodeContainer := TCDManager(DockPanel.DockManager).CreateContainer(alRight);
     181    TCDManager(SourceCodeContainer.DockManager).DockStyle := dsTabs;
     182    TCDManager(SourceCodeContainer.DockManager).HeaderPos := hpTop;
     183
    178184    NewContainer1.ManualDock(DockPanel);
    179185    NewContainer1.Show;
    180     SourceEditorForm.ManualDock(DockPanel);
    181     SourceEditorForm.Show;
     186//    SourceCodeContainer.ManualDock(DockPanel);
     187//    SourceCodeContainer.Show;
    182188    NewContainer2.ManualDock(DockPanel);
    183189    NewContainer2.Show;
     
    243249
    244250procedure TMainForm.ANewFileExecute(Sender: TObject);
    245 begin
    246   SourceEditorForm.Show;
     251var
     252  NewFile: TSourceEditorForm;
     253begin
     254  Application.CreateForm(TSourceEditorForm, NewFile);
     255  //NewFile := TSourceEditorForm.Create(nil);
     256  Inc(NewFileIndex);
     257  NewFile.Caption := 'Unit ' + IntToStr(NewFileIndex);
     258  NewFile.ManualDock(SourceCodeContainer);
     259  NewFile.Show;
    247260end;
    248261
  • Docking/CoolDocking/Managers/UCDManagerTabs.pas

    r199 r205  
    195195    //Align := alTop;
    196196    //Height := 24;
    197     Color := clBlue;
     197    //Color := clBlue;
    198198    Align := alClient;
    199199    OnChange := TabControlChange;
  • Docking/CoolDocking/Managers/UCDManagerTabsPopup.pas

    r204 r205  
    77uses
    88  Classes, Controls, SysUtils, ComCtrls, ExtCtrls, UCDCommon, UCDManager,
    9   UCDManagerTabs, Forms, URectangle;
     9  UCDManagerTabs, Forms, URectangle, UCDConjoinForm;
    1010
    1111type
     
    5353  TCDManagerTabsPopup = class(TCDManagerTabs)
    5454  private
     55    SplitterMouseDrag: Boolean;
     56    SplitterMousePos: TPoint;
    5557    procedure InsertControlNoUpdate(Control: TControl; InsertAt: TAlign); override;
     58    procedure SplitterMouseDown(Sender: TObject; Button: TMouseButton;
     59      Shift: TShiftState; X, Y: Integer);
     60    procedure SplitterMouseMove(Sender: TObject; Shift: TShiftState;
     61                              X, Y: Integer);
     62    procedure SplitterMouseUp(Sender: TObject; Button: TMouseButton;
     63      Shift: TShiftState; X, Y: Integer);
    5664  public
    5765    AutoHideEnabled: Boolean;
    5866    AutoHide: TCDAutoHide;
    5967    PopupForm: TForm;
     68    HeaderPanel: TCDPanelHeader;
     69    Splitter: TPanel;
    6070    procedure SetHeaderPos(const AValue: THeaderPos); override;
    6171    procedure PinShowButtonClick(Sender: TObject);
     
    188198      ControlVisible := True;
    189199      DoShow := False;
    190       HideBounds := ShowBounds;
     200      HideBounds.Assign(ShowBounds);
    191201    end;
    192202  end else
     
    231241    C := TCDManagerTabsPopupItem(DockItems[PageControl.TabIndex]).Control;
    232242    C.Align := alClient;
    233     C.Parent := PopupForm;
     243    C.Parent := HeaderPanel.ControlPanel;
     244    HeaderPanel.Header.Title.Caption := C.Caption;
    234245    Pos := Point(PageControl.Left, PageControl.Top);
    235246
     
    279290  PopupForm.Visible := True;
    280291  PopupForm.BorderStyle := bsNone;
     292  HeaderPanel := TCDPanelHeader.Create(nil);
     293  HeaderPanel.Parent := PopupForm;
     294  HeaderPanel.Align := alClient;
     295  HeaderPanel.Visible := True;
     296  Splitter := TPanel.Create(nil);
     297  Splitter.Visible := True;
     298  Splitter.Parent := PopupForm;
     299  Splitter.OnMouseDown := SplitterMouseDown;
     300  Splitter.OnMouseMove := SplitterMouseMove;
     301  Splitter.OnMouseUp := SplitterMouseUp;
    281302  AutoHide := TCDAutoHide.Create;
    282303  AutoHide.Control := PopupForm;
     
    293314  AutoHide.Free;
    294315  PopupForm.Free;
     316  HeaderPanel.Free;
    295317  inherited Destroy;
    296318end;
     
    339361end;
    340362
     363procedure TCDManagerTabsPopup.SplitterMouseDown(Sender: TObject;
     364  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
     365begin
     366  if Button = mbLeft then begin
     367    SplitterMousePos := Point(X, Y);
     368    SplitterMouseDrag := True;
     369  end;
     370end;
     371
     372procedure TCDManagerTabsPopup.SplitterMouseMove(Sender: TObject; Shift: TShiftState;
     373  X, Y: Integer);
     374begin
     375  if SplitterMouseDrag then begin
     376    case Splitter.Align of
     377      alLeft: begin
     378        PopupForm.SetBounds(PopupForm.Left - (X - SplitterMousePos.X),
     379          PopupForm.Top, PopupForm.Width - (X - SplitterMousePos.X),
     380          PopupForm.Height);
     381      end;
     382      alRight: begin
     383        PopupForm.SetBounds(PopupForm.Left, PopupForm.Top,
     384          PopupForm.Width + (X - SplitterMousePos.X), PopupForm.Height);
     385      end;
     386      alTop: begin
     387        PopupForm.SetBounds(PopupForm.Left,PopupForm.Top + (Y - SplitterMousePos.Y),
     388          PopupForm.Width, PopupForm.Height + (Y - SplitterMousePos.Y));
     389      end;
     390      alBottom: begin
     391        PopupForm.SetBounds(PopupForm.Left, PopupForm.Top,
     392          PopupForm.Width, PopupForm.Height + (Y - SplitterMousePos.Y));
     393      end;
     394    end;
     395  end;
     396end;
     397
     398procedure TCDManagerTabsPopup.SplitterMouseUp(Sender: TObject;
     399  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
     400begin
     401  SplitterMouseDrag := False;
     402end;
     403
    341404procedure TCDManagerTabsPopup.SetHeaderPos(const AValue: THeaderPos);
     405const
     406  SplitterSize: Integer = 4;
    342407begin
    343408  inherited SetHeaderPos(AValue);
     
    348413      Align := alTop;
    349414      Height := 24;
     415      Splitter.Align := alBottom;
     416      Splitter.Height := SplitterSize;
     417      Splitter.Cursor := crSizeNS;
    350418    end;
    351419    hpBottom: begin
    352420      Align := alBottom;
    353421      Height := 24;
     422      Splitter.Align := alTop;
     423      Splitter.Height := SplitterSize;
     424      Splitter.Cursor := crSizeNS;
    354425    end;
    355426    hpLeft: begin
    356427      Align := alLeft;
    357428      Width := 24;
     429      Splitter.Align := alRight;
     430      Splitter.Width := SplitterSize;
     431      Splitter.Cursor := crSizeWE;
    358432    end;
    359433    hpRight: begin
    360434      Align := alRight;
    361435      Width := 24;
     436      Splitter.Align := alLeft;
     437      Splitter.Width := SplitterSize;
     438      Splitter.Cursor := crSizeWE;
    362439    end;
    363440  end;
Note: See TracChangeset for help on using the changeset viewer.