Ignore:
Timestamp:
Sep 20, 2010, 1:15:16 PM (14 years ago)
Author:
george
Message:
  • Opraveno: Neuvolněná paměť vytvářených sdružených oken.
  • Opraveno: Komponenta formuláře pro volby kotvení předělána z TForm na TComponent, které volá TForm.Show pomocí metody Execute.
Location:
Docking/CoolDocking/Demo
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/Demo/Demo.lpi

    r54 r55  
    3535      </Item2>
    3636    </RequiredPackages>
    37     <Units Count="34">
     37    <Units Count="39">
    3838      <Unit0>
    3939        <Filename Value="Demo.lpr"/>
    4040        <IsPartOfProject Value="True"/>
    4141        <UnitName Value="Demo"/>
     42        <EditorIndex Value="10"/>
    4243        <WindowIndex Value="0"/>
    4344        <TopLine Value="1"/>
    44         <CursorPos X="7" Y="3"/>
    45         <UsageCount Value="39"/>
     45        <CursorPos X="1" Y="18"/>
     46        <UsageCount Value="41"/>
     47        <Loaded Value="True"/>
    4648        <DefaultSyntaxHighlighter Value="Delphi"/>
    4749      </Unit0>
    … …  
    5254        <ResourceBaseClass Value="Form"/>
    5355        <UnitName Value="UMainForm"/>
     56        <IsVisibleTab Value="True"/>
    5457        <EditorIndex Value="0"/>
    5558        <WindowIndex Value="0"/>
    56         <TopLine Value="50"/>
    57         <CursorPos X="61" Y="51"/>
    58         <UsageCount Value="39"/>
     59        <TopLine Value="53"/>
     60        <CursorPos X="3" Y="73"/>
     61        <UsageCount Value="41"/>
    5962        <Loaded Value="True"/>
    6063        <LoadedDesigner Value="True"/>
    … …  
    6467        <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
    6568        <UnitName Value="Controls"/>
    66         <WindowIndex Value="0"/>
    67         <TopLine Value="3846"/>
    68         <CursorPos X="1" Y="3853"/>
     69        <EditorIndex Value="4"/>
     70        <WindowIndex Value="0"/>
     71        <TopLine Value="1689"/>
     72        <CursorPos X="15" Y="1702"/>
    6973        <UsageCount Value="19"/>
     74        <Loaded Value="True"/>
    7075      </Unit2>
    7176      <Unit3>
    … …  
    8792      <Unit5>
    8893        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    89         <WindowIndex Value="0"/>
    90         <TopLine Value="6343"/>
    91         <CursorPos X="1" Y="6359"/>
     94        <EditorIndex Value="5"/>
     95        <WindowIndex Value="0"/>
     96        <TopLine Value="5966"/>
     97        <CursorPos X="14" Y="5976"/>
    9298        <UsageCount Value="18"/>
     99        <Loaded Value="True"/>
    93100      </Unit5>
    94101      <Unit6>
    … …  
    102109      <Unit7>
    103110        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\classesh.inc"/>
    104         <WindowIndex Value="0"/>
    105         <TopLine Value="113"/>
    106         <CursorPos X="3" Y="120"/>
    107         <UsageCount Value="11"/>
     111        <EditorIndex Value="11"/>
     112        <WindowIndex Value="0"/>
     113        <TopLine Value="259"/>
     114        <CursorPos X="14" Y="272"/>
     115        <UsageCount Value="11"/>
     116        <Loaded Value="True"/>
    108117      </Unit7>
    109118      <Unit8>
    … …  
    125134        <Filename Value="E:\Programy\Lazarus\lcl\lclproc.pas"/>
    126135        <UnitName Value="LCLProc"/>
    127         <WindowIndex Value="0"/>
    128         <TopLine Value="1330"/>
    129         <CursorPos X="1" Y="1346"/>
    130         <UsageCount Value="10"/>
     136        <EditorIndex Value="7"/>
     137        <WindowIndex Value="0"/>
     138        <TopLine Value="192"/>
     139        <CursorPos X="11" Y="205"/>
     140        <UsageCount Value="10"/>
     141        <Loaded Value="True"/>
    131142      </Unit10>
    132143      <Unit11>
    … …  
    166177        <ResourceBaseClass Value="Form"/>
    167178        <UnitName Value="UDockForm"/>
     179        <EditorIndex Value="1"/>
    168180        <WindowIndex Value="0"/>
    169181        <TopLine Value="1"/>
    170182        <CursorPos X="47" Y="8"/>
    171         <UsageCount Value="38"/>
     183        <UsageCount Value="40"/>
     184        <Loaded Value="True"/>
    172185        <DefaultSyntaxHighlighter Value="Delphi"/>
    173186      </Unit15>
    … …  
    217230        <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
    218231        <UnitName Value="ExtCtrls"/>
    219         <WindowIndex Value="0"/>
    220         <TopLine Value="1183"/>
    221         <CursorPos X="24" Y="1199"/>
    222         <UsageCount Value="11"/>
     232        <EditorIndex Value="3"/>
     233        <WindowIndex Value="0"/>
     234        <TopLine Value="1153"/>
     235        <CursorPos X="32" Y="1160"/>
     236        <UsageCount Value="11"/>
     237        <Loaded Value="True"/>
    223238      </Unit21>
    224239      <Unit22>
    … …  
    271286        <Filename Value="E:\Programy\Lazarus\lcl\themes.pas"/>
    272287        <UnitName Value="Themes"/>
     288        <EditorIndex Value="13"/>
    273289        <WindowIndex Value="0"/>
    274290        <TopLine Value="550"/>
    275         <CursorPos X="1" Y="556"/>
     291        <CursorPos X="26" Y="560"/>
    276292        <UsageCount Value="13"/>
     293        <Loaded Value="True"/>
    277294      </Unit28>
    278295      <Unit29>
    … …  
    312329        <Filename Value="..\UCoolDocking.pas"/>
    313330        <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"/>
     331        <EditorIndex Value="2"/>
     332        <WindowIndex Value="0"/>
     333        <TopLine Value="37"/>
     334        <CursorPos X="35" Y="50"/>
    319335        <UsageCount Value="10"/>
    320336        <Loaded Value="True"/>
    321337        <DefaultSyntaxHighlighter Value="Delphi"/>
    322338      </Unit33>
     339      <Unit34>
     340        <Filename Value="..\ReadMe.txt"/>
     341        <EditorIndex Value="14"/>
     342        <WindowIndex Value="0"/>
     343        <TopLine Value="1"/>
     344        <CursorPos X="24" Y="7"/>
     345        <UsageCount Value="10"/>
     346        <Loaded Value="True"/>
     347        <DefaultSyntaxHighlighter Value="None"/>
     348      </Unit34>
     349      <Unit35>
     350        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\lists.inc"/>
     351        <EditorIndex Value="12"/>
     352        <WindowIndex Value="0"/>
     353        <TopLine Value="641"/>
     354        <CursorPos X="3" Y="643"/>
     355        <UsageCount Value="10"/>
     356        <Loaded Value="True"/>
     357      </Unit35>
     358      <Unit36>
     359        <Filename Value="E:\Programy\Lazarus\lcl\include\custompanel.inc"/>
     360        <EditorIndex Value="9"/>
     361        <WindowIndex Value="0"/>
     362        <TopLine Value="27"/>
     363        <CursorPos X="3" Y="32"/>
     364        <UsageCount Value="10"/>
     365        <Loaded Value="True"/>
     366      </Unit36>
     367      <Unit37>
     368        <Filename Value="E:\Programy\Lazarus\lcl\include\customcontrol.inc"/>
     369        <EditorIndex Value="8"/>
     370        <WindowIndex Value="0"/>
     371        <TopLine Value="50"/>
     372        <CursorPos X="18" Y="61"/>
     373        <UsageCount Value="10"/>
     374        <Loaded Value="True"/>
     375      </Unit37>
     376      <Unit38>
     377        <Filename Value="E:\Programy\Lazarus\lcl\include\controlsproc.inc"/>
     378        <EditorIndex Value="6"/>
     379        <WindowIndex Value="0"/>
     380        <TopLine Value="84"/>
     381        <CursorPos X="45" Y="90"/>
     382        <UsageCount Value="10"/>
     383        <Loaded Value="True"/>
     384      </Unit38>
    323385    </Units>
    324     <JumpHistory Count="2" HistoryIndex="0">
     386    <JumpHistory Count="28" HistoryIndex="27">
    325387      <Position1>
    326388        <Filename Value="..\UCoolDocking.pas"/>
    … …  
    329391      <Position2>
    330392        <Filename Value="..\UCoolDocking.pas"/>
    331         <Caret Line="531" Column="1" TopLine="514"/>
     393        <Caret Line="354" Column="15" TopLine="334"/>
    332394      </Position2>
     395      <Position3>
     396        <Filename Value="..\UCoolDocking.pas"/>
     397        <Caret Line="308" Column="11" TopLine="303"/>
     398      </Position3>
     399      <Position4>
     400        <Filename Value="..\UCoolDocking.pas"/>
     401        <Caret Line="320" Column="59" TopLine="312"/>
     402      </Position4>
     403      <Position5>
     404        <Filename Value="..\UCoolDocking.pas"/>
     405        <Caret Line="354" Column="65" TopLine="338"/>
     406      </Position5>
     407      <Position6>
     408        <Filename Value="..\UCoolDocking.pas"/>
     409        <Caret Line="105" Column="37" TopLine="93"/>
     410      </Position6>
     411      <Position7>
     412        <Filename Value="..\UCoolDocking.pas"/>
     413        <Caret Line="677" Column="89" TopLine="674"/>
     414      </Position7>
     415      <Position8>
     416        <Filename Value="..\UCoolDocking.pas"/>
     417        <Caret Line="267" Column="36" TopLine="254"/>
     418      </Position8>
     419      <Position9>
     420        <Filename Value="..\UCoolDocking.pas"/>
     421        <Caret Line="106" Column="40" TopLine="92"/>
     422      </Position9>
     423      <Position10>
     424        <Filename Value="UMainForm.pas"/>
     425        <Caret Line="51" Column="53" TopLine="50"/>
     426      </Position10>
     427      <Position11>
     428        <Filename Value="..\UCoolDocking.pas"/>
     429        <Caret Line="674" Column="23" TopLine="663"/>
     430      </Position11>
     431      <Position12>
     432        <Filename Value="UMainForm.pas"/>
     433        <Caret Line="66" Column="47" TopLine="51"/>
     434      </Position12>
     435      <Position13>
     436        <Filename Value="UMainForm.pas"/>
     437        <Caret Line="68" Column="47" TopLine="53"/>
     438      </Position13>
     439      <Position14>
     440        <Filename Value="UMainForm.pas"/>
     441        <Caret Line="70" Column="47" TopLine="55"/>
     442      </Position14>
     443      <Position15>
     444        <Filename Value="UMainForm.pas"/>
     445        <Caret Line="96" Column="29" TopLine="75"/>
     446      </Position15>
     447      <Position16>
     448        <Filename Value="E:\Programy\Lazarus\lcl\themes.pas"/>
     449        <Caret Line="561" Column="39" TopLine="550"/>
     450      </Position16>
     451      <Position17>
     452        <Filename Value="..\UCoolDocking.pas"/>
     453        <Caret Line="477" Column="12" TopLine="469"/>
     454      </Position17>
     455      <Position18>
     456        <Filename Value="..\UCoolDocking.pas"/>
     457        <Caret Line="733" Column="3" TopLine="749"/>
     458      </Position18>
     459      <Position19>
     460        <Filename Value="..\UCoolDocking.pas"/>
     461        <Caret Line="768" Column="1" TopLine="749"/>
     462      </Position19>
     463      <Position20>
     464        <Filename Value="Demo.lpr"/>
     465        <Caret Line="3" Column="7" TopLine="1"/>
     466      </Position20>
     467      <Position21>
     468        <Filename Value="..\UCoolDocking.pas"/>
     469        <Caret Line="730" Column="29" TopLine="724"/>
     470      </Position21>
     471      <Position22>
     472        <Filename Value="..\UCoolDocking.pas"/>
     473        <Caret Line="50" Column="35" TopLine="37"/>
     474      </Position22>
     475      <Position23>
     476        <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
     477        <Caret Line="1196" Column="23" TopLine="1189"/>
     478      </Position23>
     479      <Position24>
     480        <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
     481        <Caret Line="1160" Column="32" TopLine="1153"/>
     482      </Position24>
     483      <Position25>
     484        <Filename Value="E:\Programy\Lazarus\lcl\include\customcontrol.inc"/>
     485        <Caret Line="61" Column="18" TopLine="50"/>
     486      </Position25>
     487      <Position26>
     488        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     489        <Caret Line="6329" Column="9" TopLine="6316"/>
     490      </Position26>
     491      <Position27>
     492        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     493        <Caret Line="6330" Column="7" TopLine="6316"/>
     494      </Position27>
     495      <Position28>
     496        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     497        <Caret Line="5976" Column="14" TopLine="5966"/>
     498      </Position28>
    333499    </JumpHistory>
    334500  </ProjectOptions>
    … …  
    359525    </CodeGeneration>
    360526    <Linking>
     527      <Debugging>
     528        <UseHeaptrc Value="True"/>
     529      </Debugging>
    361530      <Options>
    362531        <Win32>

  • Docking/CoolDocking/Demo/UMainForm.lfm

    r54 r55  
    3030    TabOrder = 1
    3131  end
     32  object TabControl1: TTabControl
     33    Left = 173
     34    Height = 150
     35    Top = 16
     36    Width = 200
     37    TabOrder = 2
     38    TabStop = False
     39  end
     40  object Button2: TButton
     41    Left = 94
     42    Height = 25
     43    Top = 10
     44    Width = 75
     45    Caption = 'Customize'
     46    OnClick = Button2Click
     47    TabOrder = 3
     48  end
    3249  object CoolDockMaster1: TCoolDockMaster
    3350    TabsEnabled = False
    3451    DefaultHeaderPos = hpAuto
    35     left = 376
    36     top = 24
     52    left = 384
     53  end
     54  object CoolDockCustomize1: TCoolDockCustomize
     55    left = 472
    3756  end
    3857end

  • Docking/CoolDocking/Demo/UMainForm.pas

    r54 r55  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   ComCtrls, ExtCtrls, Buttons, Menus, UCoolDocking, UDockForm;
     9  ComCtrls, ExtCtrls, Buttons, Menus, UCoolDocking, UCoolDockCustomize,
     10  UDockForm;
    1011
    1112type
    … …  
    1516  TMainForm = class(TForm)
    1617    Button1: TButton;
     18    Button2: TButton;
     19    CoolDockCustomize1: TCoolDockCustomize;
    1720    CoolDockMaster1: TCoolDockMaster;
    1821    Panel1: TPanel;
     22    TabControl1: TTabControl;
    1923    procedure Button1Click(Sender: TObject);
     24    procedure Button2Click(Sender: TObject);
    2025    procedure FormCreate(Sender: TObject);
    2126    procedure FormDestroy(Sender: TObject);
    … …  
    5459begin
    5560  NewDockForm.ManualDock(Panel1);
    56 //  NewDockForm.ManualDock(Panel1, nil, a);
     61 // NewDockForm.ManualDock(Panel1);
    5762  ConjoinedDockForm1 := TCoolDockManager(Panel1.DockManager).CreateContainer(alRight);
    5863  ConjoinedDockForm1.Name := 'Model';;
    … …  
    8792end;
    8893
     94procedure TMainForm.Button2Click(Sender: TObject);
     95begin
     96  CoolDockCustomize1.Execute;
     97end;
     98
    8999end.
    90100
Note: See TracChangeset for help on using the changeset viewer.