paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 16:00:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: codebrowser: implemented export as text, bug #16191

Browse Source 
git-svn-id: trunk@24394 -
This commit is contained in:
mattias 2010-04-04 14:28:19 +00:00
parent 77c705410a
commit 97905f75d6
1 changed files with 15 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
ide/codebrowser.pas
View File

@ -2662,48 +2662,41 @@ begin
end;
end;
function TCodeBrowserView.ExportTreeAsText(Filename: string): TModalResult;
function TCodeBrowserView.ExportTreeAsText(Filename: String): TModalResult;
procedure WriteNode(List: TStrings; const Prefix: string; Node: TTreeNode);
procedure WriteNode(var List: TStrings; Node: TTreeNode; Prefix: String='');
const
CodeBrowserTypes: array[1..3] of TClass =
(TCodeBrowserUnitList, TCodeBrowserUnit, TCodeBrowserNode);
NodeIndent = ' ';
var
Child: TTreeNode;
NewPrefix: String;
s: String;
i: Integer;
begin
if Node=nil then exit;
NewPrefix:=Prefix;
if Node.Data<>nil then begin
s:=Node.Text;
if TObject(Node.Data) is TCodeBrowserUnitList then begin
List.Add(Prefix+s);
NewPrefix:=Prefix+' ';
end else if TObject(Node.Data) is TCodeBrowserUnit then begin
List.Add(Prefix+s);
NewPrefix:=Prefix+' ';
end else if TObject(Node.Data) is TCodeBrowserNode then begin
List.Add(Prefix+s);
NewPrefix:=Prefix+' ';
for i:=Low(CodeBrowserTypes) to High(CodeBrowserTypes) do begin
if TObject(Node.Data) is CodeBrowserTypes[i] then begin
List.Add(prefix+Node.Text);
Prefix:=Prefix+NodeIndent;
break;
end;
end;
Child:=Node.GetFirstChild;
while Child<>nil do begin
WriteNode(List,NewPrefix,Child);
WriteNode(List,Child,Prefix);
Child:=Child.GetNextSibling;
end;
end;
var
List: TStringList;
Node: TTreeNode;
List: TStrings;
begin
Filename:=CleanAndExpandFilename(Filename);
Result:=CheckCreatingFile(Filename,true,true,true);
if Result<>mrOk then exit;
List:=TStringList.Create;
try
Node:=BrowseTreeView.Items.GetFirstNode;
WriteNode(List,'',Node);
WriteNode(List,BrowseTreeView.Items.GetFirstNode);
Result:=SaveStringToFile(Filename,List.Text,[],
'exporting identifiers as text');
finally