Changeset 51 for DockManager/Lazarus


Ignore:
Timestamp:
Sep 20, 2010, 8:20:41 AM (14 years ago)
Author:
george
Message:
  • Opraveno: Aktualizace záložek při odebrání prvků.
  • Opraveno: Odkotvení oken.
Location:
DockManager/Lazarus
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • DockManager/Lazarus/Demo/Demo.lpi

    r50 r51  
    3535      </Item2>
    3636    </RequiredPackages>
    37     <Units Count="32">
     37    <Units Count="33">
    3838      <Unit0>
    3939        <Filename Value="Demo.lpr"/>
    4040        <IsPartOfProject Value="True"/>
    4141        <UnitName Value="Demo"/>
    42         <EditorIndex Value="3"/>
     42        <EditorIndex Value="6"/>
    4343        <WindowIndex Value="0"/>
    4444        <TopLine Value="1"/>
    … …  
    5656        <EditorIndex Value="0"/>
    5757        <WindowIndex Value="0"/>
    58         <TopLine Value="1"/>
    59         <CursorPos X="15" Y="21"/>
     58        <TopLine Value="2"/>
     59        <CursorPos X="53" Y="8"/>
    6060        <UsageCount Value="39"/>
    6161        <Loaded Value="True"/>
    … …  
    8989      <Unit5>
    9090        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    91         <WindowIndex Value="0"/>
    92         <TopLine Value="7637"/>
    93         <CursorPos X="1" Y="7644"/>
     91        <EditorIndex Value="4"/>
     92        <WindowIndex Value="0"/>
     93        <TopLine Value="6343"/>
     94        <CursorPos X="1" Y="6359"/>
    9495        <UsageCount Value="18"/>
     96        <Loaded Value="True"/>
    9597      </Unit5>
    9698      <Unit6>
    … …  
    127129        <Filename Value="E:\Programy\Lazarus\lcl\lclproc.pas"/>
    128130        <UnitName Value="LCLProc"/>
    129         <WindowIndex Value="0"/>
    130         <TopLine Value="180"/>
    131         <CursorPos X="1" Y="1"/>
    132         <UsageCount Value="9"/>
     131        <EditorIndex Value="3"/>
     132        <WindowIndex Value="0"/>
     133        <TopLine Value="1330"/>
     134        <CursorPos X="1" Y="1346"/>
     135        <UsageCount Value="10"/>
     136        <Loaded Value="True"/>
    133137      </Unit10>
    134138      <Unit11>
    … …  
    168172        <ResourceBaseClass Value="Form"/>
    169173        <UnitName Value="UDockForm"/>
    170         <EditorIndex Value="6"/>
     174        <EditorIndex Value="9"/>
    171175        <WindowIndex Value="0"/>
    172176        <TopLine Value="1"/>
    … …  
    196200        <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    197201        <UnitName Value="AnchorDocking"/>
    198         <EditorIndex Value="5"/>
     202        <EditorIndex Value="8"/>
    199203        <WindowIndex Value="0"/>
    200204        <TopLine Value="4756"/>
    201205        <CursorPos X="5" Y="4763"/>
    202         <UsageCount Value="18"/>
     206        <UsageCount Value="19"/>
    203207        <Loaded Value="True"/>
    204208        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    215219        <Filename Value="..\UCustomDockManager.pas"/>
    216220        <UnitName Value="UCustomDockManager"/>
    217         <IsVisibleTab Value="True"/>
    218221        <EditorIndex Value="1"/>
    219222        <WindowIndex Value="0"/>
    220         <TopLine Value="770"/>
    221         <CursorPos X="15" Y="791"/>
    222         <UsageCount Value="32"/>
     223        <TopLine Value="702"/>
     224        <CursorPos X="10" Y="719"/>
     225        <UsageCount Value="33"/>
    223226        <Loaded Value="True"/>
    224227        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    281284        <Filename Value="E:\Programy\Lazarus\lcl\themes.pas"/>
    282285        <UnitName Value="Themes"/>
     286        <IsVisibleTab Value="True"/>
    283287        <EditorIndex Value="2"/>
    284288        <WindowIndex Value="0"/>
    285289        <TopLine Value="550"/>
    286290        <CursorPos X="1" Y="556"/>
    287         <UsageCount Value="12"/>
     291        <UsageCount Value="13"/>
    288292        <Loaded Value="True"/>
    289293      </Unit28>
    … …  
    299303        <Filename Value="..\..\..\ExceptionLogger\UExceptionLogger.pas"/>
    300304        <UnitName Value="UExceptionLogger"/>
    301         <EditorIndex Value="4"/>
     305        <EditorIndex Value="7"/>
    302306        <WindowIndex Value="0"/>
    303307        <TopLine Value="49"/>
    304308        <CursorPos X="1" Y="56"/>
    305         <UsageCount Value="11"/>
     309        <UsageCount Value="12"/>
    306310        <Loaded Value="True"/>
    307311        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    315319        <UsageCount Value="10"/>
    316320      </Unit31>
     321      <Unit32>
     322        <Filename Value="E:\Programy\Lazarus\lcl\interfaces\win32\win32wsforms.pp"/>
     323        <UnitName Value="Win32WSForms"/>
     324        <EditorIndex Value="5"/>
     325        <WindowIndex Value="0"/>
     326        <TopLine Value="341"/>
     327        <CursorPos X="1" Y="354"/>
     328        <UsageCount Value="10"/>
     329        <Loaded Value="True"/>
     330      </Unit32>
    317331    </Units>
    318     <JumpHistory Count="30" HistoryIndex="29">
     332    <JumpHistory Count="28" HistoryIndex="27">
    319333      <Position1>
    320334        <Filename Value="..\UCustomDockManager.pas"/>
    321         <Caret Line="499" Column="66" TopLine="486"/>
     335        <Caret Line="273" Column="1" TopLine="267"/>
    322336      </Position1>
    323337      <Position2>
    324338        <Filename Value="..\UCustomDockManager.pas"/>
    325         <Caret Line="56" Column="65" TopLine="32"/>
     339        <Caret Line="274" Column="1" TopLine="267"/>
    326340      </Position2>
    327341      <Position3>
    328342        <Filename Value="..\UCustomDockManager.pas"/>
    329         <Caret Line="108" Column="77" TopLine="88"/>
     343        <Caret Line="275" Column="1" TopLine="267"/>
    330344      </Position3>
    331345      <Position4>
    332346        <Filename Value="..\UCustomDockManager.pas"/>
    333         <Caret Line="83" Column="44" TopLine="65"/>
     347        <Caret Line="272" Column="1" TopLine="267"/>
    334348      </Position4>
    335349      <Position5>
    336350        <Filename Value="..\UCustomDockManager.pas"/>
    337         <Caret Line="108" Column="20" TopLine="94"/>
     351        <Caret Line="273" Column="1" TopLine="267"/>
    338352      </Position5>
    339353      <Position6>
    340354        <Filename Value="..\UCustomDockManager.pas"/>
    341         <Caret Line="515" Column="11" TopLine="501"/>
     355        <Caret Line="274" Column="1" TopLine="267"/>
    342356      </Position6>
    343357      <Position7>
    344358        <Filename Value="..\UCustomDockManager.pas"/>
    345         <Caret Line="112" Column="58" TopLine="91"/>
     359        <Caret Line="275" Column="1" TopLine="267"/>
    346360      </Position7>
    347361      <Position8>
    348         <Filename Value="UMainForm.pas"/>
    349         <Caret Line="5" Column="20" TopLine="1"/>
     362        <Filename Value="..\UCustomDockManager.pas"/>
     363        <Caret Line="272" Column="1" TopLine="267"/>
    350364      </Position8>
    351365      <Position9>
    352366        <Filename Value="..\UCustomDockManager.pas"/>
    353         <Caret Line="175" Column="24" TopLine="165"/>
     367        <Caret Line="273" Column="1" TopLine="267"/>
    354368      </Position9>
    355369      <Position10>
    356370        <Filename Value="..\UCustomDockManager.pas"/>
    357         <Caret Line="229" Column="39" TopLine="216"/>
     371        <Caret Line="274" Column="1" TopLine="267"/>
    358372      </Position10>
    359373      <Position11>
    360374        <Filename Value="..\UCustomDockManager.pas"/>
    361         <Caret Line="37" Column="24" TopLine="31"/>
     375        <Caret Line="275" Column="1" TopLine="267"/>
    362376      </Position11>
    363377      <Position12>
    364378        <Filename Value="..\UCustomDockManager.pas"/>
    365         <Caret Line="48" Column="16" TopLine="42"/>
     379        <Caret Line="272" Column="1" TopLine="267"/>
    366380      </Position12>
    367381      <Position13>
    368382        <Filename Value="..\UCustomDockManager.pas"/>
    369         <Caret Line="801" Column="34" TopLine="780"/>
     383        <Caret Line="273" Column="1" TopLine="267"/>
    370384      </Position13>
    371385      <Position14>
    372386        <Filename Value="..\UCustomDockManager.pas"/>
    373         <Caret Line="686" Column="11" TopLine="673"/>
     387        <Caret Line="274" Column="1" TopLine="267"/>
    374388      </Position14>
    375389      <Position15>
    376390        <Filename Value="..\UCustomDockManager.pas"/>
    377         <Caret Line="781" Column="23" TopLine="768"/>
     391        <Caret Line="275" Column="1" TopLine="267"/>
    378392      </Position15>
    379393      <Position16>
    380394        <Filename Value="..\UCustomDockManager.pas"/>
    381         <Caret Line="808" Column="22" TopLine="786"/>
     395        <Caret Line="272" Column="1" TopLine="267"/>
    382396      </Position16>
    383397      <Position17>
    384398        <Filename Value="..\UCustomDockManager.pas"/>
    385         <Caret Line="810" Column="3" TopLine="792"/>
     399        <Caret Line="273" Column="1" TopLine="267"/>
    386400      </Position17>
    387401      <Position18>
    388402        <Filename Value="..\UCustomDockManager.pas"/>
    389         <Caret Line="67" Column="1" TopLine="54"/>
     403        <Caret Line="274" Column="1" TopLine="267"/>
    390404      </Position18>
    391405      <Position19>
    392406        <Filename Value="..\UCustomDockManager.pas"/>
    393         <Caret Line="689" Column="14" TopLine="675"/>
     407        <Caret Line="275" Column="1" TopLine="267"/>
    394408      </Position19>
    395409      <Position20>
    396410        <Filename Value="..\UCustomDockManager.pas"/>
    397         <Caret Line="801" Column="7" TopLine="795"/>
     411        <Caret Line="272" Column="1" TopLine="267"/>
    398412      </Position20>
    399413      <Position21>
    400414        <Filename Value="..\UCustomDockManager.pas"/>
    401         <Caret Line="807" Column="8" TopLine="794"/>
     415        <Caret Line="273" Column="1" TopLine="267"/>
    402416      </Position21>
    403417      <Position22>
    404418        <Filename Value="..\UCustomDockManager.pas"/>
    405         <Caret Line="635" Column="21" TopLine="628"/>
     419        <Caret Line="274" Column="1" TopLine="267"/>
    406420      </Position22>
    407421      <Position23>
    408422        <Filename Value="..\UCustomDockManager.pas"/>
    409         <Caret Line="810" Column="7" TopLine="799"/>
     423        <Caret Line="272" Column="1" TopLine="267"/>
    410424      </Position23>
    411425      <Position24>
    412         <Filename Value="..\UCustomDockManager.pas"/>
    413         <Caret Line="790" Column="12" TopLine="770"/>
     426        <Filename Value="E:\Programy\Lazarus\lcl\interfaces\win32\win32wsforms.pp"/>
     427        <Caret Line="354" Column="1" TopLine="341"/>
    414428      </Position24>
    415429      <Position25>
    416430        <Filename Value="..\UCustomDockManager.pas"/>
    417         <Caret Line="786" Column="1" TopLine="770"/>
     431        <Caret Line="5" Column="21" TopLine="1"/>
    418432      </Position25>
    419433      <Position26>
    420434        <Filename Value="..\UCustomDockManager.pas"/>
    421         <Caret Line="787" Column="1" TopLine="770"/>
     435        <Caret Line="6" Column="60" TopLine="1"/>
    422436      </Position26>
    423437      <Position27>
    424438        <Filename Value="..\UCustomDockManager.pas"/>
    425         <Caret Line="788" Column="1" TopLine="770"/>
     439        <Caret Line="66" Column="33" TopLine="53"/>
    426440      </Position27>
    427441      <Position28>
    428442        <Filename Value="..\UCustomDockManager.pas"/>
    429         <Caret Line="789" Column="1" TopLine="770"/>
     443        <Caret Line="719" Column="10" TopLine="702"/>
    430444      </Position28>
    431       <Position29>
    432         <Filename Value="..\UCustomDockManager.pas"/>
    433         <Caret Line="790" Column="1" TopLine="770"/>
    434       </Position29>
    435       <Position30>
    436         <Filename Value="..\UCustomDockManager.pas"/>
    437         <Caret Line="791" Column="1" TopLine="770"/>
    438       </Position30>
    439445    </JumpHistory>
    440446  </ProjectOptions>

  • DockManager/Lazarus/UCustomDockManager.pas

    r50 r51  
    463463    //if (FDockSite is TConjoinDockForm) and (FDockSite.DockClientCount = 1) then
    464464    //  FDockSite.Free;
     465    DockStyle := DockStyle;
    465466  end;
    466467end;
    … …  
    717718  end;
    718719  OnPaint := DockPanelPaint;
    719   OnMouseDown := DockPanelMouseDown;
     720  Header.Shape.OnMouseDown := DockPanelMouseDown;
    720721  OnResize := ResizeExecute;
    721722  BevelInner := bvNone;
Note: See TracChangeset for help on using the changeset viewer.