Difference between revisions of "Shell Controls/ru"

From Lazarus wiki
Jump to navigationJump to search
m (Fixed syntax highlighting; deleted category included in page template)
 
(7 intermediate revisions by 4 users not shown)
Line 3: Line 3:
 
===TShellTreeView===
 
===TShellTreeView===
  
Компонент TShellTreeView находится на вкладке Mist.
+
Компонент TShellTreeView находится на вкладке Misc.
 
<div>[[Image:TShellTreeView.png]]</div>
 
<div>[[Image:TShellTreeView.png]]</div>
 
Свойства компонента TShellTreeView.
 
Свойства компонента TShellTreeView.
 
<div>[[Image:Property.png]]</div>
 
<div>[[Image:Property.png]]</div>
 +
Добавим компонент TShellListView. Соответственно укажем эти компоненты в свойствах друг друга.
 +
<div>[[Image:Выделение 221.png]]</div>
 +
Запустим программу. В Linux отображается корневой каталог.
 +
<div>[[Image:Form1 220.png]]</div>
 +
А лучше сделать текстовым способом.
 +
<syntaxhighlight lang=pascal>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;  </syntaxhighlight>
 +
<div>[[Image:Form1 222.png]]</div>

Latest revision as of 11:44, 26 February 2020

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