Difference between revisions of "Shell Controls"
From Lazarus wiki
Jump to navigationJump to searchEastorwest (talk | contribs) |
(→TShellTreeView: Don't use form name in form's class code.) |
||
| (2 intermediate revisions by 2 users not shown) | |||
| Line 4: | Line 4: | ||
===TShellTreeView=== | ===TShellTreeView=== | ||
| + | |||
TShellTreeView component under the tab Misc. | TShellTreeView component under the tab Misc. | ||
<div>[[Image:TShellTreeView.png]]</div> | <div>[[Image:TShellTreeView.png]]</div> | ||
Component Properties TShellTreeView. | Component Properties TShellTreeView. | ||
<div>[[Image:Property.png]]</div> | <div>[[Image:Property.png]]</div> | ||
| + | |||
Add component TShellListView. Set properties | Add component TShellListView. Set properties | ||
| − | <syntaxhighlight> | + | |
| + | <syntaxhighlight lang=pascal> | ||
ShellTreeView1.ShellListView := ShellListView1; | ShellTreeView1.ShellListView := ShellListView1; | ||
ShellListView1.ShellTreeView := ShellTreeView1; | ShellListView1.ShellTreeView := ShellTreeView1; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| + | |||
<div>[[Image:Выделение 221.png]]</div> | <div>[[Image:Выделение 221.png]]</div> | ||
Run application. We can see root directory in Linux. | Run application. We can see root directory in Linux. | ||
<div>[[Image:Form1 220.png]]</div> | <div>[[Image:Form1 220.png]]</div> | ||
| − | Better way to do is: | + | |
| − | <syntaxhighlight>procedure TForm1.FormCreate(Sender: TObject); | + | Better way to do this is: |
| + | |||
| + | <syntaxhighlight lang=pascal>procedure TForm1.FormCreate(Sender: TObject); | ||
begin | begin | ||
| − | ShellTreeView2:= TShellTreeView.create( | + | ShellTreeView2:= TShellTreeView.create(Self); |
ShellTreeView2.Left:=10; | ShellTreeView2.Left:=10; | ||
ShellTreeView2.Top:=10; | ShellTreeView2.Top:=10; | ||
ShellTreeView2.Width:=250; | ShellTreeView2.Width:=250; | ||
ShellTreeView2.Height:=430; | ShellTreeView2.Height:=430; | ||
| − | ShellTreeView2.Parent:= | + | ShellTreeView2.Parent:=Self; |
end; </syntaxhighlight> | end; </syntaxhighlight> | ||
<div>[[Image:Form1 222.png]]</div> | <div>[[Image:Form1 222.png]]</div> | ||
| − | |||
| − | |||
Latest revision as of 11:47, 11 February 2021
│
English (en) │
русский (ru) │
The Shell Controls are a series of advanced controls destinated to beaultifully represent files and directories of the system.
TShellTreeView
TShellTreeView component under the tab Misc.
Component Properties TShellTreeView.
Add component TShellListView. Set properties
ShellTreeView1.ShellListView := ShellListView1;
ShellListView1.ShellTreeView := ShellTreeView1;
Run application. We can see root directory in Linux.
Better way to do this is:
procedure TForm1.FormCreate(Sender: TObject);
begin
ShellTreeView2:= TShellTreeView.create(Self);
ShellTreeView2.Left:=10;
ShellTreeView2.Top:=10;
ShellTreeView2.Width:=250;
ShellTreeView2.Height:=430;
ShellTreeView2.Parent:=Self;
end;
