Ignore:
Timestamp:
Dec 8, 2010, 10:40:38 AM (14 years ago)
Author:
george
Message:
  • Added: Windows showing application component tree with names and types.
Location:
Docking/CoolDocking/Demo
Files:
2 added
4 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/Demo/Demo.lpi

    r63 r96  
    1717      <StringTable ProductVersion=""/>
    1818    </VersionInfo>
     19    <BuildModes Count="1">
     20      <Item1 Name="default" Default="True"/>
     21    </BuildModes>
    1922    <PublishOptions>
    2023      <Version Value="2"/>
    … …  
    3538      </Item2>
    3639    </RequiredPackages>
    37     <Units Count="54">
     40    <Units Count="57">
    3841      <Unit0>
    3942        <Filename Value="Demo.lpr"/>
    … …  
    4346        <TopLine Value="1"/>
    4447        <CursorPos X="6" Y="10"/>
    45         <UsageCount Value="126"/>
     48        <UsageCount Value="128"/>
    4649        <DefaultSyntaxHighlighter Value="Delphi"/>
    4750      </Unit0>
    … …  
    5255        <ResourceBaseClass Value="Form"/>
    5356        <UnitName Value="UMainForm"/>
    54         <WindowIndex Value="0"/>
    55         <TopLine Value="58"/>
    56         <CursorPos X="3" Y="72"/>
    57         <UsageCount Value="126"/>
     57        <EditorIndex Value="10"/>
     58        <WindowIndex Value="0"/>
     59        <TopLine Value="65"/>
     60        <CursorPos X="47" Y="78"/>
     61        <UsageCount Value="128"/>
     62        <Loaded Value="True"/>
     63        <LoadedDesigner Value="True"/>
    5864        <DefaultSyntaxHighlighter Value="Delphi"/>
    5965      </Unit1>
    … …  
    6167        <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
    6268        <UnitName Value="Controls"/>
    63         <WindowIndex Value="0"/>
    64         <TopLine Value="1296"/>
    65         <CursorPos X="15" Y="1309"/>
    66         <UsageCount Value="62"/>
     69        <EditorIndex Value="5"/>
     70        <WindowIndex Value="0"/>
     71        <TopLine Value="1916"/>
     72        <CursorPos X="14" Y="1929"/>
     73        <UsageCount Value="63"/>
     74        <Loaded Value="True"/>
    6775      </Unit2>
    6876      <Unit3>
    … …  
    7785      <Unit4>
    7886        <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    79         <WindowIndex Value="0"/>
    80         <TopLine Value="71"/>
    81         <CursorPos X="1" Y="83"/>
    82         <UsageCount Value="55"/>
     87        <EditorIndex Value="7"/>
     88        <WindowIndex Value="0"/>
     89        <TopLine Value="4767"/>
     90        <CursorPos X="1" Y="4794"/>
     91        <UsageCount Value="56"/>
     92        <Loaded Value="True"/>
    8393      </Unit4>
    8494      <Unit5>
    8595        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    86         <WindowIndex Value="0"/>
    87         <TopLine Value="5229"/>
    88         <CursorPos X="33" Y="5245"/>
     96        <EditorIndex Value="14"/>
     97        <WindowIndex Value="0"/>
     98        <TopLine Value="3429"/>
     99        <CursorPos X="1" Y="3442"/>
    89100        <UsageCount Value="61"/>
     101        <Loaded Value="True"/>
    90102      </Unit5>
    91103      <Unit6>
    … …  
    122134        <Filename Value="E:\Programy\Lazarus\lcl\lclproc.pas"/>
    123135        <UnitName Value="LCLProc"/>
    124         <WindowIndex Value="0"/>
    125         <TopLine Value="1495"/>
    126         <CursorPos X="1" Y="1516"/>
     136        <EditorIndex Value="12"/>
     137        <WindowIndex Value="0"/>
     138        <TopLine Value="2412"/>
     139        <CursorPos X="38" Y="2417"/>
    127140        <UsageCount Value="26"/>
     141        <Loaded Value="True"/>
    128142      </Unit10>
    129143      <Unit11>
    … …  
    166180        <TopLine Value="7"/>
    167181        <CursorPos X="33" Y="21"/>
    168         <UsageCount Value="125"/>
     182        <UsageCount Value="127"/>
    169183        <DefaultSyntaxHighlighter Value="Delphi"/>
    170184      </Unit15>
    … …  
    214228        <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
    215229        <UnitName Value="ExtCtrls"/>
    216         <WindowIndex Value="0"/>
    217         <TopLine Value="1250"/>
    218         <CursorPos X="19" Y="1263"/>
     230        <EditorIndex Value="4"/>
     231        <WindowIndex Value="0"/>
     232        <TopLine Value="263"/>
     233        <CursorPos X="3" Y="273"/>
    219234        <UsageCount Value="28"/>
     235        <Loaded Value="True"/>
    220236      </Unit21>
    221237      <Unit22>
    222238        <Filename Value="E:\Programy\Lazarus\lcl\interfaces\win32\win32wsbuttons.pp"/>
    223239        <UnitName Value="Win32WSButtons"/>
    224         <WindowIndex Value="0"/>
    225         <TopLine Value="479"/>
    226         <CursorPos X="30" Y="488"/>
    227         <UsageCount Value="1"/>
     240        <EditorIndex Value="15"/>
     241        <WindowIndex Value="0"/>
     242        <TopLine Value="480"/>
     243        <CursorPos X="37" Y="496"/>
     244        <UsageCount Value="10"/>
     245        <Loaded Value="True"/>
    228246      </Unit22>
    229247      <Unit23>
    … …  
    236254      <Unit24>
    237255        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
    238         <WindowIndex Value="0"/>
    239         <TopLine Value="1452"/>
    240         <CursorPos X="5" Y="1467"/>
     256        <EditorIndex Value="11"/>
     257        <WindowIndex Value="0"/>
     258        <TopLine Value="2573"/>
     259        <CursorPos X="36" Y="2586"/>
    241260        <UsageCount Value="11"/>
     261        <Loaded Value="True"/>
    242262      </Unit24>
    243263      <Unit25>
    … …  
    252272        <Filename Value="E:\Programy\Lazarus\lcl\comctrls.pp"/>
    253273        <UnitName Value="ComCtrls"/>
    254         <WindowIndex Value="0"/>
    255         <TopLine Value="398"/>
    256         <CursorPos X="59" Y="408"/>
    257         <UsageCount Value="12"/>
     274        <EditorIndex Value="2"/>
     275        <WindowIndex Value="0"/>
     276        <TopLine Value="553"/>
     277        <CursorPos X="29" Y="560"/>
     278        <UsageCount Value="12"/>
     279        <Loaded Value="True"/>
    258280      </Unit26>
    259281      <Unit27>
    260282        <Filename Value="E:\Programy\Lazarus\lcl\forms.pp"/>
    261283        <UnitName Value="Forms"/>
    262         <WindowIndex Value="0"/>
    263         <TopLine Value="529"/>
    264         <CursorPos X="21" Y="541"/>
     284        <EditorIndex Value="13"/>
     285        <WindowIndex Value="0"/>
     286        <TopLine Value="492"/>
     287        <CursorPos X="14" Y="505"/>
    265288        <UsageCount Value="35"/>
     289        <Loaded Value="True"/>
    266290      </Unit27>
    267291      <Unit28>
    … …  
    272296        <TopLine Value="2148"/>
    273297        <CursorPos X="21" Y="2148"/>
    274         <UsageCount Value="30"/>
     298        <UsageCount Value="31"/>
    275299        <Loaded Value="True"/>
    276300      </Unit28>
    … …  
    314338        <EditorIndex Value="1"/>
    315339        <WindowIndex Value="0"/>
    316         <TopLine Value="1044"/>
    317         <CursorPos X="49" Y="1054"/>
    318         <UsageCount Value="53"/>
     340        <TopLine Value="819"/>
     341        <CursorPos X="78" Y="826"/>
     342        <UsageCount Value="54"/>
    319343        <Loaded Value="True"/>
    320344        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    389413        <TopLine Value="1"/>
    390414        <CursorPos X="53" Y="2"/>
    391         <UsageCount Value="68"/>
     415        <UsageCount Value="70"/>
    392416        <DefaultSyntaxHighlighter Value="Delphi"/>
    393417      </Unit41>
    … …  
    416440      <Unit45>
    417441        <Filename Value="E:\Programy\Lazarus\lcl\include\tabcontrol.inc"/>
    418         <WindowIndex Value="0"/>
    419         <TopLine Value="182"/>
    420         <CursorPos X="3" Y="184"/>
    421         <UsageCount Value="12"/>
     442        <EditorIndex Value="3"/>
     443        <WindowIndex Value="0"/>
     444        <TopLine Value="233"/>
     445        <CursorPos X="45" Y="239"/>
     446        <UsageCount Value="12"/>
     447        <Loaded Value="True"/>
    422448      </Unit45>
    423449      <Unit46>
    … …  
    477503        <UsageCount Value="11"/>
    478504      </Unit53>
     505      <Unit54>
     506        <Filename Value="UComponentTree.pas"/>
     507        <IsPartOfProject Value="True"/>
     508        <ComponentName Value="ComponentTree"/>
     509        <ResourceBaseClass Value="Form"/>
     510        <UnitName Value="UComponentTree"/>
     511        <EditorIndex Value="8"/>
     512        <WindowIndex Value="0"/>
     513        <TopLine Value="37"/>
     514        <CursorPos X="33" Y="52"/>
     515        <UsageCount Value="22"/>
     516        <Loaded Value="True"/>
     517        <LoadedDesigner Value="True"/>
     518        <DefaultSyntaxHighlighter Value="Delphi"/>
     519      </Unit54>
     520      <Unit55>
     521        <Filename Value="E:\Programy\Lazarus\lcl\include\treeview.inc"/>
     522        <EditorIndex Value="9"/>
     523        <WindowIndex Value="0"/>
     524        <TopLine Value="311"/>
     525        <CursorPos X="3" Y="332"/>
     526        <UsageCount Value="11"/>
     527        <Loaded Value="True"/>
     528      </Unit55>
     529      <Unit56>
     530        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\classes\classesh.inc"/>
     531        <EditorIndex Value="6"/>
     532        <WindowIndex Value="0"/>
     533        <TopLine Value="1659"/>
     534        <CursorPos X="17" Y="1675"/>
     535        <UsageCount Value="11"/>
     536        <Loaded Value="True"/>
     537      </Unit56>
    479538    </Units>
    480     <JumpHistory Count="13" HistoryIndex="12">
     539    <JumpHistory Count="30" HistoryIndex="28">
    481540      <Position1>
    482         <Filename Value="..\UCoolDocking.pas"/>
    483         <Caret Line="1032" Column="39" TopLine="1017"/>
     541        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     542        <Caret Line="4520" Column="1" TopLine="4507"/>
    484543      </Position1>
    485544      <Position2>
    486         <Filename Value="..\UCoolDocking.pas"/>
    487         <Caret Line="1020" Column="1" TopLine="1015"/>
     545        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     546        <Caret Line="4525" Column="1" TopLine="4507"/>
    488547      </Position2>
    489548      <Position3>
    490         <Filename Value="..\UCoolDocking.pas"/>
    491         <Caret Line="1020" Column="14" TopLine="1015"/>
     549        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     550        <Caret Line="4520" Column="1" TopLine="4507"/>
    492551      </Position3>
    493552      <Position4>
    494         <Filename Value="..\UCoolDocking.pas"/>
    495         <Caret Line="1020" Column="49" TopLine="1007"/>
     553        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     554        <Caret Line="4521" Column="1" TopLine="4507"/>
    496555      </Position4>
    497556      <Position5>
    498         <Filename Value="..\UCoolDocking.pas"/>
    499         <Caret Line="1022" Column="1" TopLine="1013"/>
     557        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     558        <Caret Line="4523" Column="1" TopLine="4507"/>
    500559      </Position5>
    501560      <Position6>
    502         <Filename Value="..\UCoolDocking.pas"/>
    503         <Caret Line="1020" Column="45" TopLine="1007"/>
     561        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     562        <Caret Line="4525" Column="1" TopLine="4507"/>
    504563      </Position6>
    505564      <Position7>
    506         <Filename Value="..\UCoolDocking.pas"/>
    507         <Caret Line="13" Column="11" TopLine="1"/>
     565        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     566        <Caret Line="4411" Column="23" TopLine="4401"/>
    508567      </Position7>
    509568      <Position8>
    510         <Filename Value="..\UCoolDocking.pas"/>
    511         <Caret Line="1021" Column="68" TopLine="1008"/>
     569        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     570        <Caret Line="4410" Column="1" TopLine="4401"/>
    512571      </Position8>
    513572      <Position9>
    514         <Filename Value="..\UCoolDocking.pas"/>
    515         <Caret Line="1027" Column="1" TopLine="1008"/>
     573        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     574        <Caret Line="4457" Column="1" TopLine="4436"/>
    516575      </Position9>
    517576      <Position10>
    518         <Filename Value="..\UCoolDocking.pas"/>
    519         <Caret Line="1024" Column="9" TopLine="1008"/>
     577        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     578        <Caret Line="799" Column="1" TopLine="786"/>
    520579      </Position10>
    521580      <Position11>
    522         <Filename Value="..\UCoolDocking.pas"/>
    523         <Caret Line="904" Column="77" TopLine="899"/>
     581        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     582        <Caret Line="800" Column="1" TopLine="786"/>
    524583      </Position11>
    525584      <Position12>
    526         <Filename Value="..\UCoolDocking.pas"/>
    527         <Caret Line="1064" Column="38" TopLine="1045"/>
     585        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     586        <Caret Line="1727" Column="1" TopLine="1714"/>
    528587      </Position12>
    529588      <Position13>
     589        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     590        <Caret Line="1728" Column="1" TopLine="1714"/>
     591      </Position13>
     592      <Position14>
     593        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     594        <Caret Line="1729" Column="1" TopLine="1714"/>
     595      </Position14>
     596      <Position15>
     597        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     598        <Caret Line="1733" Column="20" TopLine="1714"/>
     599      </Position15>
     600      <Position16>
     601        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     602        <Caret Line="1734" Column="1" TopLine="1714"/>
     603      </Position16>
     604      <Position17>
     605        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     606        <Caret Line="1737" Column="22" TopLine="1725"/>
     607      </Position17>
     608      <Position18>
     609        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     610        <Caret Line="3442" Column="1" TopLine="3429"/>
     611      </Position18>
     612      <Position19>
     613        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     614        <Caret Line="1737" Column="1" TopLine="1725"/>
     615      </Position19>
     616      <Position20>
     617        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     618        <Caret Line="3442" Column="1" TopLine="3429"/>
     619      </Position20>
     620      <Position21>
     621        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     622        <Caret Line="2586" Column="1" TopLine="2573"/>
     623      </Position21>
     624      <Position22>
     625        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     626        <Caret Line="1737" Column="1" TopLine="1724"/>
     627      </Position22>
     628      <Position23>
     629        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     630        <Caret Line="2587" Column="32" TopLine="2570"/>
     631      </Position23>
     632      <Position24>
     633        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     634        <Caret Line="2586" Column="1" TopLine="2570"/>
     635      </Position24>
     636      <Position25>
     637        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     638        <Caret Line="2588" Column="1" TopLine="2570"/>
     639      </Position25>
     640      <Position26>
     641        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     642        <Caret Line="1744" Column="1" TopLine="1731"/>
     643      </Position26>
     644      <Position27>
     645        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     646        <Caret Line="2587" Column="34" TopLine="2573"/>
     647      </Position27>
     648      <Position28>
     649        <Filename Value="E:\Programy\Lazarus\lcl\include\customform.inc"/>
     650        <Caret Line="1744" Column="1" TopLine="1731"/>
     651      </Position28>
     652      <Position29>
    530653        <Filename Value="..\UCoolDocking.pas"/>
    531         <Caret Line="1054" Column="1" TopLine="1044"/>
    532       </Position13>
     654        <Caret Line="826" Column="47" TopLine="819"/>
     655      </Position29>
     656      <Position30>
     657        <Filename Value="..\UCoolDocking.pas"/>
     658        <Caret Line="69" Column="5" TopLine="56"/>
     659      </Position30>
    533660    </JumpHistory>
    534661  </ProjectOptions>
    … …  
    562689        <UseHeaptrc Value="True"/>
    563690      </Debugging>
    564       <Options>
    565         <Win32>
    566           <GraphicApplication Value="True"/>
    567         </Win32>
    568       </Options>
    569691    </Linking>
    570692    <Other>
    … …  
    577699  </CompilerOptions>
    578700  <Debugging>
    579     <Watches Count="1">
     701    <Watches Count="2">
    580702      <Item1>
    581         <Expression Value="TabControl"/>
     703        <Expression Value="Self.FName"/>
    582704      </Item1>
     705      <Item2>
     706        <Expression Value="List.FCount"/>
     707      </Item2>
    583708    </Watches>
    584709    <Exceptions Count="3">

  • Docking/CoolDocking/Demo/Demo.lpr

    r58 r96  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UMainForm, UDockForm, CoolDocking, SampleDockableForm;
     10  Forms, UMainForm, UDockForm, CoolDocking, SampleDockableForm, UComponentTree;
    1111
    1212{$R *.res}
    … …  
    1616  Application.CreateForm(TMainForm, MainForm);
    1717  Application.CreateForm(TForm1, Form1);
     18  Application.CreateForm(TComponentTree, ComponentTree);
    1819  Application.Run;
    1920end.

  • Docking/CoolDocking/Demo/UMainForm.lfm

    r59 r96  
    3131    TabOrder = 1
    3232  end
     33  object Button2: TButton
     34    Left = 94
     35    Height = 25
     36    Top = 10
     37    Width = 107
     38    Caption = 'Component tree'
     39    OnClick = Button2Click
     40    TabOrder = 2
     41  end
    3342  object CoolDockMaster1: TCoolDockMaster
    3443    TabsEnabled = False
     44    DefaultTabsPos = hpAuto
    3545    DefaultHeaderPos = hpAuto
    3646    Customize = CoolDockCustomize1
    … …  
    6575  object CoolDockClient1: TCoolDockClient
    6676    Dockable = False
     77    Floatable = False
    6778    Master = CoolDockMaster1
    6879    Panel = Panel1

  • Docking/CoolDocking/Demo/UMainForm.pas

    r62 r96  
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    99  ComCtrls, ExtCtrls, Buttons, Menus, UCoolDocking, UCoolDockCustomize,
    10   UDockForm;
     10  UDockForm, UComponentTree;
    1111
    1212type
    … …  
    1616  TMainForm = class(TForm)
    1717    Button1: TButton;
     18    Button2: TButton;
    1819    CoolDockClient1: TCoolDockClient;
    1920    CoolDockCustomize1: TCoolDockCustomize;
    … …  
    2728    Panel1: TPanel;
    2829    procedure Button1Click(Sender: TObject);
     30    procedure Button2Click(Sender: TObject);
    2931    procedure FormCreate(Sender: TObject);
    3032    procedure FormDestroy(Sender: TObject);
    … …  
    7072  ConjoinedDockForm1.ManualDock(Panel1);
    7173  TCoolDockManager(ConjoinedDockForm1.Panel.DockManager).DockStyle := dsTabs;
    72   (*NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
     74  NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
    7375  NewDockForm.ManualDock(ConjoinedDockForm1.Panel);
    7476  NewDockForm.ManualDock(TForm(DockForms[0]));
    7577  NewDockForm.ManualDock(TForm(DockForms[0]));
    76   NewDockForm.ManualDock(TForm(DockForms[0]));*)
     78  NewDockForm.ManualDock(TForm(DockForms[0]));
    7779//  TCustomDockManager(TDockForm(DockForms[0]).DockManager).DockStyle := dsTabs;
    7880end;
    … …  
    107109end;
    108110
     111procedure TMainForm.Button2Click(Sender: TObject);
     112begin
     113  ComponentTree.Show;
     114end;
     115
    109116end.
    110117
Note: See TracChangeset for help on using the changeset viewer.