Changeset 60 for Docking


Ignore:
Timestamp:
Sep 24, 2010, 10:13:50 AM (14 years ago)
Author:
george
Message:
  • Opraveno: Aktualizace ikony při ukotvení nové záložky.
  • Opraveno: Obsluha události OnMouseDown pro záložky a opětovné umožnění uchopení oken přes záložky.
Location:
Docking/CoolDocking
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/Demo/Demo.lpi

    r59 r60  
    3535      </Item2>
    3636    </RequiredPackages>
    37     <Units Count="45">
     37    <Units Count="52">
    3838      <Unit0>
    3939        <Filename Value="Demo.lpr"/>
    … …  
    4444        <TopLine Value="1"/>
    4545        <CursorPos X="25" Y="8"/>
    46         <UsageCount Value="122"/>
     46        <UsageCount Value="124"/>
    4747        <Loaded Value="True"/>
    4848        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    5454        <ResourceBaseClass Value="Form"/>
    5555        <UnitName Value="UMainForm"/>
    56         <EditorIndex Value="5"/>
    57         <WindowIndex Value="0"/>
    58         <TopLine Value="54"/>
    59         <CursorPos X="1" Y="74"/>
    60         <UsageCount Value="122"/>
     56        <IsVisibleTab Value="True"/>
     57        <EditorIndex Value="2"/>
     58        <WindowIndex Value="0"/>
     59        <TopLine Value="16"/>
     60        <CursorPos X="1" Y="29"/>
     61        <UsageCount Value="124"/>
    6162        <Loaded Value="True"/>
    6263        <LoadedDesigner Value="True"/>
    … …  
    6667        <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
    6768        <UnitName Value="Controls"/>
    68         <EditorIndex Value="8"/>
    69         <WindowIndex Value="0"/>
    70         <TopLine Value="1673"/>
    71         <CursorPos X="29" Y="1685"/>
    72         <UsageCount Value="59"/>
     69        <EditorIndex Value="16"/>
     70        <WindowIndex Value="0"/>
     71        <TopLine Value="1217"/>
     72        <CursorPos X="27" Y="1230"/>
     73        <UsageCount Value="61"/>
    7374        <Loaded Value="True"/>
    7475      </Unit2>
    … …  
    8485      <Unit4>
    8586        <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    86         <EditorIndex Value="2"/>
    8787        <WindowIndex Value="0"/>
    8888        <TopLine Value="3138"/>
    8989        <CursorPos X="1" Y="3151"/>
    9090        <UsageCount Value="54"/>
    91         <Loaded Value="True"/>
    9291      </Unit4>
    9392      <Unit5>
    9493        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    95         <EditorIndex Value="9"/>
     94        <EditorIndex Value="17"/>
    9695        <WindowIndex Value="0"/>
    9796        <TopLine Value="5341"/>
    9897        <CursorPos X="65" Y="5348"/>
    99         <UsageCount Value="58"/>
     98        <UsageCount Value="60"/>
    10099        <Loaded Value="True"/>
    101100      </Unit5>
    … …  
    174173        <ResourceBaseClass Value="Form"/>
    175174        <UnitName Value="UDockForm"/>
    176         <EditorIndex Value="6"/>
    177         <WindowIndex Value="0"/>
    178         <TopLine Value="1"/>
     175        <EditorIndex Value="14"/>
     176        <WindowIndex Value="0"/>
     177        <TopLine Value="2"/>
    179178        <CursorPos X="15" Y="9"/>
    180         <UsageCount Value="121"/>
     179        <UsageCount Value="123"/>
    181180        <Loaded Value="True"/>
    182181        <LoadedDesigner Value="True"/>
    … …  
    186185        <Filename Value="E:\Programy\Lazarus\lcl\graphics.pp"/>
    187186        <UnitName Value="Graphics"/>
    188         <WindowIndex Value="0"/>
    189         <TopLine Value="675"/>
    190         <CursorPos X="24" Y="688"/>
    191         <UsageCount Value="3"/>
     187        <EditorIndex Value="9"/>
     188        <WindowIndex Value="0"/>
     189        <TopLine Value="1083"/>
     190        <CursorPos X="15" Y="1096"/>
     191        <UsageCount Value="11"/>
     192        <Loaded Value="True"/>
    192193      </Unit16>
    193194      <Unit17>
    194195        <Filename Value="E:\Programy\Lazarus\lcl\stdctrls.pp"/>
    195196        <UnitName Value="StdCtrls"/>
    196         <EditorIndex Value="4"/>
    197         <WindowIndex Value="0"/>
    198         <TopLine Value="813"/>
     197        <WindowIndex Value="0"/>
     198        <TopLine Value="819"/>
    199199        <CursorPos X="28" Y="826"/>
    200200        <UsageCount Value="30"/>
    201         <Loaded Value="True"/>
    202201      </Unit17>
    203202      <Unit18>
    … …  
    230229        <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
    231230        <UnitName Value="ExtCtrls"/>
    232         <WindowIndex Value="0"/>
    233         <TopLine Value="1153"/>
    234         <CursorPos X="32" Y="1160"/>
    235         <UsageCount Value="26"/>
     231        <EditorIndex Value="4"/>
     232        <WindowIndex Value="0"/>
     233        <TopLine Value="292"/>
     234        <CursorPos X="24" Y="305"/>
     235        <UsageCount Value="27"/>
     236        <Loaded Value="True"/>
    236237      </Unit21>
    237238      <Unit22>
    … …  
    268269        <Filename Value="E:\Programy\Lazarus\lcl\comctrls.pp"/>
    269270        <UnitName Value="ComCtrls"/>
    270         <WindowIndex Value="0"/>
    271         <TopLine Value="551"/>
    272         <CursorPos X="3" Y="558"/>
    273         <UsageCount Value="8"/>
     271        <EditorIndex Value="3"/>
     272        <WindowIndex Value="0"/>
     273        <TopLine Value="398"/>
     274        <CursorPos X="59" Y="408"/>
     275        <UsageCount Value="11"/>
     276        <Loaded Value="True"/>
    274277      </Unit26>
    275278      <Unit27>
    276279        <Filename Value="E:\Programy\Lazarus\lcl\forms.pp"/>
    277280        <UnitName Value="Forms"/>
    278         <EditorIndex Value="7"/>
     281        <EditorIndex Value="15"/>
    279282        <WindowIndex Value="0"/>
    280283        <TopLine Value="709"/>
    281284        <CursorPos X="18" Y="722"/>
    282         <UsageCount Value="32"/>
     285        <UsageCount Value="34"/>
    283286        <Loaded Value="True"/>
    284287      </Unit27>
    … …  
    286289        <Filename Value="E:\Programy\Lazarus\lcl\themes.pas"/>
    287290        <UnitName Value="Themes"/>
    288         <WindowIndex Value="0"/>
    289         <TopLine Value="550"/>
    290         <CursorPos X="26" Y="560"/>
    291         <UsageCount Value="28"/>
     291        <EditorIndex Value="13"/>
     292        <WindowIndex Value="0"/>
     293        <TopLine Value="2167"/>
     294        <CursorPos X="21" Y="2148"/>
     295        <UsageCount Value="29"/>
     296        <Loaded Value="True"/>
    292297      </Unit28>
    293298      <Unit29>
    … …  
    327332        <Filename Value="..\UCoolDocking.pas"/>
    328333        <UnitName Value="UCoolDocking"/>
    329         <IsVisibleTab Value="True"/>
    330334        <EditorIndex Value="1"/>
    331335        <WindowIndex Value="0"/>
    332         <TopLine Value="1307"/>
    333         <CursorPos X="18" Y="1322"/>
    334         <UsageCount Value="50"/>
     336        <TopLine Value="883"/>
     337        <CursorPos X="1" Y="896"/>
     338        <UsageCount Value="52"/>
    335339        <Loaded Value="True"/>
    336340        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    378382        <ResourceBaseClass Value="Form"/>
    379383        <UnitName Value="UCoolDockCustomize"/>
    380         <EditorIndex Value="10"/>
     384        <EditorIndex Value="18"/>
    381385        <WindowIndex Value="0"/>
    382386        <TopLine Value="9"/>
    383387        <CursorPos X="19" Y="17"/>
    384         <UsageCount Value="49"/>
    385         <Loaded Value="True"/>
     388        <UsageCount Value="51"/>
     389        <Loaded Value="True"/>
     390        <LoadedDesigner Value="True"/>
    386391        <DefaultSyntaxHighlighter Value="Delphi"/>
    387392      </Unit39>
    … …  
    404409        <ResourceBaseClass Value="Form"/>
    405410        <UnitName Value="SampleDockableForm"/>
    406         <EditorIndex Value="3"/>
    407411        <WindowIndex Value="0"/>
    408412        <TopLine Value="1"/>
    409413        <CursorPos X="53" Y="2"/>
    410         <UsageCount Value="64"/>
    411         <Loaded Value="True"/>
    412         <LoadedDesigner Value="True"/>
     414        <UsageCount Value="66"/>
    413415        <DefaultSyntaxHighlighter Value="Delphi"/>
    414416      </Unit41>
    … …  
    435437        <UsageCount Value="6"/>
    436438      </Unit44>
     439      <Unit45>
     440        <Filename Value="E:\Programy\Lazarus\lcl\include\tabcontrol.inc"/>
     441        <EditorIndex Value="7"/>
     442        <WindowIndex Value="0"/>
     443        <TopLine Value="182"/>
     444        <CursorPos X="3" Y="184"/>
     445        <UsageCount Value="11"/>
     446        <Loaded Value="True"/>
     447      </Unit45>
     448      <Unit46>
     449        <Filename Value="E:\Programy\Lazarus\lcl\include\pagecontrol.inc"/>
     450        <EditorIndex Value="6"/>
     451        <WindowIndex Value="0"/>
     452        <TopLine Value="98"/>
     453        <CursorPos X="3" Y="103"/>
     454        <UsageCount Value="11"/>
     455        <Loaded Value="True"/>
     456      </Unit46>
     457      <Unit47>
     458        <Filename Value="E:\Programy\Lazarus\lcl\include\customnotebook.inc"/>
     459        <EditorIndex Value="5"/>
     460        <WindowIndex Value="0"/>
     461        <TopLine Value="885"/>
     462        <CursorPos X="3" Y="853"/>
     463        <UsageCount Value="11"/>
     464        <Loaded Value="True"/>
     465      </Unit47>
     466      <Unit48>
     467        <Filename Value="E:\Programy\Lazarus\lcl\include\canvas.inc"/>
     468        <EditorIndex Value="10"/>
     469        <WindowIndex Value="0"/>
     470        <TopLine Value="954"/>
     471        <CursorPos X="17" Y="965"/>
     472        <UsageCount Value="11"/>
     473        <Loaded Value="True"/>
     474      </Unit48>
     475      <Unit49>
     476        <Filename Value="E:\Programy\Lazarus\lcl\include\lclintfh.inc"/>
     477        <EditorIndex Value="11"/>
     478        <WindowIndex Value="0"/>
     479        <TopLine Value="27"/>
     480        <CursorPos X="10" Y="40"/>
     481        <UsageCount Value="11"/>
     482        <Loaded Value="True"/>
     483      </Unit49>
     484      <Unit50>
     485        <Filename Value="E:\Programy\Lazarus\lcl\include\intfbaselcl.inc"/>
     486        <EditorIndex Value="12"/>
     487        <WindowIndex Value="0"/>
     488        <TopLine Value="29"/>
     489        <CursorPos X="3" Y="32"/>
     490        <UsageCount Value="11"/>
     491        <Loaded Value="True"/>
     492      </Unit50>
     493      <Unit51>
     494        <Filename Value="E:\Programy\Lazarus\lcl\include\winapih.inc"/>
     495        <EditorIndex Value="8"/>
     496        <WindowIndex Value="0"/>
     497        <TopLine Value="306"/>
     498        <CursorPos X="10" Y="319"/>
     499        <UsageCount Value="11"/>
     500        <Loaded Value="True"/>
     501      </Unit51>
    437502    </Units>
    438503    <JumpHistory Count="30" HistoryIndex="29">
    439504      <Position1>
    440         <Filename Value="..\UCoolDocking.pas"/>
    441         <Caret Line="668" Column="1" TopLine="654"/>
     505        <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
     506        <Caret Line="1230" Column="35" TopLine="1217"/>
    442507      </Position1>
    443508      <Position2>
    444         <Filename Value="..\UCoolDocking.pas"/>
    445         <Caret Line="669" Column="1" TopLine="654"/>
     509        <Filename Value="UMainForm.pas"/>
     510        <Caret Line="84" Column="61" TopLine="71"/>
    446511      </Position2>
    447512      <Position3>
    448         <Filename Value="..\UCoolDocking.pas"/>
    449         <Caret Line="671" Column="1" TopLine="654"/>
     513        <Filename Value="UMainForm.pas"/>
     514        <Caret Line="85" Column="17" TopLine="71"/>
    450515      </Position3>
    451516      <Position4>
    452         <Filename Value="..\UCoolDocking.pas"/>
    453         <Caret Line="672" Column="1" TopLine="654"/>
     517        <Filename Value="UMainForm.pas"/>
     518        <Caret Line="84" Column="58" TopLine="71"/>
    454519      </Position4>
    455520      <Position5>
    456         <Filename Value="..\UCoolDocking.pas"/>
    457         <Caret Line="673" Column="1" TopLine="654"/>
     521        <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
     522        <Caret Line="305" Column="18" TopLine="292"/>
    458523      </Position5>
    459524      <Position6>
    460525        <Filename Value="UMainForm.pas"/>
    461         <Caret Line="70" Column="1" TopLine="54"/>
     526        <Caret Line="84" Column="58" TopLine="71"/>
    462527      </Position6>
    463528      <Position7>
    464529        <Filename Value="UMainForm.pas"/>
    465         <Caret Line="71" Column="1" TopLine="54"/>
     530        <Caret Line="85" Column="19" TopLine="72"/>
    466531      </Position7>
    467532      <Position8>
    468533        <Filename Value="UMainForm.pas"/>
    469         <Caret Line="73" Column="1" TopLine="54"/>
     534        <Caret Line="43" Column="16" TopLine="32"/>
    470535      </Position8>
    471536      <Position9>
    472537        <Filename Value="UMainForm.pas"/>
    473         <Caret Line="74" Column="1" TopLine="54"/>
     538        <Caret Line="84" Column="65" TopLine="72"/>
    474539      </Position9>
    475540      <Position10>
    476         <Filename Value="..\UCoolDocking.pas"/>
    477         <Caret Line="665" Column="1" TopLine="654"/>
     541        <Filename Value="UMainForm.pas"/>
     542        <Caret Line="85" Column="16" TopLine="72"/>
    478543      </Position10>
    479544      <Position11>
    480         <Filename Value="..\UCoolDocking.pas"/>
    481         <Caret Line="666" Column="1" TopLine="654"/>
     545        <Filename Value="UMainForm.pas"/>
     546        <Caret Line="45" Column="15" TopLine="32"/>
    482547      </Position11>
    483548      <Position12>
    484         <Filename Value="..\UCoolDocking.pas"/>
    485         <Caret Line="667" Column="1" TopLine="654"/>
     549        <Filename Value="UMainForm.pas"/>
     550        <Caret Line="85" Column="22" TopLine="72"/>
    486551      </Position12>
    487552      <Position13>
    488         <Filename Value="..\UCoolDocking.pas"/>
    489         <Caret Line="668" Column="1" TopLine="654"/>
     553        <Filename Value="UMainForm.pas"/>
     554        <Caret Line="46" Column="30" TopLine="33"/>
    490555      </Position13>
    491556      <Position14>
    492         <Filename Value="..\UCoolDocking.pas"/>
    493         <Caret Line="1308" Column="7" TopLine="1299"/>
     557        <Filename Value="UMainForm.pas"/>
     558        <Caret Line="45" Column="50" TopLine="32"/>
    494559      </Position14>
    495560      <Position15>
    496         <Filename Value="..\UCoolDocking.pas"/>
    497         <Caret Line="858" Column="3" TopLine="856"/>
     561        <Filename Value="UMainForm.pas"/>
     562        <Caret Line="46" Column="30" TopLine="33"/>
    498563      </Position15>
    499564      <Position16>
    500         <Filename Value="..\UCoolDocking.pas"/>
    501         <Caret Line="861" Column="1" TopLine="856"/>
     565        <Filename Value="UMainForm.pas"/>
     566        <Caret Line="85" Column="22" TopLine="72"/>
    502567      </Position16>
    503568      <Position17>
    504         <Filename Value="..\UCoolDocking.pas"/>
    505         <Caret Line="858" Column="1" TopLine="853"/>
     569        <Filename Value="UMainForm.pas"/>
     570        <Caret Line="46" Column="30" TopLine="33"/>
    506571      </Position17>
    507572      <Position18>
    508573        <Filename Value="..\UCoolDocking.pas"/>
    509         <Caret Line="861" Column="1" TopLine="853"/>
     574        <Caret Line="195" Column="15" TopLine="182"/>
    510575      </Position18>
    511576      <Position19>
    512         <Filename Value="..\UCoolDocking.pas"/>
    513         <Caret Line="858" Column="1" TopLine="853"/>
     577        <Filename Value="UMainForm.pas"/>
     578        <Caret Line="85" Column="28" TopLine="72"/>
    514579      </Position19>
    515580      <Position20>
    516581        <Filename Value="..\UCoolDocking.pas"/>
    517         <Caret Line="1319" Column="50" TopLine="1308"/>
     582        <Caret Line="119" Column="34" TopLine="112"/>
    518583      </Position20>
    519584      <Position21>
    520585        <Filename Value="..\UCoolDocking.pas"/>
    521         <Caret Line="1320" Column="1" TopLine="1308"/>
     586        <Caret Line="443" Column="18" TopLine="431"/>
    522587      </Position21>
    523588      <Position22>
    524         <Filename Value="..\UCoolDocking.pas"/>
    525         <Caret Line="710" Column="1" TopLine="697"/>
     589        <Filename Value="UMainForm.pas"/>
     590        <Caret Line="76" Column="24" TopLine="65"/>
    526591      </Position22>
    527592      <Position23>
    528         <Filename Value="..\UCoolDocking.pas"/>
    529         <Caret Line="711" Column="1" TopLine="697"/>
     593        <Filename Value="UMainForm.pas"/>
     594        <Caret Line="75" Column="24" TopLine="64"/>
    530595      </Position23>
    531596      <Position24>
    532         <Filename Value="..\UCoolDocking.pas"/>
    533         <Caret Line="712" Column="1" TopLine="697"/>
     597        <Filename Value="UMainForm.pas"/>
     598        <Caret Line="74" Column="24" TopLine="63"/>
    534599      </Position24>
    535600      <Position25>
    536         <Filename Value="..\UCoolDocking.pas"/>
    537         <Caret Line="1322" Column="1" TopLine="1309"/>
     601        <Filename Value="UMainForm.pas"/>
     602        <Caret Line="73" Column="24" TopLine="62"/>
    538603      </Position25>
    539604      <Position26>
    540         <Filename Value="..\UCoolDocking.pas"/>
    541         <Caret Line="1320" Column="1" TopLine="1309"/>
     605        <Filename Value="UMainForm.pas"/>
     606        <Caret Line="72" Column="24" TopLine="61"/>
    542607      </Position26>
    543608      <Position27>
    544         <Filename Value="..\UCoolDocking.pas"/>
    545         <Caret Line="710" Column="1" TopLine="697"/>
     609        <Filename Value="UMainForm.pas"/>
     610        <Caret Line="71" Column="24" TopLine="60"/>
    546611      </Position27>
    547612      <Position28>
    548         <Filename Value="..\UCoolDocking.pas"/>
    549         <Caret Line="711" Column="1" TopLine="697"/>
     613        <Filename Value="UMainForm.pas"/>
     614        <Caret Line="98" Column="1" TopLine="98"/>
    550615      </Position28>
    551616      <Position29>
    552         <Filename Value="..\UCoolDocking.pas"/>
    553         <Caret Line="712" Column="1" TopLine="697"/>
     617        <Filename Value="UMainForm.pas"/>
     618        <Caret Line="35" Column="1" TopLine="22"/>
    554619      </Position29>
    555620      <Position30>
    556         <Filename Value="..\UCoolDocking.pas"/>
    557         <Caret Line="1320" Column="47" TopLine="1307"/>
     621        <Filename Value="UMainForm.pas"/>
     622        <Caret Line="109" Column="1" TopLine="86"/>
    558623      </Position30>
    559624    </JumpHistory>
    … …  
    596661    <Other>
    597662      <CompilerMessages>
     663        <IgnoredMessages idx5024="True"/>
    598664        <UseMsgFile Value="True"/>
    599665      </CompilerMessages>
    … …  
    602668  </CompilerOptions>
    603669  <Debugging>
    604     <BreakPoints Count="3">
    605       <Item1>
    606         <Source Value="..\UCoolDocking.pas"/>
    607         <Line Value="891"/>
    608       </Item1>
    609       <Item2>
    610         <Source Value="..\UCoolDocking.pas"/>
    611         <Line Value="1338"/>
    612       </Item2>
    613       <Item3>
    614         <Source Value="..\UCoolDocking.pas"/>
    615         <Line Value="857"/>
    616       </Item3>
    617     </BreakPoints>
    618670    <Watches Count="1">
    619671      <Item1>

  • Docking/CoolDocking/Demo/UMainForm.pas

    r58 r60  
    11unit UMainForm;
    22
    3 {$mode objfpc}{$H+}
     3{$mode Delphi}{$H+}
    44
    55interface
    … …  
    2727    Panel1: TPanel;
    2828    procedure Button1Click(Sender: TObject);
    29     procedure Button2Click(Sender: TObject);
    3029    procedure FormCreate(Sender: TObject);
    3130    procedure FormDestroy(Sender: TObject);
    … …  
    3433    procedure MenuItem4Click(Sender: TObject);
    3534  private
    36     { private declarations }
    3735  public
    3836    FormIndex: Integer;
    … …  
    109107end;
    110108
    111 procedure TMainForm.Button2Click(Sender: TObject);
    112 begin
    113 
    114 end;
    115 
    116109end.
    117110

  • Docking/CoolDocking/UCoolDockCustomize.lfm

    r57 r60  
    1313    Top = 8
    1414    Width = 393
    15     ActivePage = TabSheetLayouts
     15    ActivePage = TabSheetSetting
    1616    Anchors = [akTop, akLeft, akRight, akBottom]
    17     TabIndex = 1
     17    TabIndex = 0
    1818    TabOrder = 0
    1919    object TabSheetSetting: TTabSheet
    … …  
    3636        ItemHeight = 13
    3737        TabOrder = 0
     38        Text = 'ComboBox1'
     39      end
     40      object Label2: TLabel
     41        Left = 7
     42        Height = 14
     43        Top = 41
     44        Width = 117
     45        Caption = 'Default header position:'
     46        ParentColor = False
     47      end
     48      object ComboBox2: TComboBox
     49        Left = 132
     50        Height = 21
     51        Top = 38
     52        Width = 100
     53        ItemHeight = 13
     54        TabOrder = 1
    3855        Text = 'ComboBox1'
    3956      end

  • Docking/CoolDocking/UCoolDockCustomize.lrs

    r57 r60  
    66  +'cking'#12'ClientHeight'#3'C'#1#11'ClientWidth'#3#151#1#10'LCLVersion'#6#6'0'
    77  +'.9.29'#0#12'TPageControl'#12'PageControl1'#4'Left'#2#8#6'Height'#3#22#1#3'T'
    8   +'op'#2#8#5'Width'#3#137#1#10'ActivePage'#7#15'TabSheetLayouts'#7'Anchors'#11
    9   +#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'TabIndex'#2#1#8'TabOrder'#2#0
     8  +'op'#2#8#5'Width'#3#137#1#10'ActivePage'#7#15'TabSheetSetting'#7'Anchors'#11
     9  +#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'TabIndex'#2#0#8'TabOrder'#2#0
    1010  +#0#9'TTabSheet'#15'TabSheetSetting'#7'Caption'#6#7'Options'#12'ClientHeight'
    1111  +#3#252#0#11'ClientWidth'#3#129#1#0#6'TLabel'#6'Label1'#4'Left'#2#7#6'Height'
    … …  
    1313  +'arentColor'#8#0#0#9'TComboBox'#9'ComboBox1'#4'Left'#3#132#0#6'Height'#2#21#3
    1414  +'Top'#2#10#5'Width'#2'd'#10'ItemHeight'#2#13#8'TabOrder'#2#0#4'Text'#6#9'Com'
    15   +'boBox1'#0#0#0#9'TTabSheet'#15'TabSheetLayouts'#7'Caption'#6#7'Layouts'#12'C'
    16   +'lientHeight'#3#252#0#11'ClientWidth'#3#129#1#0#8'TListBox'#8'ListBox1'#4'Le'
    17   +'ft'#2#10#6'Height'#3#231#0#3'Top'#2#11#5'Width'#3#180#0#7'Anchors'#11#5'akT'
    18   +'op'#6'akLeft'#8'akBottom'#0#10'ItemHeight'#2#0#8'TabOrder'#2#0#0#0#0#0#7'TB'
    19   +'utton'#11'ButtonClose'#4'Left'#3'D'#1#6'Height'#2#22#3'Top'#3'&'#1#5'Width'
    20   +#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#5'Close'#7'OnClick'
    21   +#7#16'ButtonCloseClick'#8'TabOrder'#2#1#0#0#0
     15  +'boBox1'#0#0#6'TLabel'#6'Label2'#4'Left'#2#7#6'Height'#2#14#3'Top'#2')'#5'Wi'
     16  +'dth'#2'u'#7'Caption'#6#24'Default header position:'#11'ParentColor'#8#0#0#9
     17  +'TComboBox'#9'ComboBox2'#4'Left'#3#132#0#6'Height'#2#21#3'Top'#2'&'#5'Width'
     18  +#2'd'#10'ItemHeight'#2#13#8'TabOrder'#2#1#4'Text'#6#9'ComboBox1'#0#0#0#9'TTa'
     19  +'bSheet'#15'TabSheetLayouts'#7'Caption'#6#7'Layouts'#12'ClientHeight'#3#252#0
     20  +#11'ClientWidth'#3#129#1#0#8'TListBox'#8'ListBox1'#4'Left'#2#10#6'Height'#3
     21  +#231#0#3'Top'#2#11#5'Width'#3#180#0#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBot'
     22  +'tom'#0#10'ItemHeight'#2#0#8'TabOrder'#2#0#0#0#0#0#7'TButton'#11'ButtonClose'
     23  +#4'Left'#3'D'#1#6'Height'#2#22#3'Top'#3'&'#1#5'Width'#2'K'#7'Anchors'#11#7'a'
     24  +'kRight'#8'akBottom'#0#7'Caption'#6#5'Close'#7'OnClick'#7#16'ButtonCloseClic'
     25  +'k'#8'TabOrder'#2#1#0#0#0
    2226]);

  • Docking/CoolDocking/UCoolDockCustomize.lrt

    r55 r60  
    33TCOOLDOCKCUSTOMIZEFORM.LABEL1.CAPTION=Default tabs position:
    44TCOOLDOCKCUSTOMIZEFORM.COMBOBOX1.TEXT=ComboBox1
     5TCOOLDOCKCUSTOMIZEFORM.LABEL2.CAPTION=Default header position:
     6TCOOLDOCKCUSTOMIZEFORM.COMBOBOX2.TEXT=ComboBox1
    57TCOOLDOCKCUSTOMIZEFORM.TABSHEETLAYOUTS.CAPTION=Layouts
    68TCOOLDOCKCUSTOMIZEFORM.BUTTONCLOSE.CAPTION=Close

  • Docking/CoolDocking/UCoolDockCustomize.pas

    r57 r60  
    1616    ButtonClose: TButton;
    1717    ComboBox1: TComboBox;
     18    ComboBox2: TComboBox;
    1819    Label1: TLabel;
     20    Label2: TLabel;
    1921    ListBox1: TListBox;
    2022    PageControl1: TPageControl;

  • Docking/CoolDocking/UCoolDocking.pas

    r59 r60  
    9595    FDockPanels: TObjectList; // of TCoolDockClientPanel
    9696    function FindControlInPanels(Control: TControl): TCoolDockClientPanel;
     97    function GetDockSite: TWinControl;
    9798    procedure InsertControlPanel(Control: TControl; InsertAt: TAlign;
    9899      DropCtl: TControl);
    … …  
    148149    property TabsPos: THeaderPos read FTabsPos write SetTabsPos;
    149150    property Master: TCoolDockMaster read FMaster write SetMaster;
     151    property DockSite: TWinControl read GetDockSite;
    150152  end;
    151153
    … …  
    186188  private
    187189    FDockable: Boolean;
     190    FFloatable: Boolean;
    188191    FMaster: TCoolDockMaster;
    189192    FPanel: TPanel;
    190193    procedure SetDockable(const AValue: Boolean);
     194    procedure SetFloatable(const AValue: Boolean);
    191195    procedure SetMaster(const AValue: TCoolDockMaster);
    192196    constructor Create(AOwner: TComponent); override;
    … …  
    196200    property Dockable: Boolean read FDockable
    197201      write SetDockable default True;
     202    property Floatable: Boolean read FFloatable
     203      write SetFloatable default True;
    198204    property Master: TCoolDockMaster read FMaster
    199205      write SetMaster;
    … …  
    247253  SCustomize = 'Customize...';
    248254  SWrongOwner = 'Owner of TCoolDockClient have to be TForm';
     255  SEnterNewWindowName = 'Enter new window name';
     256  SRenameWindow = 'Rename window';
    249257
    250258procedure Register;
    … …  
    269277  if I < FDockPanels.Count then Result := TCoolDockClientPanel(FDockPanels[I])
    270278    else Result := nil;
     279end;
     280
     281function TCoolDockManager.GetDockSite: TWinControl;
     282begin
     283  Result := FDockSite;
    271284end;
    272285
    … …  
    429442    OnChange := TabControlChange;
    430443    PopupMenu := PopupMenuTabs;
    431     OnMouseDown := TabControlMouseDown;
     444    //OnMouseDown := TabControlMouseDown;
     445    TTabControlNoteBookStrings(Tabs).NoteBook.OnMouseDown := TabControlMouseDown;
    432446    Images := TabImageList;
    433447  end;
    … …  
    518532    if DockStyle = dsTabs then begin
    519533      TabControl.Tabs.Add(Control.Caption);
     534      TabImageList.Add(NewPanel.Header.Icon.Picture.Bitmap, nil);
    520535      if Assigned(NewPanel.Splitter) then
    521536        NewPanel.Splitter.Visible := False;
    … …  
    820835
    821836procedure TCoolDockManager.PopupMenuRenameClick(Sender: TObject);
    822 begin
    823 
     837var
     838  Value: string;
     839begin
     840  Value := DockSite.Parent.Caption;
     841  if InputQuery(SRenameWindow, SEnterNewWindowName, False, Value) then
     842    DockSite.Parent.Caption := Value;
    824843end;
    825844
    … …  
    850869
    851870procedure TCoolDockManager.PopupMenuUndockClick(Sender: TObject);
    852 begin
    853 
     871var
     872  Control: TControl;
     873begin
     874
     875  //Control.ManualFloat(Control.BoundsRect);
    854876end;
    855877
    … …  
    13301352  if FDockable = AValue then Exit;
    13311353  FDockable := AValue;
    1332   if not (Owner is TForm) then
     1354  if (Owner is TForm) then
    13331355  with (Owner as TForm) do
    13341356  if AValue then begin
    … …  
    13391361    DragMode := dmManual;
    13401362  end;
     1363end;
     1364
     1365procedure TCoolDockClient.SetFloatable(const AValue: Boolean);
     1366begin
     1367  if FFloatable = AValue then Exit;
     1368  FFloatable := AValue;
    13411369end;
    13421370

  • Docking/CoolDocking/languages/UCoolDocking.cs.po

    r58 r60  
    3131msgstr "Záložky"
    3232
     33#: ucooldocking.senternewwindowname
     34msgid "Enter new window name"
     35msgstr ""
     36
    3337#: ucooldocking.sposition
    3438msgid "Position"
    … …  
    5963msgstr "Přejmenovat"
    6064
     65#: ucooldocking.srenamewindow
     66msgid "Rename window"
     67msgstr ""
     68
    6169#: ucooldocking.sundock
    6270msgid "Undock"

  • Docking/CoolDocking/languages/UCoolDocking.po

    r58 r60  
    2020#: ucooldocking.sdocktabs
    2121msgid "Tabs"
     22msgstr ""
     23
     24#: ucooldocking.senternewwindowname
     25msgid "Enter new window name"
    2226msgstr ""
    2327
    … …  
    5054msgstr ""
    5155
     56#: ucooldocking.srenamewindow
     57msgid "Rename window"
     58msgstr ""
     59
    5260#: ucooldocking.sundock
    5361msgid "Undock"
Note: See TracChangeset for help on using the changeset viewer.