Материал: Мансуров. Основы программирования в среде Lazarus. 2010

Глава 6 Программирование приложений с графическим интерфейсом

____________________________________________________________________

SysUtils.FindClose(srNode);

end;

end;

TreeView1.EndUpdate;

// установка свойств ListView1 with ListView1 do

begin

Align:= alClient;

ViewStyle:= vsReport;

Columns.Add;

Columns.Items[0].Width:= 425;

ScrollBars:= ssAutoBoth;

SmallImages:= ImageList1;

end;

end;

procedure TForm1.ShowExpandNode(ParentNode: TTreeNode; DirName: string; ShowMode: integer;

IsinTListView: boolean);

var

srNode, srChild: TSearchRec; Node: TTreeNode; SearchMode: LongInt; ListItem: TListItem; searchMask: string;

begin

if not IsinTListView then path:= GetPath(ParentNode)

else

711

6.3 Визуальное программирование в среде Lazarus

____________________________________________________________________

begin

if ShowMode = 1 then begin

oldpath:= path; ListView1.Clear;

end;

path:= GetPath_1(DirName, oldpath); end;

if ShowMode = 2 then SearchMode:= faAnyFile

else

SearchMode:= faDirectory;

if FindFirst(path + '*', SearchMode, srNode) = 0 then repeat

if ((srNode.Attr and faDirectory <> 0) and Real_Directory(srNode.Name)) or ((srNode.Attr and faDirectory = 0) and (ShowMode = 2)) then

begin

if ShowMode <> 2 then

if not IsinTListView then

Node:= TreeView1.Items.AddChild(ParentNode,

SysToUTF8(srNode.Name));

case ShowMode of 0: begin

Node.ImageIndex:= 0;

Node.SelectedIndex:= 0;

end; 1: begin

712

Глава 6 Программирование приложений с графическим интерфейсом

____________________________________________________________________

ListItem:= ListView1.Items.Add;

ListItem.Caption:= SysToUTF8(srNode.Name);

ListItem.ImageIndex:= 0

end;

2:if srNode.Attr and faDirectory = 0 then begin

if srNode.Attr and faHidden = 0 then begin

ListItem:= ListView1.Items.Add; ListItem.Caption:= SysToUTF8(srNode.Name);; ListItem.ImageIndex:= 1;

end;

end;

end;

if not IsinTListView then begin

{$IFDEF WINDOWS}

searchMask:= path + srNode.Name + '\*'; {$ELSE}

searchMask:= path + srNode.Name + '/*'; {$ENDIF}

if FindFirst(searchMask, faDirectory, srChild) = 0 then

repeat

if (srChild.Attr and faDirectory <> 0) and Real_Directory(srChild.Name)

then Node.HasChildren:= true;

until (FindNext(srChild) <> 0) or Node.HasChildren; SysUtils.FindClose(srChild);

713

6.3 Визуальное программирование в среде Lazarus

____________________________________________________________________

end;

end;

until FindNext(srNode) <> 0; SysUtils.FindClose(srNode);

end;

procedure TForm1.ListView1DblClick(Sender: TObject); var

s: string; AProcess: TProcess; srNode: TSearchRec; DirName: string;

IsinTListView: boolean; begin

if ListView1.Selected = nil then exit; {$IFDEF WINDOWS}

s:= path + UTF8ToSys(ListView1.Selected.Caption); {$ELSE}

s:= path + ListView1.Selected.Caption; {$ENDIF}

if FindFirst(s, faAnyFile, srNode) = 0 then if (srNode.Attr and faDirectory) <> 0 then begin

DirName:= ListView1.Selected.Caption;

IsinTListView:= true;

ShowExpandNode(nil, DirName, 1, IsinTListView);

ShowExpandNode(nil, DirName, 2, IsinTListView);

SysUtils.FindClose(srNode);

exit;

714

Глава 6 Программирование приложений с графическим интерфейсом

____________________________________________________________________

end;

if (srNode.Attr and faHidden) = 0 then begin

AProcess:= TProcess.Create(nil);

{$IFDEF UNIX}

if MessageDlg('Открывать в терминале?', mtCustom, [mbYes, mbNO], 0) = mrYes then

s:= 'xterm -T ''Lazarus Run Output''' + ' -e $(TargetCmdLine)' + s;

{$ENDIF} AProcess.CommandLine:= s; AProcess.Execute; AProcess.Free;

end;

end;

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);

var

IsinTListView: boolean; begin

if Node = nil then exit; TreeView1.BeginUpdate; ListView1.BeginUpdate; ListView1.Clear; Node.DeleteChildren; IsinTListView:= false;

ShowExpandNode(Node, '', 1, IsinTListView); ShowExpandNode(Node, '', 2, IsinTListView); Node.Expanded:= true;

715