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/Demo
Files:
2 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
Note: See TracChangeset for help on using the changeset viewer.