paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 07:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fpdoc link editor: listing main identifiers

Browse Source 
git-svn-id: trunk@21031 -
This commit is contained in:
mattias 2009-07-31 18:51:50 +00:00
parent 58d2b04013
commit d0ec890db7
2 changed files with 61 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/fpdoceditwindow.pas
View File

@ -359,7 +359,7 @@ var
LinkTitle: string;
LinkSrc: String;
begin
if (ShowFPDocLinkEditorDialog(fSourceFilename,Link,LinkTitle)<>mrOk)
if (ShowFPDocLinkEditorDialog(fSourceFilename,DocFile,Link,LinkTitle)<>mrOk)
or (Link='') then exit;
LinkSrc:='<link id="'+Link+'"';
if LinkTitle='' then begin

72
ide/fpdocselectlink.pas
View File

@ -33,7 +33,7 @@ uses
Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics, Dialogs,
ExtCtrls, StdCtrls, ButtonPanel, FileUtil,
PackageIntf, ProjectIntf,
LazarusIDEStrConsts, PackageSystem, PackageDefs;
CodeHelp, LazarusIDEStrConsts, PackageSystem, PackageDefs, Laz_DOM;
type
@ -64,6 +64,7 @@ type
procedure AddPackage(Pkg: TLazPackage);
procedure AddProjectFile(AFile: TLazProjectFile);
procedure AddPackageFile(AFile: TPkgFile);
procedure AddIdentifier(Identifier: string);
procedure Draw(Canvas: TCanvas; Width, Height: integer);
property Count: integer read GetCount;
property Items[Index: integer]: TFPDocLinkCompletionItem read GetItems;
@ -87,30 +88,35 @@ type
procedure LinkEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
);
private
FDocFile: TLazFPDocFile;
fItems: TFPDocLinkCompletionList;
FSourceFilename: string;
fSourceOwner: TObject;
function GetLink: string;
function GetLinkTitle: string;
procedure SetDocFile(const AValue: TLazFPDocFile);
procedure SetLink(const AValue: string);
procedure SetLinkTitle(const AValue: string);
procedure SetSourceFilename(const AValue: string);
procedure UpdateCompletionBox;
procedure AddPackagesToCompletion(Prefix: string);
procedure AddSiblingUnits(Prefix: string);
procedure AddIdentifiers(Prefix: string);
public
procedure SetLink(const ASrcFilename, ATitle, ALink: string);
procedure SetLink(const ASrcFilename, ATitle, ALink: string;
ADocFile: TLazFPDocFile);
property SourceFilename: string read FSourceFilename write SetSourceFilename;
property LinkTitle: string read GetLinkTitle write SetLinkTitle;
property Link: string read GetLink write SetLink;
property DocFile: TLazFPDocFile read FDocFile write SetDocFile;
end;
function ShowFPDocLinkEditorDialog(SrcFilename: string;
function ShowFPDocLinkEditorDialog(SrcFilename: string; DocFile: TLazFPDocFile;
out Link, LinkTitle: string): TModalResult;
implementation
function ShowFPDocLinkEditorDialog(SrcFilename: string;
function ShowFPDocLinkEditorDialog(SrcFilename: string; DocFile: TLazFPDocFile;
out Link, LinkTitle: string): TModalResult;
var
FPDocLinkEditorDlg: TFPDocLinkEditorDlg;
@ -119,7 +125,7 @@ begin
LinkTitle:='';
FPDocLinkEditorDlg:=TFPDocLinkEditorDlg.Create(nil);
try
FPDocLinkEditorDlg.SetLink(SrcFilename,LinkTitle,Link);
FPDocLinkEditorDlg.SetLink(SrcFilename,LinkTitle,Link,DocFile);
Result:=FPDocLinkEditorDlg.ShowModal;
if Result=mrOk then begin
Link:=FPDocLinkEditorDlg.Link;
@ -218,6 +224,7 @@ begin
if (l='') then begin
AddPackagesToCompletion(l);
AddSiblingUnits(l);
AddIdentifiers(l);
end else begin
end;
@ -244,30 +251,60 @@ var
ProjFile: TLazProjectFile;
APackage: TLazPackage;
PkgFile: TPkgFile;
Filename: String;
begin
if fSourceOwner=nil then exit;
if fSourceOwner is TLazProject then begin
AProject:=TLazProject(fSourceOwner);
for i:=0 to AProject.FileCount-1 do begin
ProjFile:=AProject.Files[i];
if ProjFile.IsPartOfProject
and FilenameIsPascalUnit(ProjFile.Filename) then
fItems.AddProjectFile(ProjFile);
if ProjFile.IsPartOfProject then begin
Filename:=ProjFile.Filename;
if FilenameIsPascalUnit(Filename) then begin
Filename:=ExtractFileNameOnly(Filename);
if (CompareFilenames(Prefix,copy(Filename,1,length(Prefix)))=0) then
fItems.AddProjectFile(ProjFile);
end;
end;
end;
end else if fSourceOwner is TLazPackage then begin
APackage:=TLazPackage(fSourceOwner);
for i:=0 to APackage.FileCount-1 do begin
PkgFile:=APackage.Files[i];
if FilenameIsPascalUnit(PkgFile.Filename) then
fItems.AddPackageFile(PkgFile);
if FilenameIsPascalUnit(PkgFile.Filename) then begin
Filename:=PkgFile.Filename;
if FilenameIsPascalUnit(Filename) then begin
Filename:=ExtractFileNameOnly(Filename);
if (CompareFilenames(Prefix,copy(Filename,1,length(Prefix)))=0) then
fItems.AddPackageFile(PkgFile);
end;
end;
end;
end;
end;
procedure TFPDocLinkEditorDlg.SetLink(const ASrcFilename, ATitle, ALink: string
);
procedure TFPDocLinkEditorDlg.AddIdentifiers(Prefix: string);
var
DOMNode: TDOMNode;
ElementName: String;
begin
if fDocFile=nil then exit;
DOMNode:=FDocFile.GetFirstElement;
while DOMNode<>nil do begin
if (DOMNode is TDomElement) then begin
ElementName:=TDomElement(DOMNode).GetAttribute('name');
if System.Pos('.',ElementName)<1 then
FItems.AddIdentifier(ElementName);
end;
DOMNode:=DOMNode.NextSibling;
end;
end;
procedure TFPDocLinkEditorDlg.SetLink(const ASrcFilename, ATitle, ALink: string;
ADocFile: TLazFPDocFile);
begin
SourceFilename:=ASrcFilename;
DocFile:=ADocFile;
LinkTitle:=ATitle;
Link:=ALink;
UpdateCompletionBox;
@ -278,6 +315,12 @@ begin
Result:=TitleEdit.Text;
end;
procedure TFPDocLinkEditorDlg.SetDocFile(const AValue: TLazFPDocFile);
begin
if FDocFile=AValue then exit;
FDocFile:=AValue;
end;
function TFPDocLinkEditorDlg.GetLink: string;
begin
Result:=LinkEdit.Text;
@ -355,6 +398,11 @@ begin
ExtractFileNameOnly(AFile.Filename),'package unit'));
end;
procedure TFPDocLinkCompletionList.AddIdentifier(Identifier: string);
begin
FItems.Add(TFPDocLinkCompletionItem.Create(Identifier,'identifier'));
end;
procedure TFPDocLinkCompletionList.Draw(Canvas: TCanvas; Width, Height: integer);
var
i: LongInt;