Changeset 213 for Docking/CoolDocking


Ignore:
Timestamp:
Mar 21, 2011, 10:23:24 AM (14 years ago)
Author:
george
Message:
  • Fixed: Tabs image indexes.
  • Fixed: Destroying Tabs managed conjoin form.
Location:
Docking/CoolDocking
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/Common/URectangle.pas

    r204 r213  
    11unit URectangle;
    22
    3 {$mode objfpc}{$H+}
     3// Date: 2011-03-20
     4
     5{$mode Delphi}{$H+}
    46
    57interface
    … …  
    3436
    3537    procedure Assign(Source: TRectangle);
     38    function IsInside(Pos: TPoint): Boolean;
    3639
    3740    property Width: Integer read GetWidth write SetWidth;
    … …  
    142145end;
    143146
     147function TRectangle.IsInside(Pos: TPoint): Boolean;
     148begin
     149  Result := (Pos.X >= Left) and (Pos.Y >= Top) and
     150    (Pos.X <= Right) and (Pos.Y <= Bottom);
     151end;
     152
    144153end.
    145154

  • Docking/CoolDocking/CoolDocking.lpk

    r199 r213  
    2121      </CodeGeneration>
    2222      <Other>
     23        <CompilerMessages>
     24          <UseMsgFile Value="True"/>
     25        </CompilerMessages>
    2326        <CompilerPath Value="$(CompPath)"/>
    2427      </Other>
    … …  
    115118    </RequiredPkgs>
    116119    <UsageOptions>
    117       <UnitPath Value="$(PkgOutDir);Managers;Common"/>
     120      <UnitPath Value="$(PkgOutDir)"/>
    118121    </UsageOptions>
    119122    <PublishOptions>

  • Docking/CoolDocking/Demo/IDE/IDE.lpi

    r209 r213  
    4747      </Item4>
    4848    </RequiredPackages>
    49     <Units Count="65">
     49    <Units Count="48">
    5050      <Unit0>
    5151        <Filename Value="IDE.lpr"/>
    … …  
    6363        <ResourceBaseClass Value="Form"/>
    6464        <UnitName Value="UMainForm"/>
    65         <IsVisibleTab Value="True"/>
    6665        <EditorIndex Value="2"/>
    6766        <WindowIndex Value="0"/>
    68         <TopLine Value="161"/>
    69         <CursorPos X="54" Y="168"/>
     67        <TopLine Value="90"/>
     68        <CursorPos X="27" Y="102"/>
    7069        <UsageCount Value="314"/>
    7170        <Loaded Value="True"/>
    … …  
    107106      <Unit5>
    108107        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\control.inc"/>
    109         <EditorIndex Value="8"/>
    110         <WindowIndex Value="0"/>
    111         <TopLine Value="2415"/>
    112         <CursorPos X="43" Y="2423"/>
    113         <UsageCount Value="79"/>
     108        <EditorIndex Value="12"/>
     109        <WindowIndex Value="0"/>
     110        <TopLine Value="209"/>
     111        <CursorPos X="18" Y="230"/>
     112        <UsageCount Value="144"/>
    114113        <Loaded Value="True"/>
    115114      </Unit5>
    … …  
    127126      <Unit7>
    128127        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\customform.inc"/>
    129         <EditorIndex Value="9"/>
     128        <EditorIndex Value="13"/>
    130129        <WindowIndex Value="0"/>
    131130        <TopLine Value="1350"/>
    132131        <CursorPos X="1" Y="1363"/>
    133         <UsageCount Value="32"/>
     132        <UsageCount Value="97"/>
    134133        <Loaded Value="True"/>
    135134      </Unit7>
    … …  
    214213        <Filename Value="..\..\UCDClient.pas"/>
    215214        <UnitName Value="UCDClient"/>
     215        <EditorIndex Value="3"/>
    216216        <WindowIndex Value="0"/>
    217217        <TopLine Value="81"/>
    218         <CursorPos X="52" Y="92"/>
    219         <UsageCount Value="151"/>
     218        <CursorPos X="1" Y="90"/>
     219        <UsageCount Value="138"/>
     220        <Loaded Value="True"/>
    220221      </Unit15>
    221222      <Unit16>
    … …  
    225226        <TopLine Value="344"/>
    226227        <CursorPos X="43" Y="365"/>
    227         <UsageCount Value="61"/>
     228        <UsageCount Value="48"/>
    228229      </Unit16>
    229230      <Unit17>
    … …  
    232233        <TopLine Value="285"/>
    233234        <CursorPos X="14" Y="298"/>
    234         <UsageCount Value="15"/>
     235        <UsageCount Value="2"/>
    235236      </Unit17>
    236237      <Unit18>
    237238        <Filename Value="..\..\Common\URectangle.pas"/>
    238239        <UnitName Value="URectangle"/>
    239         <WindowIndex Value="0"/>
    240         <TopLine Value="119"/>
    241         <CursorPos X="27" Y="141"/>
    242         <UsageCount Value="29"/>
     240        <EditorIndex Value="4"/>
     241        <WindowIndex Value="0"/>
     242        <TopLine Value="22"/>
     243        <CursorPos X="26" Y="32"/>
     244        <UsageCount Value="17"/>
     245        <Loaded Value="True"/>
    243246      </Unit18>
    244247      <Unit19>
    245         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\forms.pp"/>
    246         <UnitName Value="Forms"/>
    247         <WindowIndex Value="0"/>
    248         <TopLine Value="1790"/>
    249         <CursorPos X="1" Y="1803"/>
    250         <UsageCount Value="10"/>
     248        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\controls.pp"/>
     249        <UnitName Value="Controls"/>
     250        <EditorIndex Value="6"/>
     251        <WindowIndex Value="0"/>
     252        <TopLine Value="503"/>
     253        <CursorPos X="35" Y="512"/>
     254        <UsageCount Value="124"/>
     255        <Loaded Value="True"/>
    251256      </Unit19>
    252257      <Unit20>
    253         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\customcombobox.inc"/>
    254         <WindowIndex Value="0"/>
    255         <TopLine Value="913"/>
    256         <CursorPos X="1" Y="930"/>
    257         <UsageCount Value="9"/>
     258        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\wincontrol.inc"/>
     259        <EditorIndex Value="15"/>
     260        <WindowIndex Value="0"/>
     261        <TopLine Value="7762"/>
     262        <CursorPos X="1" Y="7775"/>
     263        <UsageCount Value="111"/>
     264        <Loaded Value="True"/>
    258265      </Unit20>
    259266      <Unit21>
    260         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\controls.pp"/>
    261         <UnitName Value="Controls"/>
    262         <EditorIndex Value="4"/>
    263         <WindowIndex Value="0"/>
    264         <TopLine Value="508"/>
    265         <CursorPos X="15" Y="521"/>
    266         <UsageCount Value="59"/>
    267         <Loaded Value="True"/>
    268       </Unit21>
    269       <Unit22>
    270         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\wincontrol.inc"/>
    271         <EditorIndex Value="11"/>
    272         <WindowIndex Value="0"/>
    273         <TopLine Value="5327"/>
    274         <CursorPos X="1" Y="5340"/>
    275         <UsageCount Value="111"/>
    276         <Loaded Value="True"/>
    277       </Unit22>
    278       <Unit23>
    279267        <Filename Value="..\..\UCDCustomize.pas"/>
    280268        <ComponentName Value="CDCustomizeForm"/>
    … …  
    285273        <TopLine Value="145"/>
    286274        <CursorPos X="34" Y="147"/>
    287         <UsageCount Value="135"/>
     275        <UsageCount Value="121"/>
     276      </Unit21>
     277      <Unit22>
     278        <Filename Value="..\..\UCDCommon.pas"/>
     279        <UnitName Value="UCDCommon"/>
     280        <WindowIndex Value="0"/>
     281        <TopLine Value="13"/>
     282        <CursorPos X="18" Y="26"/>
     283        <UsageCount Value="46"/>
     284      </Unit22>
     285      <Unit23>
     286        <Filename Value="..\..\UCDPopupMenu.pas"/>
     287        <UnitName Value="UCDPopupMenu"/>
     288        <WindowIndex Value="0"/>
     289        <TopLine Value="319"/>
     290        <CursorPos X="1" Y="335"/>
     291        <UsageCount Value="128"/>
    288292      </Unit23>
    289293      <Unit24>
    290         <Filename Value="..\..\UCDCommon.pas"/>
    291         <UnitName Value="UCDCommon"/>
    292         <WindowIndex Value="0"/>
    293         <TopLine Value="13"/>
    294         <CursorPos X="18" Y="26"/>
    295         <UsageCount Value="60"/>
     294        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
     295        <UnitName Value="UCDManagerTabs"/>
     296        <IsVisibleTab Value="True"/>
     297        <EditorIndex Value="10"/>
     298        <WindowIndex Value="0"/>
     299        <TopLine Value="270"/>
     300        <CursorPos X="1" Y="292"/>
     301        <UsageCount Value="130"/>
     302        <Loaded Value="True"/>
    296303      </Unit24>
    297304      <Unit25>
    298         <Filename Value="..\..\UCDPopupMenu.pas"/>
    299         <UnitName Value="UCDPopupMenu"/>
    300         <WindowIndex Value="0"/>
    301         <TopLine Value="319"/>
    302         <CursorPos X="1" Y="335"/>
    303         <UsageCount Value="141"/>
     305        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     306        <UnitName Value="UCDManagerRegions"/>
     307        <EditorIndex Value="9"/>
     308        <WindowIndex Value="0"/>
     309        <TopLine Value="277"/>
     310        <CursorPos X="3" Y="293"/>
     311        <UsageCount Value="129"/>
     312        <Loaded Value="True"/>
    304313      </Unit25>
    305314      <Unit26>
    306         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclclasses.pp"/>
    307         <UnitName Value="LCLClasses"/>
    308         <WindowIndex Value="0"/>
    309         <TopLine Value="61"/>
    310         <CursorPos X="33" Y="78"/>
    311         <UsageCount Value="10"/>
    312       </Unit26>
    313       <Unit27>
    314         <Filename Value="..\..\UCDStyle.pas"/>
    315         <UnitName Value="UCDStyle"/>
    316         <WindowIndex Value="0"/>
    317         <TopLine Value="1"/>
    318         <CursorPos X="24" Y="16"/>
    319         <UsageCount Value="9"/>
    320       </Unit27>
    321       <Unit28>
    322         <Filename Value="..\..\UCDClientPanel.pas"/>
    323         <UnitName Value="UCDClientPanel"/>
    324         <WindowIndex Value="0"/>
    325         <TopLine Value="1"/>
    326         <CursorPos X="5" Y="11"/>
    327         <UsageCount Value="12"/>
    328       </Unit28>
    329       <Unit29>
    330         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    331         <UnitName Value="UCDManagerTabs"/>
    332         <EditorIndex Value="6"/>
    333         <WindowIndex Value="0"/>
    334         <TopLine Value="264"/>
    335         <CursorPos X="8" Y="266"/>
    336         <UsageCount Value="130"/>
    337         <Loaded Value="True"/>
    338       </Unit29>
    339       <Unit30>
    340         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    341         <UnitName Value="UCDManagerRegions"/>
    342         <EditorIndex Value="5"/>
    343         <WindowIndex Value="0"/>
    344         <TopLine Value="329"/>
    345         <CursorPos X="1" Y="339"/>
    346         <UsageCount Value="129"/>
    347         <Loaded Value="True"/>
    348       </Unit30>
    349       <Unit31>
    350315        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    351316        <UnitName Value="UCDManagerTabsPopup"/>
    352317        <EditorIndex Value="0"/>
    353318        <WindowIndex Value="0"/>
    354         <TopLine Value="55"/>
    355         <CursorPos X="30" Y="66"/>
     319        <TopLine Value="262"/>
     320        <CursorPos X="52" Y="272"/>
    356321        <UsageCount Value="120"/>
    357322        <Loaded Value="True"/>
    358       </Unit31>
    359       <Unit32>
    360         <Filename Value="..\..\ReadMe.txt"/>
    361         <WindowIndex Value="0"/>
    362         <TopLine Value="1"/>
    363         <CursorPos X="22" Y="16"/>
    364         <UsageCount Value="5"/>
    365         <DefaultSyntaxHighlighter Value="None"/>
    366       </Unit32>
    367       <Unit33>
     323      </Unit26>
     324      <Unit27>
    368325        <Filename Value="UComponentTree.pas"/>
    369326        <IsPartOfProject Value="True"/>
    … …  
    376333        <CursorPos X="61" Y="27"/>
    377334        <UsageCount Value="215"/>
    378       </Unit33>
    379       <Unit34>
     335      </Unit27>
     336      <Unit28>
    380337        <Filename Value="..\..\UCDManager.pas"/>
    381338        <UnitName Value="UCDManager"/>
    382         <EditorIndex Value="3"/>
    383         <WindowIndex Value="0"/>
    384         <TopLine Value="555"/>
    385         <CursorPos X="11" Y="559"/>
     339        <EditorIndex Value="5"/>
     340        <WindowIndex Value="0"/>
     341        <TopLine Value="467"/>
     342        <CursorPos X="1" Y="472"/>
    386343        <UsageCount Value="105"/>
    387344        <Loaded Value="True"/>
    388       </Unit34>
    389       <Unit35>
     345      </Unit28>
     346      <Unit29>
    390347        <Filename Value="..\..\UCDConjoinForm.pas"/>
    391348        <UnitName Value="UCDConjoinForm"/>
    392         <EditorIndex Value="10"/>
     349        <EditorIndex Value="14"/>
    393350        <WindowIndex Value="0"/>
    394351        <TopLine Value="32"/>
    395352        <CursorPos X="31" Y="34"/>
    396         <UsageCount Value="100"/>
    397         <Loaded Value="True"/>
    398       </Unit35>
    399       <Unit36>
     353        <UsageCount Value="164"/>
     354        <Loaded Value="True"/>
     355      </Unit29>
     356      <Unit30>
    400357        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\extctrls.pp"/>
    401358        <UnitName Value="ExtCtrls"/>
    … …  
    403360        <TopLine Value="215"/>
    404361        <CursorPos X="14" Y="228"/>
    405         <UsageCount Value="96"/>
    406       </Unit36>
    407       <Unit37>
     362        <UsageCount Value="83"/>
     363      </Unit30>
     364      <Unit31>
    408365        <Filename Value="..\..\UCDMaster.pas"/>
    409366        <UnitName Value="UCDMaster"/>
    … …  
    411368        <TopLine Value="11"/>
    412369        <CursorPos X="18" Y="19"/>
    413         <UsageCount Value="101"/>
    414       </Unit37>
    415       <Unit38>
     370        <UsageCount Value="88"/>
     371      </Unit31>
     372      <Unit32>
    416373        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\comctrls.pp"/>
    417374        <UnitName Value="ComCtrls"/>
    … …  
    419376        <TopLine Value="290"/>
    420377        <CursorPos X="45" Y="308"/>
    421         <UsageCount Value="91"/>
    422       </Unit38>
    423       <Unit39>
    424         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\spinedit.inc"/>
    425         <WindowIndex Value="0"/>
    426         <TopLine Value="136"/>
    427         <CursorPos X="3" Y="138"/>
    428         <UsageCount Value="1"/>
    429       </Unit39>
    430       <Unit40>
    431         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\spin.pp"/>
    432         <UnitName Value="Spin"/>
    433         <WindowIndex Value="0"/>
    434         <TopLine Value="172"/>
    435         <CursorPos X="17" Y="185"/>
    436         <UsageCount Value="2"/>
    437       </Unit40>
    438       <Unit41>
     378        <UsageCount Value="78"/>
     379      </Unit32>
     380      <Unit33>
    439381        <Filename Value="..\..\UCDWindowList.pas"/>
    440382        <ComponentName Value="CDWindowListForm"/>
    … …  
    445387        <TopLine Value="33"/>
    446388        <CursorPos X="1" Y="47"/>
    447         <UsageCount Value="24"/>
    448       </Unit41>
    449       <Unit42>
    450         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\graphics.pp"/>
    451         <UnitName Value="Graphics"/>
    452         <WindowIndex Value="0"/>
    453         <TopLine Value="632"/>
    454         <CursorPos X="14" Y="645"/>
    455         <UsageCount Value="2"/>
    456       </Unit42>
    457       <Unit43>
    458         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\canvas.inc"/>
    459         <WindowIndex Value="0"/>
    460         <TopLine Value="426"/>
    461         <CursorPos X="3" Y="417"/>
    462         <UsageCount Value="2"/>
    463       </Unit43>
    464       <Unit44>
     389        <UsageCount Value="10"/>
     390      </Unit33>
     391      <Unit34>
    465392        <Filename Value="..\..\UCDResource.pas"/>
    466393        <ComponentName Value="DataModule2"/>
    … …  
    470397        <TopLine Value="13"/>
    471398        <CursorPos X="40" Y="31"/>
    472         <UsageCount Value="21"/>
     399        <UsageCount Value="7"/>
     400      </Unit34>
     401      <Unit35>
     402        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\imglist.pp"/>
     403        <UnitName Value="ImgList"/>
     404        <WindowIndex Value="0"/>
     405        <TopLine Value="160"/>
     406        <CursorPos X="15" Y="188"/>
     407        <UsageCount Value="8"/>
     408      </Unit35>
     409      <Unit36>
     410        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\imglist.inc"/>
     411        <WindowIndex Value="0"/>
     412        <TopLine Value="53"/>
     413        <CursorPos X="1" Y="66"/>
     414        <UsageCount Value="8"/>
     415      </Unit36>
     416      <Unit37>
     417        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lcltype.pp"/>
     418        <UnitName Value="LCLType"/>
     419        <WindowIndex Value="0"/>
     420        <TopLine Value="140"/>
     421        <CursorPos X="3" Y="153"/>
     422        <UsageCount Value="13"/>
     423      </Unit37>
     424      <Unit38>
     425        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclproc.pas"/>
     426        <UnitName Value="LCLProc"/>
     427        <EditorIndex Value="11"/>
     428        <WindowIndex Value="0"/>
     429        <TopLine Value="1531"/>
     430        <CursorPos X="1" Y="1544"/>
     431        <UsageCount Value="91"/>
     432        <Loaded Value="True"/>
     433      </Unit38>
     434      <Unit39>
     435        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\dragmanager.inc"/>
     436        <EditorIndex Value="16"/>
     437        <WindowIndex Value="0"/>
     438        <TopLine Value="553"/>
     439        <CursorPos X="79" Y="568"/>
     440        <UsageCount Value="76"/>
     441        <Loaded Value="True"/>
     442      </Unit39>
     443      <Unit40>
     444        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclmessageglue.pas"/>
     445        <UnitName Value="LCLMessageGlue"/>
     446        <EditorIndex Value="19"/>
     447        <WindowIndex Value="0"/>
     448        <TopLine Value="101"/>
     449        <CursorPos X="1" Y="122"/>
     450        <UsageCount Value="76"/>
     451        <Loaded Value="True"/>
     452      </Unit40>
     453      <Unit41>
     454        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\interfaces\win32\win32proc.pp"/>
     455        <UnitName Value="win32proc"/>
     456        <EditorIndex Value="20"/>
     457        <WindowIndex Value="0"/>
     458        <TopLine Value="756"/>
     459        <CursorPos X="1" Y="771"/>
     460        <UsageCount Value="76"/>
     461        <Loaded Value="True"/>
     462      </Unit41>
     463      <Unit42>
     464        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\interfaces\win32\win32wscontrols.pp"/>
     465        <UnitName Value="Win32WSControls"/>
     466        <EditorIndex Value="21"/>
     467        <WindowIndex Value="0"/>
     468        <TopLine Value="474"/>
     469        <CursorPos X="1" Y="488"/>
     470        <UsageCount Value="76"/>
     471        <Loaded Value="True"/>
     472      </Unit42>
     473      <Unit43>
     474        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\pagecontrol.inc"/>
     475        <EditorIndex Value="1"/>
     476        <WindowIndex Value="0"/>
     477        <TopLine Value="112"/>
     478        <CursorPos X="23" Y="123"/>
     479        <UsageCount Value="76"/>
     480        <Loaded Value="True"/>
     481      </Unit43>
     482      <Unit44>
     483        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\customcontrol.inc"/>
     484        <EditorIndex Value="17"/>
     485        <WindowIndex Value="0"/>
     486        <TopLine Value="48"/>
     487        <CursorPos X="1" Y="61"/>
     488        <UsageCount Value="76"/>
     489        <Loaded Value="True"/>
    473490      </Unit44>
    474491      <Unit45>
    475         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\imglist.pp"/>
    476         <UnitName Value="ImgList"/>
    477         <WindowIndex Value="0"/>
    478         <TopLine Value="160"/>
    479         <CursorPos X="15" Y="188"/>
    480         <UsageCount Value="21"/>
     492        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\scrollingwincontrol.inc"/>
     493        <EditorIndex Value="18"/>
     494        <WindowIndex Value="0"/>
     495        <TopLine Value="233"/>
     496        <CursorPos X="1" Y="256"/>
     497        <UsageCount Value="76"/>
     498        <Loaded Value="True"/>
    481499      </Unit45>
    482500      <Unit46>
    483         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\imglist.inc"/>
    484         <WindowIndex Value="0"/>
    485         <TopLine Value="53"/>
    486         <CursorPos X="1" Y="66"/>
    487         <UsageCount Value="21"/>
     501        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\dragobject.inc"/>
     502        <EditorIndex Value="8"/>
     503        <WindowIndex Value="0"/>
     504        <TopLine Value="60"/>
     505        <CursorPos X="3" Y="62"/>
     506        <UsageCount Value="10"/>
     507        <Loaded Value="True"/>
    488508      </Unit46>
    489509      <Unit47>
    490         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\inc\objpash.inc"/>
    491         <WindowIndex Value="0"/>
    492         <TopLine Value="179"/>
    493         <CursorPos X="23" Y="192"/>
    494         <UsageCount Value="12"/>
     510        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\dragimagelist.inc"/>
     511        <EditorIndex Value="7"/>
     512        <WindowIndex Value="0"/>
     513        <TopLine Value="103"/>
     514        <CursorPos X="3" Y="109"/>
     515        <UsageCount Value="10"/>
     516        <Loaded Value="True"/>
    495517      </Unit47>
    496       <Unit48>
    497         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\customtimer.pas"/>
    498         <UnitName Value="CustomTimer"/>
    499         <WindowIndex Value="0"/>
    500         <TopLine Value="169"/>
    501         <CursorPos X="1" Y="182"/>
    502         <UsageCount Value="7"/>
    503       </Unit48>
    504       <Unit49>
    505         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\menus.pp"/>
    506         <UnitName Value="Menus"/>
    507         <WindowIndex Value="0"/>
    508         <TopLine Value="424"/>
    509         <CursorPos X="10" Y="437"/>
    510         <UsageCount Value="10"/>
    511       </Unit49>
    512       <Unit50>
    513         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\menuitem.inc"/>
    514         <WindowIndex Value="0"/>
    515         <TopLine Value="441"/>
    516         <CursorPos X="1" Y="454"/>
    517         <UsageCount Value="5"/>
    518       </Unit50>
    519       <Unit51>
    520         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lcltype.pp"/>
    521         <UnitName Value="LCLType"/>
    522         <WindowIndex Value="0"/>
    523         <TopLine Value="140"/>
    524         <CursorPos X="3" Y="153"/>
    525         <UsageCount Value="26"/>
    526       </Unit51>
    527       <Unit52>
    528         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclproc.pas"/>
    529         <UnitName Value="LCLProc"/>
    530         <EditorIndex Value="7"/>
    531         <WindowIndex Value="0"/>
    532         <TopLine Value="1531"/>
    533         <CursorPos X="1" Y="1544"/>
    534         <UsageCount Value="25"/>
    535         <Loaded Value="True"/>
    536       </Unit52>
    537       <Unit53>
    538         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\types.pp"/>
    539         <UnitName Value="types"/>
    540         <WindowIndex Value="0"/>
    541         <TopLine Value="319"/>
    542         <CursorPos X="16" Y="319"/>
    543         <UsageCount Value="12"/>
    544       </Unit53>
    545       <Unit54>
    546         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\win\wininc\struct.inc"/>
    547         <WindowIndex Value="0"/>
    548         <TopLine Value="213"/>
    549         <CursorPos X="6" Y="226"/>
    550         <UsageCount Value="12"/>
    551       </Unit54>
    552       <Unit55>
    553         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\dragmanager.inc"/>
    554         <EditorIndex Value="12"/>
    555         <WindowIndex Value="0"/>
    556         <TopLine Value="553"/>
    557         <CursorPos X="1" Y="566"/>
    558         <UsageCount Value="11"/>
    559         <Loaded Value="True"/>
    560       </Unit55>
    561       <Unit56>
    562         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\custompage.inc"/>
    563         <WindowIndex Value="0"/>
    564         <TopLine Value="104"/>
    565         <CursorPos X="3" Y="111"/>
    566         <UsageCount Value="10"/>
    567       </Unit56>
    568       <Unit57>
    569         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\tabsheet.inc"/>
    570         <WindowIndex Value="0"/>
    571         <TopLine Value="48"/>
    572         <CursorPos X="1" Y="70"/>
    573         <UsageCount Value="10"/>
    574       </Unit57>
    575       <Unit58>
    576         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclmessageglue.pas"/>
    577         <UnitName Value="LCLMessageGlue"/>
    578         <EditorIndex Value="15"/>
    579         <WindowIndex Value="0"/>
    580         <TopLine Value="101"/>
    581         <CursorPos X="1" Y="122"/>
    582         <UsageCount Value="11"/>
    583         <Loaded Value="True"/>
    584       </Unit58>
    585       <Unit59>
    586         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\interfaces\win32\win32proc.pp"/>
    587         <UnitName Value="win32proc"/>
    588         <EditorIndex Value="16"/>
    589         <WindowIndex Value="0"/>
    590         <TopLine Value="756"/>
    591         <CursorPos X="1" Y="771"/>
    592         <UsageCount Value="11"/>
    593         <Loaded Value="True"/>
    594       </Unit59>
    595       <Unit60>
    596         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\interfaces\win32\win32wscontrols.pp"/>
    597         <UnitName Value="Win32WSControls"/>
    598         <EditorIndex Value="17"/>
    599         <WindowIndex Value="0"/>
    600         <TopLine Value="474"/>
    601         <CursorPos X="1" Y="488"/>
    602         <UsageCount Value="11"/>
    603         <Loaded Value="True"/>
    604       </Unit60>
    605       <Unit61>
    606         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\classes\lists.inc"/>
    607         <WindowIndex Value="0"/>
    608         <TopLine Value="699"/>
    609         <CursorPos X="3" Y="701"/>
    610         <UsageCount Value="10"/>
    611       </Unit61>
    612       <Unit62>
    613         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\pagecontrol.inc"/>
    614         <EditorIndex Value="1"/>
    615         <WindowIndex Value="0"/>
    616         <TopLine Value="112"/>
    617         <CursorPos X="23" Y="123"/>
    618         <UsageCount Value="11"/>
    619         <Loaded Value="True"/>
    620       </Unit62>
    621       <Unit63>
    622         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\customcontrol.inc"/>
    623         <EditorIndex Value="13"/>
    624         <WindowIndex Value="0"/>
    625         <TopLine Value="48"/>
    626         <CursorPos X="1" Y="61"/>
    627         <UsageCount Value="11"/>
    628         <Loaded Value="True"/>
    629       </Unit63>
    630       <Unit64>
    631         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\scrollingwincontrol.inc"/>
    632         <EditorIndex Value="14"/>
    633         <WindowIndex Value="0"/>
    634         <TopLine Value="233"/>
    635         <CursorPos X="1" Y="256"/>
    636         <UsageCount Value="11"/>
    637         <Loaded Value="True"/>
    638       </Unit64>
    639518    </Units>
    640     <JumpHistory Count="29" HistoryIndex="28">
     519    <JumpHistory Count="30" HistoryIndex="29">
    641520      <Position1>
    642         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    643         <Caret Line="100" Column="1" TopLine="87"/>
     521        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     522        <Caret Line="286" Column="1" TopLine="271"/>
    644523      </Position1>
    645524      <Position2>
    646         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    647         <Caret Line="271" Column="1" TopLine="258"/>
     525        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     526        <Caret Line="289" Column="1" TopLine="271"/>
    648527      </Position2>
    649528      <Position3>
    650         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    651         <Caret Line="272" Column="74" TopLine="258"/>
     529        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     530        <Caret Line="290" Column="1" TopLine="277"/>
    652531      </Position3>
    653532      <Position4>
    654         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    655         <Caret Line="276" Column="1" TopLine="258"/>
     533        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     534        <Caret Line="291" Column="1" TopLine="277"/>
    656535      </Position4>
    657536      <Position5>
    658         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    659         <Caret Line="277" Column="1" TopLine="264"/>
     537        <Filename Value="UMainForm.pas"/>
     538        <Caret Line="102" Column="27" TopLine="90"/>
    660539      </Position5>
    661540      <Position6>
    662         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    663         <Caret Line="280" Column="1" TopLine="264"/>
     541        <Filename Value="..\..\UCDClient.pas"/>
     542        <Caret Line="90" Column="1" TopLine="81"/>
    664543      </Position6>
    665544      <Position7>
    666         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    667         <Caret Line="282" Column="1" TopLine="267"/>
     545        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\wincontrol.inc"/>
     546        <Caret Line="7775" Column="1" TopLine="7762"/>
    668547      </Position7>
    669548      <Position8>
    670         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    671         <Caret Line="292" Column="21" TopLine="276"/>
     549        <Filename Value="..\..\UCDManager.pas"/>
     550        <Caret Line="126" Column="20" TopLine="113"/>
    672551      </Position8>
    673552      <Position9>
    674         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    675         <Caret Line="276" Column="2" TopLine="273"/>
     553        <Filename Value="..\..\UCDManager.pas"/>
     554        <Caret Line="114" Column="44" TopLine="101"/>
    676555      </Position9>
    677556      <Position10>
    678         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclproc.pas"/>
    679         <Caret Line="1544" Column="1" TopLine="1531"/>
     557        <Filename Value="..\..\UCDManager.pas"/>
     558        <Caret Line="115" Column="18" TopLine="101"/>
    680559      </Position10>
    681560      <Position11>
    682         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    683         <Caret Line="348" Column="58" TopLine="339"/>
     561        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\control.inc"/>
     562        <Caret Line="230" Column="18" TopLine="209"/>
    684563      </Position11>
    685564      <Position12>
    686         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    687         <Caret Line="277" Column="1" TopLine="264"/>
     565        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\controls.pp"/>
     566        <Caret Line="153" Column="23" TopLine="142"/>
    688567      </Position12>
    689568      <Position13>
    690         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    691         <Caret Line="280" Column="1" TopLine="264"/>
     569        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\controls.pp"/>
     570        <Caret Line="512" Column="35" TopLine="503"/>
    692571      </Position13>
    693572      <Position14>
    694573        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    695         <Caret Line="291" Column="1" TopLine="278"/>
     574        <Caret Line="293" Column="1" TopLine="280"/>
    696575      </Position14>
    697576      <Position15>
    698577        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    699         <Caret Line="293" Column="1" TopLine="278"/>
     578        <Caret Line="294" Column="1" TopLine="280"/>
    700579      </Position15>
    701580      <Position16>
    702581        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    703         <Caret Line="291" Column="4" TopLine="278"/>
     582        <Caret Line="293" Column="1" TopLine="280"/>
    704583      </Position16>
    705584      <Position17>
    706585        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    707         <Caret Line="266" Column="8" TopLine="264"/>
     586        <Caret Line="294" Column="1" TopLine="280"/>
    708587      </Position17>
    709588      <Position18>
    710         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\control.inc"/>
    711         <Caret Line="2415" Column="16" TopLine="2415"/>
     589        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
     590        <Caret Line="291" Column="24" TopLine="269"/>
    712591      </Position18>
    713592      <Position19>
    714         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    715         <Caret Line="165" Column="48" TopLine="147"/>
     593        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
     594        <Caret Line="293" Column="1" TopLine="272"/>
    716595      </Position19>
    717596      <Position20>
    718         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    719         <Caret Line="19" Column="55" TopLine="12"/>
     597        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
     598        <Caret Line="294" Column="1" TopLine="273"/>
    720599      </Position20>
    721600      <Position21>
    722         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    723         <Caret Line="63" Column="20" TopLine="59"/>
     601        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
     602        <Caret Line="282" Column="1" TopLine="273"/>
    724603      </Position21>
    725604      <Position22>
    726         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    727         <Caret Line="294" Column="3" TopLine="301"/>
     605        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
     606        <Caret Line="283" Column="1" TopLine="273"/>
    728607      </Position22>
    729608      <Position23>
    730         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\dragmanager.inc"/>
    731         <Caret Line="566" Column="1" TopLine="553"/>
     609        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
     610        <Caret Line="284" Column="1" TopLine="273"/>
    732611      </Position23>
    733612      <Position24>
    734         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    735         <Caret Line="298" Column="24" TopLine="285"/>
     613        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
     614        <Caret Line="285" Column="1" TopLine="273"/>
    736615      </Position24>
    737616      <Position25>
    738         <Filename Value="..\..\UCDConjoinForm.pas"/>
    739         <Caret Line="50" Column="20" TopLine="47"/>
     617        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
     618        <Caret Line="293" Column="1" TopLine="273"/>
    740619      </Position25>
    741620      <Position26>
    742         <Filename Value="..\..\UCDConjoinForm.pas"/>
    743         <Caret Line="34" Column="31" TopLine="32"/>
     621        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
     622        <Caret Line="294" Column="1" TopLine="273"/>
    744623      </Position26>
    745624      <Position27>
    746         <Filename Value="..\..\UCDManager.pas"/>
    747         <Caret Line="135" Column="40" TopLine="122"/>
     625        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
     626        <Caret Line="285" Column="38" TopLine="273"/>
    748627      </Position27>
    749628      <Position28>
    750         <Filename Value="..\..\UCDManager.pas"/>
    751         <Caret Line="559" Column="11" TopLine="555"/>
     629        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
     630        <Caret Line="288" Column="1" TopLine="273"/>
    752631      </Position28>
    753632      <Position29>
    754         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    755         <Caret Line="339" Column="1" TopLine="329"/>
     633        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
     634        <Caret Line="291" Column="1" TopLine="273"/>
    756635      </Position29>
     636      <Position30>
     637        <Filename Value="..\..\UCDManager.pas"/>
     638        <Caret Line="472" Column="1" TopLine="467"/>
     639      </Position30>
    757640    </JumpHistory>
    758641  </ProjectOptions>

  • Docking/CoolDocking/Demo/IDE/UMainForm.lfm

    r209 r213  
    1818    Align = alClient
    1919    BevelOuter = bvNone
    20     Color = clWindow
    2120    ParentColor = False
    2221    TabOrder = 0

  • Docking/CoolDocking/Managers/UCDManagerRegions.pas

    r209 r213  
    290290  SplitterTop := 0;
    291291  VisibleControlsCount := DockSite.VisibleDockClientCount;
    292   DockSite.Visible := VisibleControlsCount > 0;
     292  if DockSite is TForm then
     293    DockSite.Visible := VisibleControlsCount > 0;
    293294  if VisibleControlsCount = 0 then VisibleControlsCount := 1;
    294295

  • Docking/CoolDocking/Managers/UCDManagerTabs.pas

    r209 r213  
    288288      Free;
    289289    end;
    290   end;
     290  end else UpdateClientSize;
    291291  inherited RemoveControl(Control);
    292   //if ClientCount > 0 then
    293   UpdateClientSize;
    294292end;
    295293
    … …  
    362360  with TCDManagerTabsItem(DockItems[I]) do begin
    363361    PageControl.Pages[I].Caption := Control.Caption;
    364     PageControl.Pages[I].ImageIndex := TabImageList.Count;
     362    PageControl.Pages[I].ImageIndex := I;
    365363    TabImageList.Replace(I, IconImage.Picture.Bitmap, nil);
    366364    Control.Parent := PageControl.Pages[I];
Note: See TracChangeset for help on using the changeset viewer.