Ignore:
Timestamp:
Sep 16, 2010, 1:52:48 PM (14 years ago)
Author:
george
Message:
  • Upraveno: Přepracováno na uchování seznamu ukotvovacích klientů horizontálně nebo vertikálně.
Location:
DockManager/Lazarus/Demo
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • DockManager/Lazarus/Demo/Demo.lpi

    r41 r43  
    3232      </Item1>
    3333    </RequiredPackages>
    34     <Units Count="21">
     34    <Units Count="24">
    3535      <Unit0>
    3636        <Filename Value="Demo.lpr"/>
    3737        <IsPartOfProject Value="True"/>
    3838        <UnitName Value="Demo"/>
     39        <EditorIndex Value="4"/>
     40        <WindowIndex Value="0"/>
     41        <TopLine Value="1"/>
     42        <CursorPos X="1" Y="19"/>
    3943        <UsageCount Value="25"/>
     44        <Loaded Value="True"/>
    4045        <DefaultSyntaxHighlighter Value="Delphi"/>
    4146      </Unit0>
     
    4651        <ResourceBaseClass Value="Form"/>
    4752        <UnitName Value="UMainForm"/>
    48         <IsVisibleTab Value="True"/>
    4953        <EditorIndex Value="0"/>
    5054        <WindowIndex Value="0"/>
    51         <TopLine Value="37"/>
    52         <CursorPos X="3" Y="48"/>
     55        <TopLine Value="12"/>
     56        <CursorPos X="1" Y="25"/>
    5357        <UsageCount Value="25"/>
    5458        <Loaded Value="True"/>
     
    5963        <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
    6064        <UnitName Value="Controls"/>
    61         <EditorIndex Value="8"/>
    62         <WindowIndex Value="0"/>
    63         <TopLine Value="474"/>
    64         <CursorPos X="76" Y="487"/>
     65        <EditorIndex Value="12"/>
     66        <WindowIndex Value="0"/>
     67        <TopLine Value="1397"/>
     68        <CursorPos X="14" Y="1410"/>
    6569        <UsageCount Value="12"/>
    6670        <Loaded Value="True"/>
     
    7781      <Unit4>
    7882        <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    79         <EditorIndex Value="13"/>
    80         <WindowIndex Value="0"/>
    81         <TopLine Value="333"/>
    82         <CursorPos X="22" Y="340"/>
     83        <EditorIndex Value="18"/>
     84        <WindowIndex Value="0"/>
     85        <TopLine Value="4685"/>
     86        <CursorPos X="32" Y="4689"/>
    8387        <UsageCount Value="12"/>
    8488        <Loaded Value="True"/>
     
    8690      <Unit5>
    8791        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    88         <EditorIndex Value="12"/>
    89         <WindowIndex Value="0"/>
    90         <TopLine Value="6220"/>
    91         <CursorPos X="1" Y="6233"/>
     92        <EditorIndex Value="16"/>
     93        <WindowIndex Value="0"/>
     94        <TopLine Value="3785"/>
     95        <CursorPos X="1" Y="3798"/>
    9296        <UsageCount Value="12"/>
    9397        <Loaded Value="True"/>
     
    96100        <Filename Value="E:\Programy\Lazarus\lcl\lclclasses.pp"/>
    97101        <UnitName Value="LCLClasses"/>
    98         <EditorIndex Value="10"/>
     102        <EditorIndex Value="14"/>
    99103        <WindowIndex Value="0"/>
    100104        <TopLine Value="28"/>
     
    105109      <Unit7>
    106110        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\classesh.inc"/>
    107         <EditorIndex Value="6"/>
     111        <EditorIndex Value="10"/>
    108112        <WindowIndex Value="0"/>
    109113        <TopLine Value="107"/>
     
    114118      <Unit8>
    115119        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\inc\objpash.inc"/>
    116         <EditorIndex Value="11"/>
     120        <EditorIndex Value="15"/>
    117121        <WindowIndex Value="0"/>
    118122        <TopLine Value="206"/>
     
    154158        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\win\sysutils.pp"/>
    155159        <UnitName Value="sysutils"/>
    156         <EditorIndex Value="7"/>
     160        <EditorIndex Value="11"/>
    157161        <WindowIndex Value="0"/>
    158162        <TopLine Value="280"/>
     
    163167      <Unit14>
    164168        <Filename Value="E:\Programy\Lazarus\lcl\include\docktree.inc"/>
    165         <EditorIndex Value="9"/>
     169        <EditorIndex Value="13"/>
    166170        <WindowIndex Value="0"/>
    167171        <TopLine Value="174"/>
     
    177181        <ResourceBaseClass Value="Form"/>
    178182        <UnitName Value="UDockForm"/>
    179         <EditorIndex Value="5"/>
     183        <EditorIndex Value="9"/>
    180184        <WindowIndex Value="0"/>
    181185        <TopLine Value="1"/>
     
    189193        <Filename Value="E:\Programy\Lazarus\lcl\graphics.pp"/>
    190194        <UnitName Value="Graphics"/>
    191         <EditorIndex Value="4"/>
     195        <EditorIndex Value="8"/>
    192196        <WindowIndex Value="0"/>
    193197        <TopLine Value="675"/>
     
    209213        <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    210214        <UnitName Value="AnchorDocking"/>
    211         <EditorIndex Value="3"/>
    212         <WindowIndex Value="0"/>
    213         <TopLine Value="1"/>
    214         <CursorPos X="58" Y="2"/>
     215        <EditorIndex Value="7"/>
     216        <WindowIndex Value="0"/>
     217        <TopLine Value="4754"/>
     218        <CursorPos X="14" Y="4763"/>
    215219        <UsageCount Value="11"/>
    216220        <Loaded Value="True"/>
     
    222226        <EditorIndex Value="1"/>
    223227        <WindowIndex Value="0"/>
    224         <TopLine Value="356"/>
     228        <TopLine Value="362"/>
    225229        <CursorPos X="21" Y="369"/>
    226230        <UsageCount Value="11"/>
     
    231235        <IsPartOfProject Value="True"/>
    232236        <UnitName Value="UCustomDockManager"/>
     237        <IsVisibleTab Value="True"/>
     238        <EditorIndex Value="3"/>
     239        <WindowIndex Value="0"/>
     240        <TopLine Value="156"/>
     241        <CursorPos X="3" Y="174"/>
    233242        <UsageCount Value="20"/>
     243        <Loaded Value="True"/>
    234244        <DefaultSyntaxHighlighter Value="Delphi"/>
    235245      </Unit20>
     246      <Unit21>
     247        <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
     248        <UnitName Value="ExtCtrls"/>
     249        <EditorIndex Value="6"/>
     250        <WindowIndex Value="0"/>
     251        <TopLine Value="1183"/>
     252        <CursorPos X="9" Y="1183"/>
     253        <UsageCount Value="10"/>
     254        <Loaded Value="True"/>
     255      </Unit21>
     256      <Unit22>
     257        <Filename Value="E:\Programy\Lazarus\lcl\interfaces\win32\win32wsbuttons.pp"/>
     258        <UnitName Value="Win32WSButtons"/>
     259        <EditorIndex Value="5"/>
     260        <WindowIndex Value="0"/>
     261        <TopLine Value="479"/>
     262        <CursorPos X="30" Y="488"/>
     263        <UsageCount Value="10"/>
     264        <Loaded Value="True"/>
     265      </Unit22>
     266      <Unit23>
     267        <Filename Value="E:\Programy\Lazarus\lcl\include\dragmanager.inc"/>
     268        <EditorIndex Value="17"/>
     269        <WindowIndex Value="0"/>
     270        <TopLine Value="455"/>
     271        <CursorPos X="1" Y="468"/>
     272        <UsageCount Value="10"/>
     273        <Loaded Value="True"/>
     274      </Unit23>
    236275    </Units>
    237     <JumpHistory Count="15" HistoryIndex="14">
     276    <JumpHistory Count="30" HistoryIndex="29">
    238277      <Position1>
    239         <Filename Value="UMainForm.pas"/>
    240         <Caret Line="50" Column="22" TopLine="50"/>
     278        <Filename Value="..\UCustomDockManager.pas"/>
     279        <Caret Line="239" Column="1" TopLine="226"/>
    241280      </Position1>
    242281      <Position2>
    243         <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    244         <Caret Line="4506" Column="31" TopLine="4501"/>
     282        <Filename Value="..\UCustomDockManager.pas"/>
     283        <Caret Line="240" Column="1" TopLine="226"/>
    245284      </Position2>
    246285      <Position3>
    247         <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    248         <Caret Line="121" Column="20" TopLine="110"/>
     286        <Filename Value="..\UCustomDockManager.pas"/>
     287        <Caret Line="239" Column="1" TopLine="226"/>
    249288      </Position3>
    250289      <Position4>
    251         <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    252         <Caret Line="147" Column="54" TopLine="134"/>
     290        <Filename Value="..\UCustomDockManager.pas"/>
     291        <Caret Line="240" Column="1" TopLine="226"/>
    253292      </Position4>
    254293      <Position5>
    255         <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    256         <Caret Line="225" Column="70" TopLine="212"/>
     294        <Filename Value="..\UCustomDockManager.pas"/>
     295        <Caret Line="239" Column="1" TopLine="226"/>
    257296      </Position5>
    258297      <Position6>
    259         <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    260         <Caret Line="233" Column="31" TopLine="212"/>
     298        <Filename Value="..\UCustomDockManager.pas"/>
     299        <Caret Line="240" Column="1" TopLine="226"/>
    261300      </Position6>
    262301      <Position7>
    263         <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    264         <Caret Line="271" Column="10" TopLine="263"/>
     302        <Filename Value="..\UCustomDockManager.pas"/>
     303        <Caret Line="239" Column="1" TopLine="226"/>
    265304      </Position7>
    266305      <Position8>
    267         <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    268         <Caret Line="312" Column="39" TopLine="299"/>
     306        <Filename Value="..\UCustomDockManager.pas"/>
     307        <Caret Line="240" Column="1" TopLine="226"/>
    269308      </Position8>
    270309      <Position9>
    271         <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    272         <Caret Line="391" Column="36" TopLine="378"/>
     310        <Filename Value="..\UCustomDockManager.pas"/>
     311        <Caret Line="239" Column="1" TopLine="226"/>
    273312      </Position9>
    274313      <Position10>
    275         <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    276         <Caret Line="392" Column="12" TopLine="378"/>
     314        <Filename Value="..\UCustomDockManager.pas"/>
     315        <Caret Line="240" Column="1" TopLine="226"/>
    277316      </Position10>
    278317      <Position11>
    279         <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    280         <Caret Line="404" Column="16" TopLine="391"/>
     318        <Filename Value="..\UCustomDockManager.pas"/>
     319        <Caret Line="239" Column="1" TopLine="226"/>
    281320      </Position11>
    282321      <Position12>
    283         <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    284         <Caret Line="405" Column="16" TopLine="391"/>
     322        <Filename Value="..\UCustomDockManager.pas"/>
     323        <Caret Line="240" Column="1" TopLine="226"/>
    285324      </Position12>
    286325      <Position13>
    287         <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    288         <Caret Line="434" Column="32" TopLine="421"/>
     326        <Filename Value="..\UCustomDockManager.pas"/>
     327        <Caret Line="239" Column="1" TopLine="226"/>
    289328      </Position13>
    290329      <Position14>
    291         <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
    292         <Caret Line="1" Column="76" TopLine="1"/>
     330        <Filename Value="..\UCustomDockManager.pas"/>
     331        <Caret Line="240" Column="1" TopLine="226"/>
    293332      </Position14>
    294333      <Position15>
    295         <Filename Value="UMainForm.pas"/>
    296         <Caret Line="48" Column="3" TopLine="37"/>
     334        <Filename Value="..\UCustomDockManager.pas"/>
     335        <Caret Line="239" Column="1" TopLine="226"/>
    297336      </Position15>
     337      <Position16>
     338        <Filename Value="..\UCustomDockManager.pas"/>
     339        <Caret Line="240" Column="1" TopLine="226"/>
     340      </Position16>
     341      <Position17>
     342        <Filename Value="..\UCustomDockManager.pas"/>
     343        <Caret Line="239" Column="1" TopLine="226"/>
     344      </Position17>
     345      <Position18>
     346        <Filename Value="..\UCustomDockManager.pas"/>
     347        <Caret Line="244" Column="26" TopLine="226"/>
     348      </Position18>
     349      <Position19>
     350        <Filename Value="..\UCustomDockManager.pas"/>
     351        <Caret Line="239" Column="43" TopLine="226"/>
     352      </Position19>
     353      <Position20>
     354        <Filename Value="..\UCustomDockManager.pas"/>
     355        <Caret Line="240" Column="1" TopLine="226"/>
     356      </Position20>
     357      <Position21>
     358        <Filename Value="..\UCustomDockManager.pas"/>
     359        <Caret Line="241" Column="1" TopLine="226"/>
     360      </Position21>
     361      <Position22>
     362        <Filename Value="..\UCustomDockManager.pas"/>
     363        <Caret Line="240" Column="1" TopLine="226"/>
     364      </Position22>
     365      <Position23>
     366        <Filename Value="..\UCustomDockManager.pas"/>
     367        <Caret Line="241" Column="1" TopLine="226"/>
     368      </Position23>
     369      <Position24>
     370        <Filename Value="..\UCustomDockManager.pas"/>
     371        <Caret Line="240" Column="1" TopLine="226"/>
     372      </Position24>
     373      <Position25>
     374        <Filename Value="..\UCustomDockManager.pas"/>
     375        <Caret Line="241" Column="7" TopLine="226"/>
     376      </Position25>
     377      <Position26>
     378        <Filename Value="..\UCustomDockManager.pas"/>
     379        <Caret Line="240" Column="1" TopLine="226"/>
     380      </Position26>
     381      <Position27>
     382        <Filename Value="..\UCustomDockManager.pas"/>
     383        <Caret Line="242" Column="1" TopLine="226"/>
     384      </Position27>
     385      <Position28>
     386        <Filename Value="..\UCustomDockManager.pas"/>
     387        <Caret Line="243" Column="1" TopLine="226"/>
     388      </Position28>
     389      <Position29>
     390        <Filename Value="..\UCustomDockManager.pas"/>
     391        <Caret Line="244" Column="1" TopLine="226"/>
     392      </Position29>
     393      <Position30>
     394        <Filename Value="..\UCustomDockManager.pas"/>
     395        <Caret Line="246" Column="1" TopLine="226"/>
     396      </Position30>
    298397    </JumpHistory>
    299398  </ProjectOptions>
  • DockManager/Lazarus/Demo/UMainForm.pas

    r41 r43  
    4444
    4545procedure TMainForm.FormShow(Sender: TObject);
     46var
     47  DockForm1: TDockForm;
     48  DockForm2: TDockForm;
     49  DockForm3: TDockForm;
    4650begin
    4751  Button1Click(Self);
    48   LastDockForm.ManualDock(Panel1);
     52  DockForm1 := LastDockForm;
     53  DockForm1.ManualDock(Panel1);
     54
     55  Button1Click(Self);
     56  DockForm2 := LastDockForm;
     57  DockForm2.ManualDock(Panel1);
     58
     59  Button1Click(Self);
     60  DockForm3 := LastDockForm;
     61  DockForm3.ManualDock(DockForm2);
    4962end;
    5063
     
    7588  NewForm.DragKind := dkDock;
    7689  NewForm.DragMode := dmAutomatic;
     90  NewForm.DockSite := True;
     91  NewForm.UseDockManager := True;
    7792  Inc(FormIndex);
    7893  NewForm.Show;
Note: See TracChangeset for help on using the changeset viewer.