paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 09:19:40 +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
NoteBook.Page[Page].Caption := lisFPDocEditor;
LazDocPathsGroupBox.Caption := lisLazDocPathsGroupBox;
LazDocAddPathButton.Caption := lisLazDocAddPathButton;
LazDocDeletePathButton.Caption := lisLazDocDeletePathButton;
LazDocPathsGroupBox.Caption := lisCodeHelpPathsGroupBox;
LazDocAddPathButton.Caption := lisCodeHelpAddPathButton;
LazDocDeletePathButton.Caption := lisCodeHelpDeletePathButton;
LazDocPathEdit.Clear;
end;

6
ide/environmentopts_new.pp
View File

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

54
ide/fpdoceditwindow.pas
View File

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

42
ide/lazarusidestrconsts.pas
View File

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

6
ide/projectopts.pp
View File

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

6
ide/projectopts_new.pp
View File

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