Difference between revisions of "Shell Controls"

From Lazarus wiki
m (Fixed syntax highlighting; deleted category included in page template)
(TShellTreeView: Don't use form name in form's class code.)
 
Line 25: Line 25:
 
<syntaxhighlight lang=pascal>procedure TForm1.FormCreate(Sender: TObject);
 
<syntaxhighlight lang=pascal>procedure TForm1.FormCreate(Sender: TObject);
 
begin
 
begin
   ShellTreeView2:= TShellTreeView.create(Form1);
+
   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:=Form1;
+
   ShellTreeView2.Parent:=Self;
 
end;  </syntaxhighlight>
 
end;  </syntaxhighlight>
 
<div>[[Image:Form1 222.png]]</div>
 
<div>[[Image:Form1 222.png]]</div>

Latest revision as of 10: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.

TShellTreeView.png

Component Properties TShellTreeView.

Property.png

Add component TShellListView. Set properties

ShellTreeView1.ShellListView := ShellListView1;
ShellListView1.ShellTreeView := ShellTreeView1;
Выделение 221.png

Run application. We can see root directory in Linux.

Form1 220.png

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;
Form1 222.png