Changeset 204


Ignore:
Timestamp:
Mar 17, 2011, 11:11:36 AM (13 years ago)
Author:
george
Message:
  • Modified: Better tabs popup animation.
Location:
Docking/CoolDocking
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/Common/URectangle.pas

    r197 r204  
    3232    Right: Integer;
    3333    Bottom: Integer;
     34
     35    procedure Assign(Source: TRectangle);
    3436
    3537    property Width: Integer read GetWidth write SetWidth;
    … …  
    132134end;
    133135
     136procedure TRectangle.Assign(Source: TRectangle);
     137begin
     138  Left := Source.Left;
     139  Top := Source.Top;
     140  Right := Source.Right;
     141  Bottom := Source.Bottom;
     142end;
     143
    134144end.
    135145

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

    r199 r204  
    4747      </Item4>
    4848    </RequiredPackages>
    49     <Units Count="57">
     49    <Units Count="55">
    5050      <Unit0>
    5151        <Filename Value="IDE.lpr"/>
    … …  
    6363        <ResourceBaseClass Value="Form"/>
    6464        <UnitName Value="UMainForm"/>
    65         <EditorIndex Value="4"/>
    66         <WindowIndex Value="0"/>
    67         <TopLine Value="158"/>
    68         <CursorPos X="23" Y="166"/>
     65        <EditorIndex Value="8"/>
     66        <WindowIndex Value="0"/>
     67        <TopLine Value="157"/>
     68        <CursorPos X="27" Y="168"/>
    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         <EditorIndex Value="3"/>
    109         <WindowIndex Value="0"/>
    110         <TopLine Value="579"/>
    111         <CursorPos X="3" Y="584"/>
    112         <UsageCount Value="60"/>
    113         <Loaded Value="True"/>
     108        <WindowIndex Value="0"/>
     109        <TopLine Value="1330"/>
     110        <CursorPos X="1" Y="1347"/>
     111        <UsageCount Value="77"/>
    114112      </Unit5>
    115113      <Unit6>
    … …  
    129127        <TopLine Value="941"/>
    130128        <CursorPos X="1" Y="954"/>
    131         <UsageCount Value="36"/>
     129        <UsageCount Value="32"/>
    132130      </Unit7>
    133131      <Unit8>
    … …  
    214212        <TopLine Value="81"/>
    215213        <CursorPos X="52" Y="92"/>
    216         <UsageCount Value="156"/>
     214        <UsageCount Value="152"/>
    217215      </Unit15>
    218216      <Unit16>
    … …  
    222220        <TopLine Value="1"/>
    223221        <CursorPos X="22" Y="16"/>
    224         <UsageCount Value="66"/>
     222        <UsageCount Value="62"/>
    225223      </Unit16>
    226224      <Unit17>
    227225        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\classes\classesh.inc"/>
    228         <WindowIndex Value="0"/>
    229         <TopLine Value="19"/>
    230         <CursorPos X="4" Y="32"/>
    231         <UsageCount Value="16"/>
     226        <EditorIndex Value="3"/>
     227        <WindowIndex Value="0"/>
     228        <TopLine Value="20"/>
     229        <CursorPos X="19" Y="33"/>
     230        <UsageCount Value="13"/>
     231        <Loaded Value="True"/>
    232232      </Unit17>
    233233      <Unit18>
    234234        <Filename Value="..\..\Common\URectangle.pas"/>
    235235        <UnitName Value="URectangle"/>
    236         <WindowIndex Value="0"/>
    237         <TopLine Value="110"/>
    238         <CursorPos X="18" Y="126"/>
    239         <UsageCount Value="31"/>
     236        <EditorIndex Value="2"/>
     237        <WindowIndex Value="0"/>
     238        <TopLine Value="119"/>
     239        <CursorPos X="27" Y="141"/>
     240        <UsageCount Value="27"/>
     241        <Loaded Value="True"/>
    240242      </Unit18>
    241243      <Unit19>
    … …  
    245247        <TopLine Value="702"/>
    246248        <CursorPos X="22" Y="715"/>
    247         <UsageCount Value="12"/>
     249        <UsageCount Value="8"/>
    248250      </Unit19>
    249251      <Unit20>
    … …  
    252254        <TopLine Value="913"/>
    253255        <CursorPos X="1" Y="930"/>
    254         <UsageCount Value="4"/>
     256        <UsageCount Value="10"/>
    255257      </Unit20>
    256258      <Unit21>
    257259        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\controls.pp"/>
    258260        <UnitName Value="Controls"/>
    259         <EditorIndex Value="1"/>
    260         <WindowIndex Value="0"/>
    261         <TopLine Value="1416"/>
    262         <CursorPos X="14" Y="1429"/>
    263         <UsageCount Value="39"/>
     261        <EditorIndex Value="6"/>
     262        <WindowIndex Value="0"/>
     263        <TopLine Value="1228"/>
     264        <CursorPos X="15" Y="1283"/>
     265        <UsageCount Value="56"/>
    264266        <Loaded Value="True"/>
    265267      </Unit21>
    … …  
    267269        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\wincontrol.inc"/>
    268270        <WindowIndex Value="0"/>
    269         <TopLine Value="7779"/>
    270         <CursorPos X="1" Y="7812"/>
    271         <UsageCount Value="115"/>
     271        <TopLine Value="7785"/>
     272        <CursorPos X="1" Y="7810"/>
     273        <UsageCount Value="112"/>
    272274      </Unit22>
    273275      <Unit23>
    274         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\toolbutton.inc"/>
    275         <WindowIndex Value="0"/>
    276         <TopLine Value="751"/>
    277         <CursorPos X="1" Y="764"/>
    278         <UsageCount Value="2"/>
    279       </Unit23>
    280       <Unit24>
    281276        <Filename Value="..\..\UCDCustomize.pas"/>
    282277        <ComponentName Value="CDCustomizeForm"/>
    … …  
    287282        <TopLine Value="145"/>
    288283        <CursorPos X="34" Y="147"/>
    289         <UsageCount Value="140"/>
     284        <UsageCount Value="136"/>
     285      </Unit23>
     286      <Unit24>
     287        <Filename Value="..\..\UCDCommon.pas"/>
     288        <UnitName Value="UCDCommon"/>
     289        <EditorIndex Value="7"/>
     290        <WindowIndex Value="0"/>
     291        <TopLine Value="13"/>
     292        <CursorPos X="18" Y="26"/>
     293        <UsageCount Value="58"/>
     294        <Loaded Value="True"/>
    290295      </Unit24>
    291296      <Unit25>
    292         <Filename Value="..\..\UCDCommon.pas"/>
    293         <UnitName Value="UCDCommon"/>
    294         <WindowIndex Value="0"/>
    295         <TopLine Value="3"/>
    296         <CursorPos X="44" Y="11"/>
    297         <UsageCount Value="61"/>
    298       </Unit25>
    299       <Unit26>
    300297        <Filename Value="..\..\UCDPopupMenu.pas"/>
    301298        <UnitName Value="UCDPopupMenu"/>
    302         <EditorIndex Value="8"/>
     299        <EditorIndex Value="12"/>
    303300        <WindowIndex Value="0"/>
    304301        <TopLine Value="159"/>
    … …  
    306303        <UsageCount Value="141"/>
    307304        <Loaded Value="True"/>
     305      </Unit25>
     306      <Unit26>
     307        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclclasses.pp"/>
     308        <UnitName Value="LCLClasses"/>
     309        <WindowIndex Value="0"/>
     310        <TopLine Value="81"/>
     311        <CursorPos X="20" Y="94"/>
     312        <UsageCount Value="7"/>
    308313      </Unit26>
    309314      <Unit27>
    310         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclclasses.pp"/>
    311         <UnitName Value="LCLClasses"/>
    312         <WindowIndex Value="0"/>
    313         <TopLine Value="81"/>
    314         <CursorPos X="20" Y="94"/>
    315         <UsageCount Value="11"/>
     315        <Filename Value="..\..\UCDStyle.pas"/>
     316        <UnitName Value="UCDStyle"/>
     317        <WindowIndex Value="0"/>
     318        <TopLine Value="1"/>
     319        <CursorPos X="24" Y="16"/>
     320        <UsageCount Value="10"/>
    316321      </Unit27>
    317322      <Unit28>
    318         <Filename Value="..\..\UCDStyle.pas"/>
    319         <UnitName Value="UCDStyle"/>
     323        <Filename Value="..\..\UCDClientPanel.pas"/>
     324        <UnitName Value="UCDClientPanel"/>
    320325        <WindowIndex Value="0"/>
    321326        <TopLine Value="1"/>
    322         <CursorPos X="24" Y="16"/>
    323         <UsageCount Value="14"/>
     327        <CursorPos X="5" Y="11"/>
     328        <UsageCount Value="13"/>
    324329      </Unit28>
    325330      <Unit29>
    326         <Filename Value="..\..\UCDClientPanel.pas"/>
    327         <UnitName Value="UCDClientPanel"/>
    328         <WindowIndex Value="0"/>
    329         <TopLine Value="1"/>
    330         <CursorPos X="5" Y="11"/>
    331         <UsageCount Value="17"/>
     331        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
     332        <UnitName Value="UCDManagerTabs"/>
     333        <EditorIndex Value="11"/>
     334        <WindowIndex Value="0"/>
     335        <TopLine Value="169"/>
     336        <CursorPos X="27" Y="188"/>
     337        <UsageCount Value="130"/>
     338        <Loaded Value="True"/>
    332339      </Unit29>
    333340      <Unit30>
    334         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    335         <UnitName Value="UCDManagerTabs"/>
    336         <EditorIndex Value="7"/>
    337         <WindowIndex Value="0"/>
    338         <TopLine Value="284"/>
    339         <CursorPos X="1" Y="297"/>
    340         <UsageCount Value="130"/>
    341         <Loaded Value="True"/>
    342       </Unit30>
    343       <Unit31>
    344341        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    345342        <UnitName Value="UCDManagerRegions"/>
    346         <EditorIndex Value="6"/>
     343        <EditorIndex Value="10"/>
    347344        <WindowIndex Value="0"/>
    348345        <TopLine Value="61"/>
    … …  
    350347        <UsageCount Value="129"/>
    351348        <Loaded Value="True"/>
    352       </Unit31>
    353       <Unit32>
     349      </Unit30>
     350      <Unit31>
    354351        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    355352        <UnitName Value="UCDManagerTabsPopup"/>
    … …  
    357354        <EditorIndex Value="0"/>
    358355        <WindowIndex Value="0"/>
    359         <TopLine Value="80"/>
    360         <CursorPos X="9" Y="90"/>
     356        <TopLine Value="83"/>
     357        <CursorPos X="70" Y="101"/>
    361358        <UsageCount Value="120"/>
    362359        <Loaded Value="True"/>
     360      </Unit31>
     361      <Unit32>
     362        <Filename Value="..\..\ReadMe.txt"/>
     363        <WindowIndex Value="0"/>
     364        <TopLine Value="1"/>
     365        <CursorPos X="22" Y="16"/>
     366        <UsageCount Value="6"/>
     367        <DefaultSyntaxHighlighter Value="None"/>
    363368      </Unit32>
    364369      <Unit33>
    365         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\dragmanager.inc"/>
    366         <WindowIndex Value="0"/>
    367         <TopLine Value="762"/>
    368         <CursorPos X="1" Y="775"/>
    369         <UsageCount Value="3"/>
    370       </Unit33>
    371       <Unit34>
    372         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\dragobject.inc"/>
    373         <WindowIndex Value="0"/>
    374         <TopLine Value="148"/>
    375         <CursorPos X="32" Y="160"/>
    376         <UsageCount Value="3"/>
    377       </Unit34>
    378       <Unit35>
    379         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\lclintfh.inc"/>
    380         <WindowIndex Value="0"/>
    381         <TopLine Value="53"/>
    382         <CursorPos X="11" Y="66"/>
    383         <UsageCount Value="3"/>
    384       </Unit35>
    385       <Unit36>
    386         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\lclintf.inc"/>
    387         <WindowIndex Value="0"/>
    388         <TopLine Value="141"/>
    389         <CursorPos X="3" Y="143"/>
    390         <UsageCount Value="3"/>
    391       </Unit36>
    392       <Unit37>
    393         <Filename Value="..\..\ReadMe.txt"/>
    394         <WindowIndex Value="0"/>
    395         <TopLine Value="1"/>
    396         <CursorPos X="22" Y="16"/>
    397         <UsageCount Value="10"/>
    398         <DefaultSyntaxHighlighter Value="None"/>
    399       </Unit37>
    400       <Unit38>
    401370        <Filename Value="UComponentTree.pas"/>
    402371        <IsPartOfProject Value="True"/>
    … …  
    409378        <CursorPos X="61" Y="27"/>
    410379        <UsageCount Value="215"/>
    411       </Unit38>
    412       <Unit39>
     380      </Unit33>
     381      <Unit34>
    413382        <Filename Value="..\..\UCDManager.pas"/>
    414383        <UnitName Value="UCDManager"/>
    415         <EditorIndex Value="5"/>
     384        <EditorIndex Value="9"/>
    416385        <WindowIndex Value="0"/>
    417386        <TopLine Value="529"/>
    … …  
    419388        <UsageCount Value="105"/>
    420389        <Loaded Value="True"/>
    421       </Unit39>
    422       <Unit40>
     390      </Unit34>
     391      <Unit35>
    423392        <Filename Value="..\..\UCDConjoinForm.pas"/>
    424393        <UnitName Value="UCDConjoinForm"/>
    … …  
    426395        <TopLine Value="1"/>
    427396        <CursorPos X="31" Y="8"/>
    428         <UsageCount Value="103"/>
    429       </Unit40>
    430       <Unit41>
     397        <UsageCount Value="99"/>
     398      </Unit35>
     399      <Unit36>
    431400        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\extctrls.pp"/>
    432401        <UnitName Value="ExtCtrls"/>
    … …  
    434403        <TopLine Value="111"/>
    435404        <CursorPos X="3" Y="124"/>
    436         <UsageCount Value="100"/>
    437       </Unit41>
    438       <Unit42>
     405        <UsageCount Value="97"/>
     406      </Unit36>
     407      <Unit37>
    439408        <Filename Value="..\..\UCDMaster.pas"/>
    440409        <UnitName Value="UCDMaster"/>
    441         <EditorIndex Value="9"/>
     410        <EditorIndex Value="13"/>
    442411        <WindowIndex Value="0"/>
    443412        <TopLine Value="11"/>
    … …  
    445414        <UsageCount Value="101"/>
    446415        <Loaded Value="True"/>
    447       </Unit42>
    448       <Unit43>
     416      </Unit37>
     417      <Unit38>
    449418        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\comctrls.pp"/>
    450419        <UnitName Value="ComCtrls"/>
    … …  
    452421        <TopLine Value="255"/>
    453422        <CursorPos X="14" Y="304"/>
    454         <UsageCount Value="96"/>
    455       </Unit43>
    456       <Unit44>
     423        <UsageCount Value="92"/>
     424      </Unit38>
     425      <Unit39>
    457426        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\spinedit.inc"/>
    458427        <WindowIndex Value="0"/>
    459428        <TopLine Value="136"/>
    460429        <CursorPos X="3" Y="138"/>
    461         <UsageCount Value="6"/>
    462       </Unit44>
    463       <Unit45>
     430        <UsageCount Value="2"/>
     431      </Unit39>
     432      <Unit40>
    464433        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\spin.pp"/>
    465434        <UnitName Value="Spin"/>
    … …  
    467436        <TopLine Value="172"/>
    468437        <CursorPos X="17" Y="185"/>
    469         <UsageCount Value="7"/>
    470       </Unit45>
    471       <Unit46>
     438        <UsageCount Value="3"/>
     439      </Unit40>
     440      <Unit41>
    472441        <Filename Value="..\..\UCDWindowList.pas"/>
    473442        <ComponentName Value="CDWindowListForm"/>
    … …  
    478447        <TopLine Value="33"/>
    479448        <CursorPos X="1" Y="47"/>
    480         <UsageCount Value="29"/>
    481       </Unit46>
    482       <Unit47>
     449        <UsageCount Value="25"/>
     450      </Unit41>
     451      <Unit42>
    483452        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\graphics.pp"/>
    484453        <UnitName Value="Graphics"/>
    … …  
    486455        <TopLine Value="632"/>
    487456        <CursorPos X="14" Y="645"/>
    488         <UsageCount Value="7"/>
    489       </Unit47>
    490       <Unit48>
     457        <UsageCount Value="3"/>
     458      </Unit42>
     459      <Unit43>
    491460        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\canvas.inc"/>
    492461        <WindowIndex Value="0"/>
    493462        <TopLine Value="426"/>
    494463        <CursorPos X="3" Y="417"/>
    495         <UsageCount Value="7"/>
    496       </Unit48>
    497       <Unit49>
     464        <UsageCount Value="3"/>
     465      </Unit43>
     466      <Unit44>
    498467        <Filename Value="..\..\UCDResource.pas"/>
    499468        <ComponentName Value="DataModule2"/>
    … …  
    503472        <TopLine Value="13"/>
    504473        <CursorPos X="40" Y="31"/>
    505         <UsageCount Value="26"/>
    506       </Unit49>
    507       <Unit50>
     474        <UsageCount Value="22"/>
     475      </Unit44>
     476      <Unit45>
    508477        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\imglist.pp"/>
    509478        <UnitName Value="ImgList"/>
    … …  
    511480        <TopLine Value="165"/>
    512481        <CursorPos X="15" Y="178"/>
    513         <UsageCount Value="26"/>
    514       </Unit50>
    515       <Unit51>
     482        <UsageCount Value="22"/>
     483      </Unit45>
     484      <Unit46>
    516485        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\imglist.inc"/>
    517486        <WindowIndex Value="0"/>
    518487        <TopLine Value="554"/>
    519488        <CursorPos X="9" Y="564"/>
    520         <UsageCount Value="26"/>
    521       </Unit51>
    522       <Unit52>
     489        <UsageCount Value="22"/>
     490      </Unit46>
     491      <Unit47>
    523492        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\inc\objpash.inc"/>
     493        <EditorIndex Value="1"/>
    524494        <WindowIndex Value="0"/>
    525495        <TopLine Value="179"/>
    526496        <CursorPos X="23" Y="192"/>
    527497        <UsageCount Value="10"/>
     498        <Loaded Value="True"/>
     499      </Unit47>
     500      <Unit48>
     501        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\customtimer.pas"/>
     502        <UnitName Value="CustomTimer"/>
     503        <WindowIndex Value="0"/>
     504        <TopLine Value="169"/>
     505        <CursorPos X="1" Y="182"/>
     506        <UsageCount Value="8"/>
     507      </Unit48>
     508      <Unit49>
     509        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\menus.pp"/>
     510        <UnitName Value="Menus"/>
     511        <WindowIndex Value="0"/>
     512        <TopLine Value="153"/>
     513        <CursorPos X="15" Y="166"/>
     514        <UsageCount Value="6"/>
     515      </Unit49>
     516      <Unit50>
     517        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\menuitem.inc"/>
     518        <WindowIndex Value="0"/>
     519        <TopLine Value="441"/>
     520        <CursorPos X="1" Y="454"/>
     521        <UsageCount Value="6"/>
     522      </Unit50>
     523      <Unit51>
     524        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lcltype.pp"/>
     525        <UnitName Value="LCLType"/>
     526        <WindowIndex Value="0"/>
     527        <TopLine Value="70"/>
     528        <CursorPos X="3" Y="83"/>
     529        <UsageCount Value="27"/>
     530      </Unit51>
     531      <Unit52>
     532        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lclproc.pas"/>
     533        <UnitName Value="LCLProc"/>
     534        <WindowIndex Value="0"/>
     535        <TopLine Value="1429"/>
     536        <CursorPos X="1" Y="1442"/>
     537        <UsageCount Value="26"/>
    528538      </Unit52>
    529539      <Unit53>
    530         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\customtimer.pas"/>
    531         <UnitName Value="CustomTimer"/>
    532         <WindowIndex Value="0"/>
    533         <TopLine Value="169"/>
    534         <CursorPos X="1" Y="182"/>
    535         <UsageCount Value="12"/>
     540        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\objpas\types.pp"/>
     541        <UnitName Value="types"/>
     542        <EditorIndex Value="4"/>
     543        <WindowIndex Value="0"/>
     544        <TopLine Value="319"/>
     545        <CursorPos X="16" Y="319"/>
     546        <UsageCount Value="10"/>
     547        <Loaded Value="True"/>
    536548      </Unit53>
    537549      <Unit54>
    538         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\menus.pp"/>
    539         <UnitName Value="Menus"/>
    540         <WindowIndex Value="0"/>
    541         <TopLine Value="153"/>
    542         <CursorPos X="15" Y="166"/>
     550        <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\FPC\rtl\win\wininc\struct.inc"/>
     551        <EditorIndex Value="5"/>
     552        <WindowIndex Value="0"/>
     553        <TopLine Value="213"/>
     554        <CursorPos X="6" Y="226"/>
    543555        <UsageCount Value="10"/>
     556        <Loaded Value="True"/>
    544557      </Unit54>
    545       <Unit55>
    546         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\menuitem.inc"/>
    547         <WindowIndex Value="0"/>
    548         <TopLine Value="441"/>
    549         <CursorPos X="1" Y="454"/>
    550         <UsageCount Value="10"/>
    551       </Unit55>
    552       <Unit56>
    553         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\lcltype.pp"/>
    554         <UnitName Value="LCLType"/>
    555         <EditorIndex Value="2"/>
    556         <WindowIndex Value="0"/>
    557         <TopLine Value="70"/>
    558         <CursorPos X="3" Y="83"/>
    559         <UsageCount Value="11"/>
    560         <Loaded Value="True"/>
    561       </Unit56>
    562558    </Units>
    563     <JumpHistory Count="30" HistoryIndex="29">
     559    <JumpHistory Count="30" HistoryIndex="28">
    564560      <Position1>
    565561        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    566         <Caret Line="197" Column="13" TopLine="184"/>
     562        <Caret Line="6" Column="64" TopLine="1"/>
    567563      </Position1>
    568564      <Position2>
    569565        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    570         <Caret Line="227" Column="14" TopLine="207"/>
     566        <Caret Line="19" Column="18" TopLine="1"/>
    571567      </Position2>
    572568      <Position3>
    573569        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    574         <Caret Line="223" Column="68" TopLine="201"/>
     570        <Caret Line="87" Column="20" TopLine="69"/>
    575571      </Position3>
    576572      <Position4>
    577573        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    578         <Caret Line="211" Column="99" TopLine="198"/>
     574        <Caret Line="161" Column="34" TopLine="148"/>
    579575      </Position4>
    580576      <Position5>
    581         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\controls.pp"/>
    582         <Caret Line="1413" Column="54" TopLine="1400"/>
     577        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
     578        <Caret Line="5" Column="70" TopLine="1"/>
    583579      </Position5>
    584580      <Position6>
    585         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\controls.pp"/>
    586         <Caret Line="1430" Column="30" TopLine="1412"/>
     581        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
     582        <Caret Line="19" Column="18" TopLine="1"/>
    587583      </Position6>
    588584      <Position7>
    589         <Filename Value="E:\Projekty2\FreePascalManager\trunk\Instance\1\Lazarus\lcl\controls.pp"/>
    590         <Caret Line="1411" Column="45" TopLine="1403"/>
     585        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
     586        <Caret Line="87" Column="58" TopLine="66"/>
    591587      </Position7>
    592588      <Position8>
    593589        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    594         <Caret Line="227" Column="17" TopLine="210"/>
     590        <Caret Line="88" Column="73" TopLine="67"/>
    595591      </Position8>
    596592      <Position9>
    597593        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    598         <Caret Line="215" Column="101" TopLine="200"/>
     594        <Caret Line="91" Column="77" TopLine="70"/>
    599595      </Position9>
    600596      <Position10>
    601597        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    602         <Caret Line="221" Column="31" TopLine="205"/>
     598        <Caret Line="92" Column="52" TopLine="71"/>
    603599      </Position10>
    604600      <Position11>
    605601        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    606         <Caret Line="220" Column="44" TopLine="205"/>
     602        <Caret Line="95" Column="58" TopLine="74"/>
    607603      </Position11>
    608604      <Position12>
    609605        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    610         <Caret Line="224" Column="40" TopLine="205"/>
     606        <Caret Line="96" Column="51" TopLine="75"/>
    611607      </Position12>
    612608      <Position13>
    613609        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    614         <Caret Line="229" Column="17" TopLine="211"/>
     610        <Caret Line="97" Column="22" TopLine="76"/>
    615611      </Position13>
    616612      <Position14>
    617613        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    618         <Caret Line="238" Column="1" TopLine="202"/>
     614        <Caret Line="100" Column="81" TopLine="79"/>
    619615      </Position14>
    620616      <Position15>
    621617        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    622         <Caret Line="229" Column="15" TopLine="208"/>
     618        <Caret Line="101" Column="84" TopLine="80"/>
    623619      </Position15>
    624620      <Position16>
    625621        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    626         <Caret Line="309" Column="1" TopLine="301"/>
     622        <Caret Line="128" Column="15" TopLine="107"/>
    627623      </Position16>
    628624      <Position17>
    629625        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    630         <Caret Line="307" Column="24" TopLine="301"/>
     626        <Caret Line="19" Column="27" TopLine="6"/>
    631627      </Position17>
    632628      <Position18>
    633         <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    634         <Caret Line="50" Column="36" TopLine="37"/>
     629        <Filename Value="..\..\Common\URectangle.pas"/>
     630        <Caret Line="35" Column="42" TopLine="25"/>
    635631      </Position18>
    636632      <Position19>
    637         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    638         <Caret Line="40" Column="23" TopLine="35"/>
     633        <Filename Value="..\..\Common\URectangle.pas"/>
     634        <Caret Line="139" Column="5" TopLine="117"/>
    639635      </Position19>
    640636      <Position20>
    641         <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    642         <Caret Line="57" Column="25" TopLine="46"/>
     637        <Filename Value="..\..\Common\URectangle.pas"/>
     638        <Caret Line="31" Column="5" TopLine="18"/>
    643639      </Position20>
    644640      <Position21>
    645         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    646         <Caret Line="297" Column="3" TopLine="295"/>
     641        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
     642        <Caret Line="19" Column="27" TopLine="6"/>
    647643      </Position21>
    648644      <Position22>
    649645        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    650         <Caret Line="309" Column="1" TopLine="296"/>
     646        <Caret Line="87" Column="58" TopLine="66"/>
    651647      </Position22>
    652648      <Position23>
    653         <Filename Value="..\..\UCDManager.pas"/>
    654         <Caret Line="542" Column="1" TopLine="529"/>
     649        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
     650        <Caret Line="88" Column="73" TopLine="67"/>
    655651      </Position23>
    656652      <Position24>
    657         <Filename Value="..\..\UCDManager.pas"/>
    658         <Caret Line="543" Column="1" TopLine="529"/>
     653        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
     654        <Caret Line="106" Column="20" TopLine="85"/>
    659655      </Position24>
    660656      <Position25>
    661657        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    662         <Caret Line="309" Column="15" TopLine="296"/>
     658        <Caret Line="128" Column="35" TopLine="107"/>
    663659      </Position25>
    664660      <Position26>
    665661        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    666         <Caret Line="57" Column="49" TopLine="44"/>
     662        <Caret Line="141" Column="35" TopLine="120"/>
    667663      </Position26>
    668664      <Position27>
    669665        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    670         <Caret Line="309" Column="1" TopLine="296"/>
     666        <Caret Line="162" Column="16" TopLine="141"/>
    671667      </Position27>
    672668      <Position28>
    673         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    674         <Caret Line="297" Column="1" TopLine="284"/>
     669        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
     670        <Caret Line="175" Column="16" TopLine="154"/>
    675671      </Position28>
    676672      <Position29>
    677673        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    678         <Caret Line="227" Column="26" TopLine="206"/>
     674        <Caret Line="100" Column="44" TopLine="83"/>
    679675      </Position29>
    680676      <Position30>
    681677        <Filename Value="..\..\Managers\UCDManagerTabsPopup.pas"/>
    682         <Caret Line="140" Column="12" TopLine="130"/>
     678        <Caret Line="258" Column="1" TopLine="245"/>
    683679      </Position30>
    684680    </JumpHistory>

  • Docking/CoolDocking/Managers/UCDManagerTabsPopup.pas

    r199 r204  
    77uses
    88  Classes, Controls, SysUtils, ComCtrls, ExtCtrls, UCDCommon, UCDManager,
    9   UCDManagerTabs, Forms;
     9  UCDManagerTabs, Forms, URectangle;
    1010
    1111type
    … …  
    1717    FStepCount: Integer;
    1818    FTabPosition: TTabPosition;
    19     StartBounds: TRect;
     19    ControlBounds: TRectangle;
     20    HideBounds: TRectangle;
     21    ShowBounds: TRectangle;
    2022    procedure SetDuration(const AValue: Real);
    2123    procedure SetStepCount(const AValue: Integer);
    … …  
    2931    Control: TControl;
    3032    ControlVisible: Boolean;
     33    DoShow: Boolean;
    3134    procedure Hide;
    3235    procedure Show;
    … …  
    8184begin
    8285  case TabPosition of
     86    tpTop: begin
     87      Control.SetBounds(ControlBounds.Left, ControlBounds.Top,
     88        ControlBounds.Width, Round(ControlBounds.Height * Position));
     89    end;
     90    tpLeft: begin
     91      Control.SetBounds(ControlBounds.Left, ControlBounds.Top,
     92        Round(ControlBounds.Width * Position), ControlBounds.Height);
     93    end;
     94    tpRight: begin
     95      Control.SetBounds(ControlBounds.Right -
     96        Round(ControlBounds.Width * Position), ControlBounds.Top,
     97        Round(ControlBounds.Width * Position), ControlBounds.Height);
     98    end;
    8399    tpBottom: begin
    84       Control.Height := Round((StartBounds.Bottom - StartBounds.Top) * Position);
    85       Control.Top := StartBounds.Bottom - Control.Height;
    86     end;
    87     tpTop: begin
    88       Control.Height := Round((StartBounds.Bottom - StartBounds.Top) * Position);
    89     end;
    90     tpLeft: begin
    91       Control.Width := Round((StartBounds.Right - StartBounds.Left) * Position);
    92     end;
    93     tpRight: begin
    94       Control.Width := Round((StartBounds.Right - StartBounds.Left) * Position);
    95       Control.Left := StartBounds.Right - Control.Width;
     100      Control.SetBounds(ControlBounds.Left,
     101        ControlBounds.Bottom - Round(ControlBounds.Height * Position),
     102        ControlBounds.Width, Round(ControlBounds.Height * Position));
    96103    end;
    97104  end;
    … …  
    119126procedure TCDAutoHide.Hide;
    120127begin
    121   StartBounds := Control.BoundsRect;
     128  HideBounds.AsTRect := Control.BoundsRect;
     129  ControlBounds.Assign(HideBounds);
    122130  Control.Show;
    123131  Control.BringToFront;
     132  Application.ProcessMessages;
    124133  Direction := -1;
    125134  Position := 1;
    … …  
    130139procedure TCDAutoHide.Show;
    131140begin
    132   StartBounds := Control.BoundsRect;
    133   //StartBounds := Bounds(0, 0, Control.UndockWidth, Control.UndockHeight);
    134   Control.Show;
    135   Control.BringToFront;
    136   Control.Align := alClient;
    137   Direction := 1;
    138   Position := 0;
    139   Timer.Enabled := True;
    140   UpdateBounds;
     141  ShowBounds.AsTRect := Control.BoundsRect;
     142  ControlBounds.Assign(HideBounds);
     143  if Position > 0 then begin
     144    DoShow := True;
     145    Hide;
     146  end else begin
     147    //StartBounds := Bounds(0, 0, Control.UndockWidth, Control.UndockHeight);
     148    Control.Show;
     149    Control.BringToFront;
     150    //Control.Align := alClient;
     151    Direction := 1;
     152    Position := 0;
     153    Timer.Enabled := True;
     154    UpdateBounds;
     155  end;
    141156end;
    142157
    … …  
    144159begin
    145160  inherited;
     161  ShowBounds := TRectangle.Create;
     162  HideBounds := TRectangle.Create;
     163  ControlBounds := TRectangle.Create;
    146164  Timer := TTimer.Create(nil);
    147165  Timer.Enabled := False;
    … …  
    149167  StepCount := 10;
    150168  Duration := 0.05;
     169  ShowBounds := TRectangle.Create;
    151170end;
    152171
    153172destructor TCDAutoHide.Destroy;
    154173begin
     174  ShowBounds.Free;
     175  HideBounds.Free;
     176  ControlBounds.Free;
    155177  Timer.Free;
    156178  inherited Destroy;
    … …  
    165187      Timer.Enabled := False;
    166188      ControlVisible := True;
     189      DoShow := False;
     190      HideBounds := ShowBounds;
    167191    end;
    168192  end else
    … …  
    171195    if Position < 0 then begin
    172196      Position := 0;
    173       Timer.Enabled := False;
    174       ControlVisible := False;
     197      if DoShow then begin
     198        Direction := 1;
     199        ControlBounds.Assign(ShowBounds);
     200      end else begin
     201        Timer.Enabled := False;
     202        ControlVisible := False;
     203      end;
    175204    end;
    176205  end;
    … …  
    194223  Pos: TPoint;
    195224  C: TControl;
     225  TopParent: TWinControl;
    196226begin
    197227  inherited TabControlChange(Sender);
    198228  MouseDownSkip := True;
    199   if PopupForm.ControlCount > 0 then
    200     PopupForm.Controls[0].Parent := nil;
    201   AutoHide.Hide;
    202   while AutoHide.Position > 0 do begin
    203     Application.ProcessMessages;
    204     Sleep(1);
    205   end;
     229
    206230  if PageControl.TabIndex >= 0 then begin
    207231    C := TCDManagerTabsPopupItem(DockItems[PageControl.TabIndex]).Control;
     232    C.Align := alClient;
    208233    C.Parent := PopupForm;
     234    Pos := Point(PageControl.Left, PageControl.Top);
     235
     236    TopParent := DockSite;
     237    while Assigned(TopParent.Parent) do begin
     238      Pos.X := Pos.X + TopParent.Left;;
     239      Pos.Y := Pos.Y + TopParent.Top;
     240      TopParent := TopParent.Parent;
     241    end;
     242    PopupForm.Parent := TopParent;
    209243    //AutoHide.Control.Align := alCustom;
    210     Pos := Point(PageControl.Left, PageControl.Top);
    211     Pos := DockSite.ClientToScreen(Pos);
     244    //Pos := DockSite.ClientToScreen(Pos);
     245    C.TBDockHeight := 100;
     246    C.LRDockWidth := 100;
    212247    with AutoHide.Control do
    213248    case AutoHide.TabPosition of
    … …  
    243278  PopupForm.DockManager := TCDManagerRegions.Create(PopupForm);
    244279  PopupForm.Visible := True;
    245   //PopupForm.Parent := ADockSite;
    246280  PopupForm.BorderStyle := bsNone;
    247281  AutoHide := TCDAutoHide.Create;
Note: See TracChangeset for help on using the changeset viewer.