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

IDE: renamed some more lazdoc identifiers with codehelp

Browse Source 
git-svn-id: trunk@13862 -
This commit is contained in:
mattias 2008-01-24 18:38:43 +00:00
parent a2a5c89964
commit d3099e9450
6 changed files with 60 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/environmentopts.pp
View File

@ -2052,9 +2052,9 @@ procedure TEnvironmentOptionsDialog.SetupLazDocPage(Page: integer);
begin begin
NoteBook.Page[Page].Caption := lisFPDocEditor; NoteBook.Page[Page].Caption := lisFPDocEditor;
LazDocPathsGroupBox.Caption := lisLazDocPathsGroupBox; LazDocPathsGroupBox.Caption := lisCodeHelpPathsGroupBox;
LazDocAddPathButton.Caption := lisLazDocAddPathButton; LazDocAddPathButton.Caption := lisCodeHelpAddPathButton;
LazDocDeletePathButton.Caption := lisLazDocDeletePathButton; LazDocDeletePathButton.Caption := lisCodeHelpDeletePathButton;
LazDocPathEdit.Clear; LazDocPathEdit.Clear;
end; end;

6
ide/environmentopts_new.pp
View File

@ -801,9 +801,9 @@ procedure TEnvironmentOptionsDialogNew.SetupLazDocPage(Page: integer);
begin begin
NoteBook.Page[Page].Caption := lisFPDocEditor; NoteBook.Page[Page].Caption := lisFPDocEditor;
LazDocPathsGroupBox.Caption := lisLazDocPathsGroupBox; LazDocPathsGroupBox.Caption := lisCodeHelpPathsGroupBox;
LazDocAddPathButton.Caption := lisLazDocAddPathButton; LazDocAddPathButton.Caption := lisCodeHelpAddPathButton;
LazDocDeletePathButton.Caption := lisLazDocDeletePathButton; LazDocDeletePathButton.Caption := lisCodeHelpDeletePathButton;
LazDocPathEdit.Clear; LazDocPathEdit.Clear;
end; end;

54
ide/fpdoceditwindow.pas
View File

@ -213,35 +213,35 @@ end;
procedure TFPDocEditor.FormCreate(Sender: TObject); procedure TFPDocEditor.FormCreate(Sender: TObject);
begin begin
Caption := lisLazDocMainFormCaption; Caption := lisCodeHelpMainFormCaption;
with PageControl do with PageControl do
begin begin
Page[0].Caption := lisLazDocShortTag; Page[0].Caption := lisCodeHelpShortTag;
Page[1].Caption := lisLazDocDescrTag; Page[1].Caption := lisCodeHelpDescrTag;
Page[2].Caption := lisLazDocErrorsTag; Page[2].Caption := lisCodeHelpErrorsTag;
Page[3].Caption := lisLazDocSeeAlsoTag; Page[3].Caption := lisCodeHelpSeeAlsoTag;
Page[4].Caption := lisLazDocExampleTag; Page[4].Caption := lisCodeHelpExampleTag;
Page[5].Caption := lisLazDocInherited; Page[5].Caption := lisCodeHelpInherited;
PageIndex := 0; PageIndex := 0;
end; end;
BoldFormatButton.Hint := lisLazDocHintBoldFormat; BoldFormatButton.Hint := lisCodeHelpHintBoldFormat;
ItalicFormatButton.Hint := lisLazDocHintItalicFormat; ItalicFormatButton.Hint := lisCodeHelpHintItalicFormat;
UnderlineFormatButton.Hint := lisLazDocHintUnderlineFormat; UnderlineFormatButton.Hint := lisCodeHelpHintUnderlineFormat;
InsertCodeTagButton.Hint := lisLazDocHintInsertCodeTag; InsertCodeTagButton.Hint := lisCodeHelpHintInsertCodeTag;
InsertRemarkButton.Hint := lisLazDocHintRemarkTag; InsertRemarkButton.Hint := lisCodeHelpHintRemarkTag;
InsertVarTagButton.Hint := lisLazDocHintVarTag; InsertVarTagButton.Hint := lisCodeHelpHintVarTag;
CreateButton.Caption := 'Create help item'; CreateButton.Caption := 'Create help item';
CreateButton.Enabled:=false; CreateButton.Enabled:=false;
SaveButton.Caption := 'Save'; SaveButton.Caption := 'Save';
SaveButton.Enabled:=false; SaveButton.Enabled:=false;
AddLinkButton.Caption := lisLazDocAddLinkButton; AddLinkButton.Caption := lisCodeHelpAddLinkButton;
DeleteLinkButton.Caption := lisLazDocDeleteLinkButton; DeleteLinkButton.Caption := lisCodeHelpDeleteLinkButton;
BrowseExampleButton.Caption := lisLazDocBrowseExampleButton; BrowseExampleButton.Caption := lisCodeHelpBrowseExampleButton;
MoveToInheritedButton.Caption:=lisLDMoveEntriesToInherited; MoveToInheritedButton.Caption:=lisLDMoveEntriesToInherited;
CopyFromInheritedButton.Caption:=lisLDCopyFromInherited; CopyFromInheritedButton.Caption:=lisLDCopyFromInherited;
@ -273,9 +273,9 @@ procedure TFPDocEditor.FormatButtonClick(Sender: TObject);
procedure InsertTag(starttag, endtag: String); procedure InsertTag(starttag, endtag: String);
begin begin
if PageControl.ActivePage.Caption = lisLazDocDescrTag then if PageControl.ActivePage.Caption = lisCodeHelpDescrTag then
DescrMemo.SelText := starttag + DescrMemo.SelText + endtag; DescrMemo.SelText := starttag + DescrMemo.SelText + endtag;
if PageControl.ActivePage.Caption = lisLazDocErrorsTag then if PageControl.ActivePage.Caption = lisCodeHelpErrorsTag then
ErrorsMemo.SelText := starttag + ErrorsMemo.SelText + endtag; ErrorsMemo.SelText := starttag + ErrorsMemo.SelText + endtag;
end; end;
@ -465,17 +465,17 @@ begin
{$IFDEF VerboseCodeHelp} {$IFDEF VerboseCodeHelp}
DebugLn(['TFPDocEditForm.UpdateCaption START']); DebugLn(['TFPDocEditForm.UpdateCaption START']);
{$ENDIF} {$ENDIF}
strCaption := lisLazDocMainFormCaption + ' - '; strCaption := lisCodeHelpMainFormCaption + ' - ';
if (fChain <> nil) and (fChain.Count>0) then if (fChain <> nil) and (fChain.Count>0) then
strCaption := strCaption + GetContextTitle(fChain[0]) + ' - ' strCaption := strCaption + GetContextTitle(fChain[0]) + ' - '
else else
strCaption := strCaption + lisLazDocNoTagCaption + ' - '; strCaption := strCaption + lisCodeHelpNoTagCaption + ' - ';
if DocFile<>nil then if DocFile<>nil then
Caption := strCaption + DocFile.Filename Caption := strCaption + DocFile.Filename
else else
Caption := strCaption + lisLazDocNoTagCaption; Caption := strCaption + lisCodeHelpNoTagCaption;
{$IFDEF VerboseCodeHelp} {$IFDEF VerboseCodeHelp}
DebugLn(['TLazDocForm.UpdateCaption ',Caption]); DebugLn(['TLazDocForm.UpdateCaption ',Caption]);
{$ENDIF} {$ENDIF}
@ -628,13 +628,13 @@ begin
end end
else else
begin begin
ShortEdit.Text := lisLazDocNoDocumentation; ShortEdit.Text := lisCodeHelpNoDocumentation;
DescrMemo.Lines.Text := lisLazDocNoDocumentation; DescrMemo.Lines.Text := lisCodeHelpNoDocumentation;
ErrorsMemo.Lines.Text := lisLazDocNoDocumentation; ErrorsMemo.Lines.Text := lisCodeHelpNoDocumentation;
LinkIdComboBox.Text := lisLazDocNoDocumentation; LinkIdComboBox.Text := lisCodeHelpNoDocumentation;
LinkTextEdit.Text := lisLazDocNoDocumentation; LinkTextEdit.Text := lisCodeHelpNoDocumentation;
LinkListBox.Clear; LinkListBox.Clear;
ExampleEdit.Text := lisLazDocNoDocumentation; ExampleEdit.Text := lisCodeHelpNoDocumentation;
end; end;
ShortEdit.Enabled := EnabledState; ShortEdit.Enabled := EnabledState;

42
ide/lazarusidestrconsts.pas
View File

@ -3470,29 +3470,29 @@ resourcestring
lisCEOModeSource = 'Source'; lisCEOModeSource = 'Source';
lisMenuFPDocEditor = 'FPDoc Editor'; lisMenuFPDocEditor = 'FPDoc Editor';
lisLazDocMainFormCaption = 'LazDoc editor'; lisCodeHelpMainFormCaption = 'FPDoc editor';
lisLazDocNoTagCaption = '<NONE>'; lisCodeHelpNoTagCaption = '<NONE>';
lisLazDocNoDocumentation = 'Documentation entry does not exist'; lisCodeHelpNoDocumentation = 'Documentation entry does not exist';
lisLazDocInherited = 'Inherited'; lisCodeHelpInherited = 'Inherited';
lisLazDocShortTag = 'Short'; lisCodeHelpShortTag = 'Short';
lisLazDocDescrTag = 'Description'; lisCodeHelpDescrTag = 'Description';
lisLazDocErrorsTag = 'Errors'; lisCodeHelpErrorsTag = 'Errors';
lisLazDocSeeAlsoTag = 'See also'; lisCodeHelpSeeAlsoTag = 'See also';
lisLazDocAddPathButton = 'Add path'; lisCodeHelpAddPathButton = 'Add path';
lisLazDocDeletePathButton = 'Remove path'; lisCodeHelpDeletePathButton = 'Remove path';
lisEONOTEOnlyAbsolutePathsAreSupportedNow = 'NOTE: only absolute paths are ' lisEONOTEOnlyAbsolutePathsAreSupportedNow = 'NOTE: only absolute paths are '
+'supported now'; +'supported now';
lisLazDocPathsGroupBox = 'LazDoc settings'; lisCodeHelpPathsGroupBox = 'LazDoc settings';
lisLazDocHintBoldFormat = 'Insert bold formatting tag'; lisCodeHelpHintBoldFormat = 'Insert bold formatting tag';
lisLazDocHintItalicFormat = 'Insert italic formatting tag'; lisCodeHelpHintItalicFormat = 'Insert italic formatting tag';
lisLazDocHintUnderlineFormat = 'Insert underline formatting tag'; lisCodeHelpHintUnderlineFormat = 'Insert underline formatting tag';
lisLazDocHintInsertCodeTag = 'Insert code formatting tag'; lisCodeHelpHintInsertCodeTag = 'Insert code formatting tag';
lisLazDocHintRemarkTag = 'Insert remark formatting tag'; lisCodeHelpHintRemarkTag = 'Insert remark formatting tag';
lisLazDocHintVarTag = 'Insert var formatting tag'; lisCodeHelpHintVarTag = 'Insert var formatting tag';
lisLazDocAddLinkButton = 'Add link'; lisCodeHelpAddLinkButton = 'Add link';
lisLazDocDeleteLinkButton = 'Delete link'; lisCodeHelpDeleteLinkButton = 'Delete link';
lisLazDocExampleTag = 'Example'; lisCodeHelpExampleTag = 'Example';
lisLazDocBrowseExampleButton = 'Browse'; lisCodeHelpBrowseExampleButton = 'Browse';
lisLDMoveEntriesToInherited = 'Move entries to inherited'; lisLDMoveEntriesToInherited = 'Move entries to inherited';
lisLDCopyFromInherited = 'Copy from inherited'; lisLDCopyFromInherited = 'Copy from inherited';
lisEnableMacros = 'Enable Macros'; lisEnableMacros = 'Enable Macros';

6
ide/projectopts.pp
View File

@ -266,9 +266,9 @@ procedure TProjectOptionsDialog.SetupLazDocPage(PageIndex: Integer);
begin begin
NoteBook.Page[PageIndex].Caption := lisFPDocEditor; NoteBook.Page[PageIndex].Caption := lisFPDocEditor;
LazDocPathsGroupBox.Caption := lisLazDocPathsGroupBox; LazDocPathsGroupBox.Caption := lisCodeHelpPathsGroupBox;
LazDocAddPathButton.Caption := lisLazDocAddPathButton; LazDocAddPathButton.Caption := lisCodeHelpAddPathButton;
LazDocDeletePathButton.Caption := lisLazDocDeletePathButton; LazDocDeletePathButton.Caption := lisCodeHelpDeletePathButton;
LazDocPathEdit.Clear; LazDocPathEdit.Clear;
end; end;

6
ide/projectopts_new.pp
View File

@ -269,9 +269,9 @@ procedure TProjectOptionsDialogNew.SetupLazDocPage(PageIndex: Integer);
begin begin
NoteBook.Page[PageIndex].Caption := lisFPDocEditor; NoteBook.Page[PageIndex].Caption := lisFPDocEditor;
LazDocPathsGroupBox.Caption := lisLazDocPathsGroupBox; LazDocPathsGroupBox.Caption := lisCodeHelpPathsGroupBox;
LazDocAddPathButton.Caption := lisLazDocAddPathButton; LazDocAddPathButton.Caption := lisCodeHelpAddPathButton;
LazDocDeletePathButton.Caption := lisLazDocDeletePathButton; LazDocDeletePathButton.Caption := lisCodeHelpDeletePathButton;
LazDocPathEdit.Clear; LazDocPathEdit.Clear;
end; end;