Difference between revisions of "Shell Controls/ru"

From Lazarus wiki
m (Опечатка)
m (Text replace - "delphi>" to "syntaxhighlight>")
Line 12: Line 12:
 
<div>[[Image:Form1 220.png]]</div>
 
<div>[[Image:Form1 220.png]]</div>
 
А лучше сделать текстовым способом.
 
А лучше сделать текстовым способом.
<delphi>procedure TForm1.FormCreate(Sender: TObject);
+
<syntaxhighlight>procedure TForm1.FormCreate(Sender: TObject);
 
begin
 
begin
 
   ShellTreeView2:= TShellTreeView.create(Form1);
 
   ShellTreeView2:= TShellTreeView.create(Form1);
Line 20: Line 20:
 
   ShellTreeView2.Height:=430;
 
   ShellTreeView2.Height:=430;
 
   ShellTreeView2.Parent:=Form1;
 
   ShellTreeView2.Parent:=Form1;
end;  </delphi>
+
end;  </syntaxhighlight>
 
<div>[[Image:Form1 222.png]]</div>
 
<div>[[Image:Form1 222.png]]</div>
  
 
Mihail Chichkanov
 
Mihail Chichkanov

Revision as of 15:57, 24 March 2012

English (en) русский (ru)

TShellTreeView

Компонент TShellTreeView находится на вкладке Misc.

TShellTreeView.png

Свойства компонента TShellTreeView.

Property.png

Добавим компонент TShellListView. Соответственно укажем эти компоненты в свойствах друг друга.

Выделение 221.png

Запустим программу. В Linux отображается корневой каталог.

Form1 220.png

А лучше сделать текстовым способом.

procedure TForm1.FormCreate(Sender: TObject);
begin
   ShellTreeView2:= TShellTreeView.create(Form1);
   ShellTreeView2.Left:=10;
   ShellTreeView2.Top:=10;
   ShellTreeView2.Width:=250;
   ShellTreeView2.Height:=430;
   ShellTreeView2.Parent:=Form1;
end;
Form1 222.png

Mihail Chichkanov