Ignore:
Timestamp:
Sep 17, 2010, 4:16:15 PM (14 years ago)
Author:
george
Message:
  • Přidáno: Částečná podpora pro volitelné umístění záložek.
  • Přidáno: Částečná podpora pro vysouvatelná okna v záložkách.
Location:
DockManager/Lazarus/Demo
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • DockManager/Lazarus/Demo/Demo.lpi

    r48 r49  
    3535      </Item2>
    3636    </RequiredPackages>
    37     <Units Count="31">
     37    <Units Count="32">
    3838      <Unit0>
    3939        <Filename Value="Demo.lpr"/>
    4040        <IsPartOfProject Value="True"/>
    4141        <UnitName Value="Demo"/>
    42         <EditorIndex Value="4"/>
     42        <EditorIndex Value="5"/>
    4343        <WindowIndex Value="0"/>
    4444        <TopLine Value="1"/>
    4545        <CursorPos X="7" Y="3"/>
    46         <UsageCount Value="37"/>
     46        <UsageCount Value="38"/>
    4747        <Loaded Value="True"/>
    4848        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    5757        <WindowIndex Value="0"/>
    5858        <TopLine Value="1"/>
    59         <CursorPos X="20" Y="17"/>
    60         <UsageCount Value="37"/>
     59        <CursorPos X="20" Y="5"/>
     60        <UsageCount Value="38"/>
    6161        <Loaded Value="True"/>
    6262        <LoadedDesigner Value="True"/>
    … …  
    6666        <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
    6767        <UnitName Value="Controls"/>
    68         <EditorIndex Value="9"/>
     68        <EditorIndex Value="10"/>
    6969        <WindowIndex Value="0"/>
    7070        <TopLine Value="3840"/>
    7171        <CursorPos X="1" Y="3853"/>
    72         <UsageCount Value="18"/>
     72        <UsageCount Value="19"/>
    7373        <Loaded Value="True"/>
    7474      </Unit2>
    … …  
    8484      <Unit4>
    8585        <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    86         <EditorIndex Value="12"/>
     86        <EditorIndex Value="13"/>
    8787        <WindowIndex Value="0"/>
    8888        <TopLine Value="1035"/>
    8989        <CursorPos X="1" Y="1048"/>
    90         <UsageCount Value="17"/>
     90        <UsageCount Value="18"/>
    9191        <Loaded Value="True"/>
    9292      </Unit4>
    9393      <Unit5>
    9494        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    95         <EditorIndex Value="10"/>
     95        <EditorIndex Value="11"/>
    9696        <WindowIndex Value="0"/>
    9797        <TopLine Value="7631"/>
    9898        <CursorPos X="1" Y="7644"/>
    99         <UsageCount Value="17"/>
     99        <UsageCount Value="18"/>
    100100        <Loaded Value="True"/>
    101101      </Unit5>
    … …  
    174174        <ResourceBaseClass Value="Form"/>
    175175        <UnitName Value="UDockForm"/>
    176         <EditorIndex Value="14"/>
     176        <EditorIndex Value="15"/>
    177177        <WindowIndex Value="0"/>
    178178        <TopLine Value="1"/>
    179179        <CursorPos X="47" Y="8"/>
    180         <UsageCount Value="36"/>
     180        <UsageCount Value="37"/>
    181181        <Loaded Value="True"/>
    182182        <LoadedDesigner Value="True"/>
    … …  
    202202        <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    203203        <UnitName Value="AnchorDocking"/>
    204         <EditorIndex Value="13"/>
     204        <EditorIndex Value="14"/>
    205205        <WindowIndex Value="0"/>
    206206        <TopLine Value="4754"/>
    207207        <CursorPos X="5" Y="4763"/>
    208         <UsageCount Value="17"/>
     208        <UsageCount Value="18"/>
    209209        <Loaded Value="True"/>
    210210        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    224224        <EditorIndex Value="1"/>
    225225        <WindowIndex Value="0"/>
    226         <TopLine Value="1"/>
    227         <CursorPos X="39" Y="19"/>
    228         <UsageCount Value="31"/>
     226        <TopLine Value="216"/>
     227        <CursorPos X="15" Y="218"/>
     228        <UsageCount Value="32"/>
    229229        <Loaded Value="True"/>
    230230        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    233233        <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
    234234        <UnitName Value="ExtCtrls"/>
    235         <EditorIndex Value="2"/>
     235        <EditorIndex Value="3"/>
    236236        <WindowIndex Value="0"/>
    237237        <TopLine Value="1183"/>
    238238        <CursorPos X="24" Y="1199"/>
    239         <UsageCount Value="10"/>
     239        <UsageCount Value="11"/>
    240240        <Loaded Value="True"/>
    241241      </Unit21>
    … …  
    250250      <Unit23>
    251251        <Filename Value="E:\Programy\Lazarus\lcl\include\dragmanager.inc"/>
    252         <EditorIndex Value="7"/>
     252        <EditorIndex Value="8"/>
    253253        <WindowIndex Value="0"/>
    254254        <TopLine Value="553"/>
    255255        <CursorPos X="18" Y="574"/>
    256         <UsageCount Value="13"/>
     256        <UsageCount Value="14"/>
    257257        <Loaded Value="True"/>
    258258      </Unit23>
    … …  
    267267        <Filename Value="E:\Programy\Lazarus\lcl\widgetset\wscontrols.pp"/>
    268268        <UnitName Value="WSControls"/>
    269         <EditorIndex Value="11"/>
     269        <EditorIndex Value="12"/>
    270270        <WindowIndex Value="0"/>
    271271        <TopLine Value="267"/>
    272272        <CursorPos X="1" Y="269"/>
    273         <UsageCount Value="15"/>
     273        <UsageCount Value="16"/>
    274274        <Loaded Value="True"/>
    275275      </Unit25>
    … …  
    277277        <Filename Value="E:\Programy\Lazarus\lcl\comctrls.pp"/>
    278278        <UnitName Value="ComCtrls"/>
    279         <EditorIndex Value="3"/>
     279        <EditorIndex Value="4"/>
    280280        <WindowIndex Value="0"/>
    281281        <TopLine Value="545"/>
    282282        <CursorPos X="3" Y="558"/>
    283         <UsageCount Value="15"/>
     283        <UsageCount Value="16"/>
    284284        <Loaded Value="True"/>
    285285      </Unit26>
    … …  
    287287        <Filename Value="E:\Programy\Lazarus\lcl\forms.pp"/>
    288288        <UnitName Value="Forms"/>
    289         <EditorIndex Value="8"/>
     289        <EditorIndex Value="9"/>
    290290        <WindowIndex Value="0"/>
    291291        <TopLine Value="687"/>
    292292        <CursorPos X="14" Y="700"/>
    293         <UsageCount Value="14"/>
     293        <UsageCount Value="15"/>
    294294        <Loaded Value="True"/>
    295295      </Unit27>
    … …  
    297297        <Filename Value="E:\Programy\Lazarus\lcl\themes.pas"/>
    298298        <UnitName Value="Themes"/>
    299         <EditorIndex Value="5"/>
     299        <EditorIndex Value="6"/>
    300300        <WindowIndex Value="0"/>
    301301        <TopLine Value="550"/>
    302         <CursorPos X="13" Y="556"/>
    303         <UsageCount Value="11"/>
     302        <CursorPos X="31" Y="556"/>
     303        <UsageCount Value="12"/>
    304304        <Loaded Value="True"/>
    305305      </Unit28>
    … …  
    315315        <Filename Value="..\..\..\ExceptionLogger\UExceptionLogger.pas"/>
    316316        <UnitName Value="UExceptionLogger"/>
    317         <EditorIndex Value="6"/>
     317        <EditorIndex Value="7"/>
    318318        <WindowIndex Value="0"/>
    319319        <TopLine Value="34"/>
    320320        <CursorPos X="1" Y="56"/>
     321        <UsageCount Value="11"/>
     322        <Loaded Value="True"/>
     323        <DefaultSyntaxHighlighter Value="Delphi"/>
     324      </Unit30>
     325      <Unit31>
     326        <Filename Value="E:\Programy\Lazarus\lcl\customtimer.pas"/>
     327        <UnitName Value="CustomTimer"/>
     328        <EditorIndex Value="2"/>
     329        <WindowIndex Value="0"/>
     330        <TopLine Value="68"/>
     331        <CursorPos X="3" Y="77"/>
    321332        <UsageCount Value="10"/>
    322333        <Loaded Value="True"/>
    323         <DefaultSyntaxHighlighter Value="Delphi"/>
    324       </Unit30>
     334      </Unit31>
    325335    </Units>
    326     <JumpHistory Count="30" HistoryIndex="29">
     336    <JumpHistory Count="30" HistoryIndex="28">
    327337      <Position1>
    328338        <Filename Value="..\UCustomDockManager.pas"/>
    329         <Caret Line="360" Column="1" TopLine="354"/>
     339        <Caret Line="242" Column="20" TopLine="224"/>
    330340      </Position1>
    331341      <Position2>
    332         <Filename Value="..\UCustomDockManager.pas"/>
    333         <Caret Line="361" Column="1" TopLine="354"/>
     342        <Filename Value="UMainForm.pas"/>
     343        <Caret Line="61" Column="26" TopLine="47"/>
    334344      </Position2>
    335345      <Position3>
    336         <Filename Value="..\UCustomDockManager.pas"/>
    337         <Caret Line="362" Column="1" TopLine="354"/>
     346        <Filename Value="UMainForm.pas"/>
     347        <Caret Line="17" Column="18" TopLine="1"/>
    338348      </Position3>
    339349      <Position4>
    340         <Filename Value="..\UCustomDockManager.pas"/>
    341         <Caret Line="363" Column="1" TopLine="354"/>
     350        <Filename Value="UMainForm.pas"/>
     351        <Caret Line="18" Column="23" TopLine="1"/>
    342352      </Position4>
    343353      <Position5>
    344         <Filename Value="..\UCustomDockManager.pas"/>
    345         <Caret Line="369" Column="1" TopLine="354"/>
     354        <Filename Value="UMainForm.pas"/>
     355        <Caret Line="17" Column="20" TopLine="1"/>
    346356      </Position5>
    347357      <Position6>
    348358        <Filename Value="..\UCustomDockManager.pas"/>
    349         <Caret Line="380" Column="1" TopLine="367"/>
     359        <Caret Line="167" Column="44" TopLine="157"/>
    350360      </Position6>
    351361      <Position7>
    352362        <Filename Value="..\UCustomDockManager.pas"/>
    353         <Caret Line="381" Column="1" TopLine="367"/>
     363        <Caret Line="2" Column="52" TopLine="1"/>
    354364      </Position7>
    355365      <Position8>
    356         <Filename Value="UMainForm.pas"/>
    357         <Caret Line="61" Column="1" TopLine="47"/>
     366        <Filename Value="..\UCustomDockManager.pas"/>
     367        <Caret Line="108" Column="5" TopLine="83"/>
    358368      </Position8>
    359369      <Position9>
    360         <Filename Value="UMainForm.pas"/>
    361         <Caret Line="62" Column="1" TopLine="47"/>
     370        <Filename Value="..\UCustomDockManager.pas"/>
     371        <Caret Line="106" Column="45" TopLine="90"/>
    362372      </Position9>
    363373      <Position10>
    364         <Filename Value="UMainForm.pas"/>
    365         <Caret Line="63" Column="1" TopLine="47"/>
     374        <Filename Value="..\UCustomDockManager.pas"/>
     375        <Caret Line="635" Column="1" TopLine="626"/>
    366376      </Position10>
    367377      <Position11>
    368         <Filename Value="UMainForm.pas"/>
    369         <Caret Line="64" Column="1" TopLine="47"/>
     378        <Filename Value="..\UCustomDockManager.pas"/>
     379        <Caret Line="100" Column="40" TopLine="97"/>
    370380      </Position11>
    371381      <Position12>
    372         <Filename Value="UMainForm.pas"/>
    373         <Caret Line="60" Column="64" TopLine="47"/>
     382        <Filename Value="..\UCustomDockManager.pas"/>
     383        <Caret Line="11" Column="72" TopLine="1"/>
    374384      </Position12>
    375385      <Position13>
    376         <Filename Value="..\UCustomDockManager.pas"/>
    377         <Caret Line="90" Column="62" TopLine="77"/>
     386        <Filename Value="UMainForm.pas"/>
     387        <Caret Line="17" Column="20" TopLine="1"/>
    378388      </Position13>
    379389      <Position14>
    380         <Filename Value="..\UCustomDockManager.pas"/>
    381         <Caret Line="359" Column="1" TopLine="354"/>
     390        <Filename Value="UMainForm.pas"/>
     391        <Caret Line="5" Column="20" TopLine="1"/>
    382392      </Position14>
    383393      <Position15>
    384394        <Filename Value="..\UCustomDockManager.pas"/>
    385         <Caret Line="360" Column="1" TopLine="354"/>
     395        <Caret Line="22" Column="41" TopLine="13"/>
    386396      </Position15>
    387397      <Position16>
    388398        <Filename Value="..\UCustomDockManager.pas"/>
    389         <Caret Line="361" Column="1" TopLine="354"/>
     399        <Caret Line="155" Column="47" TopLine="141"/>
    390400      </Position16>
    391401      <Position17>
    392402        <Filename Value="..\UCustomDockManager.pas"/>
    393         <Caret Line="362" Column="1" TopLine="354"/>
     403        <Caret Line="158" Column="21" TopLine="145"/>
    394404      </Position17>
    395405      <Position18>
    396406        <Filename Value="..\UCustomDockManager.pas"/>
    397         <Caret Line="363" Column="1" TopLine="354"/>
     407        <Caret Line="152" Column="30" TopLine="145"/>
    398408      </Position18>
    399409      <Position19>
    400410        <Filename Value="..\UCustomDockManager.pas"/>
    401         <Caret Line="242" Column="20" TopLine="224"/>
     411        <Caret Line="72" Column="29" TopLine="60"/>
    402412      </Position19>
    403413      <Position20>
    404         <Filename Value="UMainForm.pas"/>
    405         <Caret Line="61" Column="26" TopLine="47"/>
     414        <Filename Value="..\UCustomDockManager.pas"/>
     415        <Caret Line="586" Column="3" TopLine="584"/>
    406416      </Position20>
    407417      <Position21>
    408         <Filename Value="UMainForm.pas"/>
    409         <Caret Line="17" Column="18" TopLine="1"/>
     418        <Filename Value="..\UCustomDockManager.pas"/>
     419        <Caret Line="499" Column="66" TopLine="486"/>
    410420      </Position21>
    411421      <Position22>
    412         <Filename Value="UMainForm.pas"/>
    413         <Caret Line="18" Column="23" TopLine="1"/>
     422        <Filename Value="..\UCustomDockManager.pas"/>
     423        <Caret Line="56" Column="65" TopLine="32"/>
    414424      </Position22>
    415425      <Position23>
    416         <Filename Value="UMainForm.pas"/>
    417         <Caret Line="17" Column="20" TopLine="1"/>
     426        <Filename Value="..\UCustomDockManager.pas"/>
     427        <Caret Line="108" Column="77" TopLine="88"/>
    418428      </Position23>
    419429      <Position24>
    420430        <Filename Value="..\UCustomDockManager.pas"/>
    421         <Caret Line="167" Column="44" TopLine="157"/>
     431        <Caret Line="83" Column="44" TopLine="65"/>
    422432      </Position24>
    423433      <Position25>
    424434        <Filename Value="..\UCustomDockManager.pas"/>
    425         <Caret Line="2" Column="52" TopLine="1"/>
     435        <Caret Line="108" Column="20" TopLine="94"/>
    426436      </Position25>
    427437      <Position26>
    428438        <Filename Value="..\UCustomDockManager.pas"/>
    429         <Caret Line="108" Column="5" TopLine="83"/>
     439        <Caret Line="515" Column="11" TopLine="501"/>
    430440      </Position26>
    431441      <Position27>
    432442        <Filename Value="..\UCustomDockManager.pas"/>
    433         <Caret Line="106" Column="45" TopLine="90"/>
     443        <Caret Line="112" Column="58" TopLine="91"/>
    434444      </Position27>
    435445      <Position28>
    436         <Filename Value="..\UCustomDockManager.pas"/>
    437         <Caret Line="635" Column="1" TopLine="626"/>
     446        <Filename Value="UMainForm.pas"/>
     447        <Caret Line="5" Column="20" TopLine="1"/>
    438448      </Position28>
    439449      <Position29>
    440450        <Filename Value="..\UCustomDockManager.pas"/>
    441         <Caret Line="100" Column="40" TopLine="97"/>
     451        <Caret Line="175" Column="24" TopLine="165"/>
    442452      </Position29>
    443453      <Position30>
    444         <Filename Value="..\UCustomDockManager.pas"/>
    445         <Caret Line="11" Column="72" TopLine="1"/>
     454        <Filename Value="E:\Programy\Lazarus\lcl\customtimer.pas"/>
     455        <Caret Line="77" Column="3" TopLine="68"/>
    446456      </Position30>
    447457    </JumpHistory>

  • DockManager/Lazarus/Demo/UMainForm.lfm

    r48 r49  
    2727    Align = alBottom
    2828    Anchors = [akTop, akLeft, akRight, akBottom]
     29    ClientHeight = 387
     30    ClientWidth = 576
    2931    DockSite = True
    3032    TabOrder = 1
     33    object TabControl1: TTabControl
     34      Left = 191
     35      Height = 150
     36      Top = 75
     37      Width = 200
     38      TabOrder = 0
     39      TabPosition = tpLeft
     40      TabStop = False
     41    end
    3142  end
    3243  object CustomDockMaster1: TCustomDockMaster

  • DockManager/Lazarus/Demo/UMainForm.pas

    r48 r49  
    1717    CustomDockMaster1: TCustomDockMaster;
    1818    Panel1: TPanel;
     19    TabControl1: TTabControl;
    1920    procedure Button1Click(Sender: TObject);
    2021    procedure FormCreate(Sender: TObject);
    … …  
    5758  ConjoinedDockForm1 := TCustomDockManager(Panel1.DockManager).CreateContainer(alRight);
    5859  ConjoinedDockForm1.Name := 'Model';;
     60  TCustomDockManager(ConjoinedDockForm1.Panel.DockManager).TabsPos := hpLeft;
    5961  //ConjoinedDockForm1.ManualDock(Panel1);
    6062  TCustomDockManager(ConjoinedDockForm1.Panel.DockManager).DockStyle := dsTabs;
Note: See TracChangeset for help on using the changeset viewer.