paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-19 20:51:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fpdoc editor: changed addlinktoinherited button to set the link attribute

Browse Source 
git-svn-id: trunk@15967 -
This commit is contained in:
mattias 2008-08-06 09:10:20 +00:00
parent 5b14ebccf3
commit 2e066c2d2a
2 changed files with 671 additions and 1299 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1875
docs/xml/lcl/extctrls.xml
View File

File diff suppressed because it is too large Load Diff

27
ide/fpdoceditwindow.pas
View File

@ -242,16 +242,14 @@ procedure TFPDocEditor.FormCreate(Sender: TObject);
begin
Caption := lisCodeHelpMainFormCaption;
with PageControl do
begin
Page[0].Caption := lisCodeHelpShortTag;
Page[1].Caption := lisCodeHelpDescrTag;
Page[2].Caption := lisCodeHelpErrorsTag;
Page[3].Caption := lisCodeHelpSeeAlsoTag;
Page[4].Caption := lisCodeHelpExampleTag;
Page[5].Caption := lisCodeHelpInherited;
PageIndex := 0;
end;
ShortTabSheet.Caption := lisCodeHelpShortTag;
InheritedTabSheet.Caption := lisCodeHelpInherited;
DescrTabSheet.Caption := lisCodeHelpDescrTag;
ErrorsTabSheet.Caption := lisCodeHelpErrorsTag;
SeeAlsoTabSheet.Caption := lisCodeHelpSeeAlsoTag;
ExampleTabSheet.Caption := lisCodeHelpExampleTag;
PageControl.PageIndex := 0;
BoldFormatButton.Hint := lisCodeHelpHintBoldFormat;
ItalicFormatButton.Hint := lisCodeHelpHintItalicFormat;
@ -1120,20 +1118,21 @@ var
i: LongInt;
Element: TCodeHelpElement;
Link: String;
LinkTitle: String;
begin
i:=FindInheritedIndex;
if i<0 then exit;
DebugLn(['TFPDocEditor.AddLinkToInheritedButtonClick ']);
//DebugLn(['TFPDocEditor.AddLinkToInheritedButtonClick ']);
Element:=fChain[i];
Link:=Element.ElementName;
LinkTitle:=Link;
if Element.ElementUnitName<>'' then begin
Link:=Element.ElementUnitName+'.'+Link;
if Element.ElementModuleName<>'' then
Link:='#'+Element.ElementModuleName+'.'+Link;
end;
AddSeeAlsoLink(Link,LinkTitle);
if Link<>LinkEdit.Text then begin
LinkEdit.Text:=Link;
Modified:=true;
end;
end;
procedure TFPDocEditor.BrowseExampleButtonClick(Sender: TObject);