Difference between revisions of "Shell Controls/ru"
From Lazarus wiki
Jump to navigationJump to searchSekelsenmat (talk | contribs) |
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 находится на вкладке | + | Компонент 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.
Добавим компонент TShellListView. Соответственно укажем эти компоненты в свойствах друг друга.
Запустим программу. В Linux отображается корневой каталог.
А лучше сделать текстовым способом.
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;