Ignore:
Timestamp:
Sep 20, 2010, 9:22:02 AM (14 years ago)
Author:
george
Message:
  • Upraveno: Balíček přejmenován na CoolDocking. Přejmenovány také jména jednotek a tříd. Upraveno demo.
  • Opraveno: Přidávání nových oken do okna se záložkami.
Location:
Docking/CoolDocking/Demo
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • Docking/CoolDocking/Demo/Demo.lpi

    r51 r54  
    2929    <RequiredPackages Count="2">
    3030      <Item1>
    31         <PackageName Value="CustomDockManager"/>
     31        <PackageName Value="CoolDocking"/>
    3232      </Item1>
    3333      <Item2>
     
    3535      </Item2>
    3636    </RequiredPackages>
    37     <Units Count="33">
     37    <Units Count="34">
    3838      <Unit0>
    3939        <Filename Value="Demo.lpr"/>
    4040        <IsPartOfProject Value="True"/>
    4141        <UnitName Value="Demo"/>
    42         <EditorIndex Value="6"/>
    4342        <WindowIndex Value="0"/>
    4443        <TopLine Value="1"/>
    4544        <CursorPos X="7" Y="3"/>
    4645        <UsageCount Value="39"/>
    47         <Loaded Value="True"/>
    4846        <DefaultSyntaxHighlighter Value="Delphi"/>
    4947      </Unit0>
     
    5654        <EditorIndex Value="0"/>
    5755        <WindowIndex Value="0"/>
    58         <TopLine Value="2"/>
    59         <CursorPos X="53" Y="8"/>
     56        <TopLine Value="50"/>
     57        <CursorPos X="61" Y="51"/>
    6058        <UsageCount Value="39"/>
    6159        <Loaded Value="True"/>
     
    7270      </Unit2>
    7371      <Unit3>
    74         <Filename Value="UCustomDockManager.pas"/>
    75         <UnitName Value="UCustomDockManager"/>
     72        <Filename Value="UCoolDockManager.pas"/>
     73        <UnitName Value="UCoolDockManager"/>
    7674        <WindowIndex Value="0"/>
    7775        <TopLine Value="98"/>
     
    8987      <Unit5>
    9088        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    91         <EditorIndex Value="4"/>
    9289        <WindowIndex Value="0"/>
    9390        <TopLine Value="6343"/>
    9491        <CursorPos X="1" Y="6359"/>
    9592        <UsageCount Value="18"/>
    96         <Loaded Value="True"/>
    9793      </Unit5>
    9894      <Unit6>
     
    129125        <Filename Value="E:\Programy\Lazarus\lcl\lclproc.pas"/>
    130126        <UnitName Value="LCLProc"/>
    131         <EditorIndex Value="3"/>
    132127        <WindowIndex Value="0"/>
    133128        <TopLine Value="1330"/>
    134129        <CursorPos X="1" Y="1346"/>
    135130        <UsageCount Value="10"/>
    136         <Loaded Value="True"/>
    137131      </Unit10>
    138132      <Unit11>
     
    172166        <ResourceBaseClass Value="Form"/>
    173167        <UnitName Value="UDockForm"/>
    174         <EditorIndex Value="9"/>
    175168        <WindowIndex Value="0"/>
    176169        <TopLine Value="1"/>
    177170        <CursorPos X="47" Y="8"/>
    178171        <UsageCount Value="38"/>
    179         <Loaded Value="True"/>
    180         <LoadedDesigner Value="True"/>
    181172        <DefaultSyntaxHighlighter Value="Delphi"/>
    182173      </Unit15>
     
    200191        <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    201192        <UnitName Value="AnchorDocking"/>
    202         <EditorIndex Value="8"/>
    203193        <WindowIndex Value="0"/>
    204194        <TopLine Value="4756"/>
    205195        <CursorPos X="5" Y="4763"/>
    206196        <UsageCount Value="19"/>
    207         <Loaded Value="True"/>
    208197        <DefaultSyntaxHighlighter Value="Delphi"/>
    209198      </Unit18>
     
    217206      </Unit19>
    218207      <Unit20>
    219         <Filename Value="..\UCustomDockManager.pas"/>
    220         <UnitName Value="UCustomDockManager"/>
    221         <EditorIndex Value="1"/>
     208        <Filename Value="..\UCoolDockManager.pas"/>
     209        <UnitName Value="UCoolDockManager"/>
    222210        <WindowIndex Value="0"/>
    223211        <TopLine Value="702"/>
    224212        <CursorPos X="10" Y="719"/>
    225213        <UsageCount Value="33"/>
    226         <Loaded Value="True"/>
    227214        <DefaultSyntaxHighlighter Value="Delphi"/>
    228215      </Unit20>
     
    284271        <Filename Value="E:\Programy\Lazarus\lcl\themes.pas"/>
    285272        <UnitName Value="Themes"/>
    286         <IsVisibleTab Value="True"/>
    287         <EditorIndex Value="2"/>
    288273        <WindowIndex Value="0"/>
    289274        <TopLine Value="550"/>
    290275        <CursorPos X="1" Y="556"/>
    291276        <UsageCount Value="13"/>
    292         <Loaded Value="True"/>
    293277      </Unit28>
    294278      <Unit29>
     
    303287        <Filename Value="..\..\..\ExceptionLogger\UExceptionLogger.pas"/>
    304288        <UnitName Value="UExceptionLogger"/>
    305         <EditorIndex Value="7"/>
    306289        <WindowIndex Value="0"/>
    307290        <TopLine Value="49"/>
    308291        <CursorPos X="1" Y="56"/>
    309292        <UsageCount Value="12"/>
    310         <Loaded Value="True"/>
    311293        <DefaultSyntaxHighlighter Value="Delphi"/>
    312294      </Unit30>
     
    322304        <Filename Value="E:\Programy\Lazarus\lcl\interfaces\win32\win32wsforms.pp"/>
    323305        <UnitName Value="Win32WSForms"/>
    324         <EditorIndex Value="5"/>
    325306        <WindowIndex Value="0"/>
    326307        <TopLine Value="341"/>
    327308        <CursorPos X="1" Y="354"/>
    328309        <UsageCount Value="10"/>
     310      </Unit32>
     311      <Unit33>
     312        <Filename Value="..\UCoolDocking.pas"/>
     313        <UnitName Value="UCoolDocking"/>
     314        <IsVisibleTab Value="True"/>
     315        <EditorIndex Value="1"/>
     316        <WindowIndex Value="0"/>
     317        <TopLine Value="334"/>
     318        <CursorPos X="15" Y="354"/>
     319        <UsageCount Value="10"/>
    329320        <Loaded Value="True"/>
    330       </Unit32>
     321        <DefaultSyntaxHighlighter Value="Delphi"/>
     322      </Unit33>
    331323    </Units>
    332     <JumpHistory Count="28" HistoryIndex="27">
     324    <JumpHistory Count="2" HistoryIndex="0">
    333325      <Position1>
    334         <Filename Value="..\UCustomDockManager.pas"/>
    335         <Caret Line="273" Column="1" TopLine="267"/>
     326        <Filename Value="..\UCoolDocking.pas"/>
     327        <Caret Line="91" Column="26" TopLine="86"/>
    336328      </Position1>
    337329      <Position2>
    338         <Filename Value="..\UCustomDockManager.pas"/>
    339         <Caret Line="274" Column="1" TopLine="267"/>
     330        <Filename Value="..\UCoolDocking.pas"/>
     331        <Caret Line="531" Column="1" TopLine="514"/>
    340332      </Position2>
    341       <Position3>
    342         <Filename Value="..\UCustomDockManager.pas"/>
    343         <Caret Line="275" Column="1" TopLine="267"/>
    344       </Position3>
    345       <Position4>
    346         <Filename Value="..\UCustomDockManager.pas"/>
    347         <Caret Line="272" Column="1" TopLine="267"/>
    348       </Position4>
    349       <Position5>
    350         <Filename Value="..\UCustomDockManager.pas"/>
    351         <Caret Line="273" Column="1" TopLine="267"/>
    352       </Position5>
    353       <Position6>
    354         <Filename Value="..\UCustomDockManager.pas"/>
    355         <Caret Line="274" Column="1" TopLine="267"/>
    356       </Position6>
    357       <Position7>
    358         <Filename Value="..\UCustomDockManager.pas"/>
    359         <Caret Line="275" Column="1" TopLine="267"/>
    360       </Position7>
    361       <Position8>
    362         <Filename Value="..\UCustomDockManager.pas"/>
    363         <Caret Line="272" Column="1" TopLine="267"/>
    364       </Position8>
    365       <Position9>
    366         <Filename Value="..\UCustomDockManager.pas"/>
    367         <Caret Line="273" Column="1" TopLine="267"/>
    368       </Position9>
    369       <Position10>
    370         <Filename Value="..\UCustomDockManager.pas"/>
    371         <Caret Line="274" Column="1" TopLine="267"/>
    372       </Position10>
    373       <Position11>
    374         <Filename Value="..\UCustomDockManager.pas"/>
    375         <Caret Line="275" Column="1" TopLine="267"/>
    376       </Position11>
    377       <Position12>
    378         <Filename Value="..\UCustomDockManager.pas"/>
    379         <Caret Line="272" Column="1" TopLine="267"/>
    380       </Position12>
    381       <Position13>
    382         <Filename Value="..\UCustomDockManager.pas"/>
    383         <Caret Line="273" Column="1" TopLine="267"/>
    384       </Position13>
    385       <Position14>
    386         <Filename Value="..\UCustomDockManager.pas"/>
    387         <Caret Line="274" Column="1" TopLine="267"/>
    388       </Position14>
    389       <Position15>
    390         <Filename Value="..\UCustomDockManager.pas"/>
    391         <Caret Line="275" Column="1" TopLine="267"/>
    392       </Position15>
    393       <Position16>
    394         <Filename Value="..\UCustomDockManager.pas"/>
    395         <Caret Line="272" Column="1" TopLine="267"/>
    396       </Position16>
    397       <Position17>
    398         <Filename Value="..\UCustomDockManager.pas"/>
    399         <Caret Line="273" Column="1" TopLine="267"/>
    400       </Position17>
    401       <Position18>
    402         <Filename Value="..\UCustomDockManager.pas"/>
    403         <Caret Line="274" Column="1" TopLine="267"/>
    404       </Position18>
    405       <Position19>
    406         <Filename Value="..\UCustomDockManager.pas"/>
    407         <Caret Line="275" Column="1" TopLine="267"/>
    408       </Position19>
    409       <Position20>
    410         <Filename Value="..\UCustomDockManager.pas"/>
    411         <Caret Line="272" Column="1" TopLine="267"/>
    412       </Position20>
    413       <Position21>
    414         <Filename Value="..\UCustomDockManager.pas"/>
    415         <Caret Line="273" Column="1" TopLine="267"/>
    416       </Position21>
    417       <Position22>
    418         <Filename Value="..\UCustomDockManager.pas"/>
    419         <Caret Line="274" Column="1" TopLine="267"/>
    420       </Position22>
    421       <Position23>
    422         <Filename Value="..\UCustomDockManager.pas"/>
    423         <Caret Line="272" Column="1" TopLine="267"/>
    424       </Position23>
    425       <Position24>
    426         <Filename Value="E:\Programy\Lazarus\lcl\interfaces\win32\win32wsforms.pp"/>
    427         <Caret Line="354" Column="1" TopLine="341"/>
    428       </Position24>
    429       <Position25>
    430         <Filename Value="..\UCustomDockManager.pas"/>
    431         <Caret Line="5" Column="21" TopLine="1"/>
    432       </Position25>
    433       <Position26>
    434         <Filename Value="..\UCustomDockManager.pas"/>
    435         <Caret Line="6" Column="60" TopLine="1"/>
    436       </Position26>
    437       <Position27>
    438         <Filename Value="..\UCustomDockManager.pas"/>
    439         <Caret Line="66" Column="33" TopLine="53"/>
    440       </Position27>
    441       <Position28>
    442         <Filename Value="..\UCustomDockManager.pas"/>
    443         <Caret Line="719" Column="10" TopLine="702"/>
    444       </Position28>
    445333    </JumpHistory>
    446334  </ProjectOptions>
  • Docking/CoolDocking/Demo/Demo.lpr

    r48 r54  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UMainForm, UDockForm, CustomDockManager;
     10  Forms, UMainForm, UDockForm, CoolDocking;
    1111
    1212{$R *.res}
  • Docking/CoolDocking/Demo/UMainForm.lfm

    r50 r54  
    3030    TabOrder = 1
    3131  end
    32   object CustomDockMaster1: TCustomDockMaster
     32  object CoolDockMaster1: TCoolDockMaster
    3333    TabsEnabled = False
    3434    DefaultHeaderPos = hpAuto
  • Docking/CoolDocking/Demo/UMainForm.pas

    r50 r54  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   ComCtrls, ExtCtrls, Buttons, Menus, UCustomDockManager, UDockForm;
     9  ComCtrls, ExtCtrls, Buttons, Menus, UCoolDocking, UDockForm;
    1010
    1111type
     
    1515  TMainForm = class(TForm)
    1616    Button1: TButton;
    17     CustomDockMaster1: TCustomDockMaster;
     17    CoolDockMaster1: TCoolDockMaster;
    1818    Panel1: TPanel;
    1919    procedure Button1Click(Sender: TObject);
     
    5050procedure TMainForm.FormShow(Sender: TObject);
    5151var
    52   ConjoinedDockForm1: TConjoinDockForm;
    53   ConjoinedDockForm2: TConjoinDockForm;
     52  ConjoinedDockForm1: TCoolDockConjoinForm;
     53  ConjoinedDockForm2: TCoolDockConjoinForm;
    5454begin
    5555  NewDockForm.ManualDock(Panel1);
    5656//  NewDockForm.ManualDock(Panel1, nil, a);
    57   ConjoinedDockForm1 := TCustomDockManager(Panel1.DockManager).CreateContainer(alRight);
     57  ConjoinedDockForm1 := TCoolDockManager(Panel1.DockManager).CreateContainer(alRight);
    5858  ConjoinedDockForm1.Name := 'Model';;
    59   TCustomDockManager(ConjoinedDockForm1.Panel.DockManager).TabsPos := hpLeft;
     59  TCoolDockManager(ConjoinedDockForm1.Panel.DockManager).TabsPos := hpLeft;
    6060  //ConjoinedDockForm1.ManualDock(Panel1);
    61   TCustomDockManager(ConjoinedDockForm1.Panel.DockManager).DockStyle := dsTabs;
     61  TCoolDockManager(ConjoinedDockForm1.Panel.DockManager).DockStyle := dsTabs;
    6262  NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
    6363  NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
Note: See TracChangeset for help on using the changeset viewer.