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

IDE: renamed some more LazDoc references to FPDoc editor

Browse Source 
git-svn-id: trunk@13847 -
This commit is contained in:
mattias 2008-01-23 23:00:03 +00:00
parent 6801187bf3
commit 2cc665010b
14 changed files with 45 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/environmentopts.pp
View File

@ -1755,7 +1755,7 @@ begin
Add(lisCodeExplorer);
Add(lisMenuPackageGraph);
Add(dlgUnitDepCaption);
Add(lisMenuLazDoc);
Add(lisMenuFPDocEditor);
EndUpdate;
end;
WindowPositionsBox:=TIDEWindowSetupLayoutComponent.Create(Self);
@ -2050,7 +2050,7 @@ end;
procedure TEnvironmentOptionsDialog.SetupLazDocPage(Page: integer);
begin
NoteBook.Page[Page].Caption := lisLazDoc;
NoteBook.Page[Page].Caption := lisFPDocEditor;
LazDocPathsGroupBox.Caption := lisLazDocPathsGroupBox;
LazDocAddPathButton.Caption := lisLazDocAddPathButton;
@ -2607,7 +2607,7 @@ begin
5: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwCodeExplorerName);
6: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwPkgGraphExplorer);
7: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwUnitDependenciesName);
8: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwLazDocName);
8: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwFPDocEditorName);
end;
if Index>=0 then
WindowPositionsBox.Caption:=WindowPositionsListBox.Items[Index];

6
ide/environmentopts_new.pp
View File

@ -504,7 +504,7 @@ begin
Add(lisCodeExplorer);
Add(lisMenuPackageGraph);
Add(dlgUnitDepCaption);
Add(lisMenuLazDoc);
Add(lisMenuFPDocEditor);
EndUpdate;
end;
WindowPositionsBox:=TIDEWindowSetupLayoutComponent.Create(Self);
@ -799,7 +799,7 @@ end;
procedure TEnvironmentOptionsDialogNew.SetupLazDocPage(Page: integer);
begin
NoteBook.Page[Page].Caption := lisLazDoc;
NoteBook.Page[Page].Caption := lisFPDocEditor;
LazDocPathsGroupBox.Caption := lisLazDocPathsGroupBox;
LazDocAddPathButton.Caption := lisLazDocAddPathButton;
@ -1356,7 +1356,7 @@ begin
5: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwCodeExplorerName);
6: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwPkgGraphExplorer);
7: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwUnitDependenciesName);
8: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwLazDocName);
8: WindowPositionsBox.Layout:=FLayouts.ItemByEnum(nmiwFPDocEditorName);
end;
if Index>=0 then
WindowPositionsBox.Caption:=WindowPositionsListBox.Items[Index];

8
ide/fpdoceditwindow.pas
View File

@ -154,17 +154,17 @@ type
var
FPDocEditor: TFPDocEditor = nil;
procedure DoShowLazDoc;
procedure DoShowFPDocEditor;
implementation
{ TFPDocEditor }
procedure DoShowLazDoc;
procedure DoShowFPDocEditor;
begin
if FPDocEditor = Nil then begin
Application.CreateForm(TFPDocEditor, FPDocEditor);
EnvironmentOptions.IDEWindowLayoutList.ItemByEnum(nmiwLazDocName).Apply;
EnvironmentOptions.IDEWindowLayoutList.ItemByEnum(nmiwFPDocEditorName).Apply;
end;
FPDocEditor.Show;
@ -252,7 +252,7 @@ begin
CodeHelpBoss.AddHandlerOnChanged(@OnLazDocChanged);
Application.AddOnIdleHandler(@ApplicationIdle);
Name := NonModalIDEWindowNames[nmiwLazDocName];
Name := NonModalIDEWindowNames[nmiwFPDocEditorName];
EnvironmentOptions.IDEWindowLayoutList.Apply(Self, Name);
end;

14
ide/helpmanager.pas
View File

@ -130,7 +130,6 @@ type
// help menu of the IDE menu bar
procedure mnuHelpAboutLazarusClicked(Sender: TObject);
procedure mnuHelpConfigureHelpClicked(Sender: TObject);
procedure mnuHelpCreateLazDocClicked(Sender: TObject);
procedure mnuHelpOnlineHelpClicked(Sender: TObject);
procedure mnuHelpReportBugClicked(Sender: TObject);
private
@ -158,7 +157,6 @@ type
procedure ShowLazarusHelpStartPage;
procedure ShowIDEHelpForContext(HelpContext: THelpContext);
procedure ShowIDEHelpForKeyword(const Keyword: string);
function CreateLazDocFiles: TModalResult;
function ShowHelpForSourcePosition(const Filename: string;
const CodePos: TPoint;
@ -649,11 +647,6 @@ begin
SaveHelpOptions;
end;
procedure THelpManager.mnuHelpCreateLazDocClicked(Sender: TObject);
begin
CreateLazDocFiles;
end;
procedure THelpManager.mnuHelpOnlineHelpClicked(Sender: TObject);
begin
ShowLazarusHelpStartPage;
@ -942,8 +935,6 @@ begin
itmHelpOnlineHelp.OnClick := @mnuHelpOnlineHelpClicked;
itmHelpReportingBug.OnClick := @mnuHelpReportBugClicked;
itmHelpConfigureHelp.OnClick :=@mnuHelpConfigureHelpClicked;
itmHelpCreateLazDoc.OnClick :=@mnuHelpCreateLazDocClicked;
itmHelpCreateLazDoc.Visible:=false;
end;
end;
@ -972,11 +963,6 @@ begin
ShowHelpOrErrorForKeyword(MainHelpDB.ID,Keyword);
end;
function THelpManager.CreateLazDocFiles: TModalResult;
begin
Result:=mrCancel;
end;
function THelpManager.ShowHelpForSourcePosition(const Filename: string;
const CodePos: TPoint; var ErrMsg: string): TShowHelpResult;

2
ide/ideoptiondefs.pas
View File

@ -77,7 +77,7 @@ type
nmiwMessagesViewName,
nmiwUnitDependenciesName,
nmiwCodeExplorerName,
nmiwLazDocName,
nmiwFPDocEditorName,
nmiwClipbrdHistoryName,
nmiwPkgGraphExplorer,
nmiwProjectInspector,

12
ide/keymapping.pp
View File

@ -462,7 +462,7 @@ begin
ecToggleObjectInsp: SetResult(VK_F11,[],VK_UNKNOWN,[]);
ecToggleSourceEditor: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleCodeExpl: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleLazDoc: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleFPDocEditor: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleMessages: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleSearchResults: SetResult(VK_F,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleWatches: SetResult(VK_W,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
@ -547,7 +547,6 @@ begin
ecConfigureHelp: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecContextHelp: SetResult(VK_F1,[],VK_UNKNOWN,[]);
ecEditContextHelp: SetResult(VK_F1,[ssShift,ssCtrl],VK_UNKNOWN,[]);
ecCreateLazDoc: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecReportingBug: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
// designer
@ -783,7 +782,7 @@ begin
ecToggleObjectInsp: SetResult(VK_F11,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleSourceEditor: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleCodeExpl: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleLazDoc: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleFPDocEditor: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleMessages: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleSearchResults: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleWatches: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
@ -868,7 +867,6 @@ begin
ecConfigureHelp: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecContextHelp: SetResult(VK_F1,[ssCtrl],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecEditContextHelp: SetResult(VK_F1,[ssCtrl,ssShift],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecCreateLazDoc: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecReportingBug: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
// designer
@ -1409,7 +1407,7 @@ begin
ecToggleObjectInsp : Result:= srkmecToggleObjectInsp;
ecToggleSourceEditor : Result:= srkmecToggleSourceEditor;
ecToggleCodeExpl : Result:= srkmecToggleCodeExpl;
ecToggleLazDoc : Result:= srkmecToggleLazDoc;
ecToggleFPDocEditor : Result:= srkmecToggleFPDocEditor;
ecToggleMessages : Result:= srkmecToggleMessages;
ecToggleSearchResults : Result:= srkmecToggleSearchResults;
ecToggleWatches : Result:= srkmecToggleWatches;
@ -1517,7 +1515,6 @@ begin
ecConfigureHelp : Result:= lisMenuConfigureHelp;
ecContextHelp : Result:= lisMenuContextHelp;
ecEditContextHelp : Result:= lisMenuEditContextHelp;
ecCreateLazDoc : Result:= lisMenuCreateLazDocFiles;
ecReportingBug : Result:= lisMenuReportingBug;
// desginer
@ -2409,7 +2406,7 @@ begin
AddDefault(C, 'Toggle view Code Explorer', lisKMToggleViewCodeExplorer,
ecToggleCodeExpl);
AddDefault(C, 'Toggle view Documentation Editor',
lisKMToggleViewDocumentationEditor, ecToggleLazDoc);
lisKMToggleViewDocumentationEditor, ecToggleFPDocEditor);
AddDefault(C, 'Toggle view Messages', lisKMToggleViewMessages,
ecToggleMessages);
AddDefault(C, 'Toggle view Search Results', lisKMToggleViewSearchResults,
@ -2541,7 +2538,6 @@ begin
ecContextHelp);
AddDefault(C, 'Edit context sensitive help', lisKMEditContextSensitiveHelp,
ecEditContextHelp);
AddDefault(C, 'Create LazDoc files', lisMenuCreateLazDocFiles, ecCreateLazDoc);
AddDefault(C, 'Reporting a bug', lisMenuReportingBug, ecReportingBug);
// designer - without menu items in the IDE bar (at least no direct)

8
ide/lazarusidestrconsts.pas
View File

@ -381,7 +381,7 @@ resourcestring
lisMenuConfigureHelp = 'Configure Help ...';
lisMenuContextHelp = 'Context sensitive Help';
lisMenuEditContextHelp = 'Edit context sensitive Help';
lisMenuCreateLazDocFiles = 'Create LazDoc files';
lisMenuCreateFPDocFiles = 'Create FPDoc files';
lisDsgCopyComponents = 'Copy selected components to clipboard';
lisDsgCutComponents = 'Cut selected components to clipboard';
@ -865,7 +865,7 @@ resourcestring
lisIncludeFilter = 'Include Filter';
dlgEnvBckup = 'Backup';
dlgNaming = 'Naming';
lisLazDoc = 'LazDoc';
lisFPDocEditor = 'FPDoc editor';
lisOkBtn = 'Ok';
dlgCancel = 'Cancel';
lisSAMSelectNone = 'Select none';
@ -1807,7 +1807,7 @@ resourcestring
srkmecToggleObjectInsp = 'View Object Inspector';
srkmecToggleSourceEditor = 'View Source Editor';
srkmecToggleCodeExpl = 'View Code Explorer';
srkmecToggleLazDoc = 'View Documentation Editor';
srkmecToggleFPDocEditor = 'View Documentation Editor';
srkmecToggleMessages = 'View messages';
srkmecToggleSearchResults = 'View Search Results';
srkmecToggleWatches = 'View watches';
@ -3469,7 +3469,7 @@ resourcestring
lisCEOModeCategory = 'Category';
lisCEOModeSource = 'Source';
lisMenuLazDoc = 'LazDoc Editor';
lisMenuFPDocEditor = 'FPDoc Editor';
lisLazDocMainFormCaption = 'LazDoc editor';
lisLazDocNoTagCaption = '<NONE>';
lisLazDocNoDocumentation = 'Documentation entry does not exist';

22
ide/main.pp
View File

@ -235,7 +235,7 @@ type
procedure mnuViewFormsClicked(Sender: TObject);
procedure mnuViewUnitDependenciesClicked(Sender: TObject);
procedure mnuViewUnitInfoClicked(Sender: TObject);
procedure mnuViewLazDocClicked(Sender: TObject);
procedure mnuViewFPDocEditorClicked(Sender: TObject);
procedure mnuViewCodeExplorerClick(Sender: TObject);
procedure mnuViewCodeBrowserClick(Sender: TObject);
procedure mnuViewComponentsClick(Sender: TObject);
@ -689,7 +689,7 @@ type
procedure DoShowCodeExplorer;
procedure DoShowCodeBrowser;
procedure DoShowComponentList;
procedure DoShowLazDoc;
procedure DoShowFPDocEditor;
function CreateNewUniqueFilename(const Prefix, Ext: string;
NewOwner: TObject; Flags: TSearchIDEFileFlags; TryWithoutNumber: boolean
): string; override;
@ -1842,8 +1842,8 @@ begin
DoShowCodeBrowser;
nmiwCodeExplorerName:
DoShowCodeExplorer;
nmiwLazDocName:
DoShowLazDoc;
nmiwFPDocEditorName:
DoShowFPDocEditor;
nmiwAnchorEditor:
DoViewAnchorEditor;
nmiwMessagesViewName:
@ -2071,7 +2071,7 @@ begin
itmViewCodeExplorer.OnClick := @mnuViewCodeExplorerClick;
itmViewCodeBrowser.OnClick := @mnuViewCodeBrowserClick;
itmViewComponents.OnClick := @mnuViewComponentsClick;
itmViewLazDoc.OnClick := @mnuViewLazDocClicked; //DBlaszijk 5-sep-05
itmViewFPDocEditor.OnClick := @mnuViewFPDocEditorClicked;
itmViewUnits.OnClick := @mnuViewUnitsClicked;
itmViewForms.OnClick := @mnuViewFormsClicked;
itmViewUnitDependencies.OnClick := @mnuViewUnitDependenciesClicked;
@ -2602,8 +2602,8 @@ begin
ecViewComponents:
DoShowComponentList;
ecToggleLazDoc:
DoShowLazDoc;
ecToggleFPDocEditor:
DoShowFPDocEditor;
ecViewUnits:
DoViewUnitsAndForms(false);
@ -3557,9 +3557,9 @@ begin
DoDiff;
end;
procedure TMainIDE.mnuViewLazDocClicked(Sender: TObject);
procedure TMainIDE.mnuViewFPDocEditorClicked(Sender: TObject);
begin
DoShowLazDoc;
DoShowFPDocEditor;
end;
procedure TMainIDE.mnuToolConvertDFMtoLFMClicked(Sender: TObject);
@ -7188,9 +7188,9 @@ begin
ComponentListForm.Show;
end;
procedure TMainIDE.DoShowLazDoc;
procedure TMainIDE.DoShowFPDocEditor;
begin
SourceNotebook.ShowLazDoc;
SourceNotebook.ShowFPDocEditor;
end;
function TMainIDE.CreateNewUniqueFilename(const Prefix, Ext: string;

3
ide/mainbar.pas
View File

@ -180,7 +180,7 @@ type
itmViewInspector: TIDEMenuCommand;
itmViewSourceEditor: TIDEMenuCommand;
itmViewCodeExplorer: TIDEMenuCommand;
itmViewLazDoc: TIDEMenuCommand;
itmViewFPDocEditor: TIDEMenuCommand;
itmViewCodeBrowser: TIDEMenuCommand;
itmViewComponents: TIDEMenuCommand;
//itmViewUnitWindows: TIDEMenuSection;
@ -327,7 +327,6 @@ type
//itmInfoHelps: TIDEMenuSection;
itmHelpAboutLazarus: TIDEMenuCommand;
//itmHelpTools: TIDEMenuSection;
itmHelpCreateLazDoc: TIDEMenuCommand;
// component palette
ComponentNotebook : TNotebook;

7
ide/mainbase.pas
View File

@ -508,7 +508,7 @@ begin
CreateMenuItem(ParentMI,itmViewSourceEditor,'itmViewSourceEditor',lisMenuViewSourceEditor, 'menu_view_source_editor');
CreateMenuItem(ParentMI,itmViewMessage,'itmViewMessage',lisMenuViewMessages);
CreateMenuItem(ParentMI,itmViewCodeExplorer,'itmViewCodeExplorer',lisMenuViewCodeExplorer, 'menu_view_code_explorer');
CreateMenuItem(ParentMI,itmViewLazDoc,'itmViewLazDoc',lisMenuLazDoc); //DBlaszijk 5-sep-05
CreateMenuItem(ParentMI,itmViewFPDocEditor,'itmViewFPDocEditor',lisMenuFPDocEditor);
CreateMenuItem(ParentMI,itmViewCodeBrowser,'itmViewCodeBrowser',lisMenuViewCodeBrowser);
CreateMenuItem(ParentMI,itmViewComponents,'itmViewComponents',lisMenuViewComponents);
@ -771,9 +771,6 @@ begin
CreateMenuSeparatorSection(mnuHelp,itmHelpTools,'itmHelpTools');
ParentMI:=itmHelpTools;
CreateMenuItem(ParentMI,itmHelpCreateLazDoc,'itmHelpCreateLazDoc',
lisMenuCreateLazDocFiles);
end;
end;
@ -875,7 +872,7 @@ begin
itmViewSourceEditor.Command:=GetCommand(ecToggleSourceEditor);
itmViewUnits.Command:=GetCommand(ecViewUnits);
itmViewCodeExplorer.Command:=GetCommand(ecToggleCodeExpl);
itmViewLazDoc.Command:=GetCommand(ecToggleLazDoc);
itmViewFPDocEditor.Command:=GetCommand(ecToggleFPDocEditor);
itmViewCodeBrowser.Command:=GetCommand(ecToggleCodeBrowser);
itmViewComponents.Command:=GetCommand(ecViewComponents);
itmViewUnitDependencies.Command:=GetCommand(ecViewUnitDependencies);

2
ide/projectopts.pp
View File

@ -264,7 +264,7 @@ end;
procedure TProjectOptionsDialog.SetupLazDocPage(PageIndex: Integer);
begin
NoteBook.Page[PageIndex].Caption := lisLazDoc;
NoteBook.Page[PageIndex].Caption := lisFPDocEditor;
LazDocPathsGroupBox.Caption := lisLazDocPathsGroupBox;
LazDocAddPathButton.Caption := lisLazDocAddPathButton;

2
ide/projectopts_new.pp
View File

@ -267,7 +267,7 @@ end;
procedure TProjectOptionsDialogNew.SetupLazDocPage(PageIndex: Integer);
begin
NoteBook.Page[PageIndex].Caption := lisLazDoc;
NoteBook.Page[PageIndex].Caption := lisFPDocEditor;
LazDocPathsGroupBox.Caption := lisLazDocPathsGroupBox;
LazDocAddPathButton.Caption := lisLazDocAddPathButton;

16
ide/uniteditor.pp
View File

@ -612,8 +612,8 @@ type
procedure InitMacros(AMacroList: TTransferMacroList);
procedure CreateCompletionForm;
procedure ShowLazDoc;
procedure UpdateLazDoc;
procedure ShowFPDocEditor;
procedure UpdateFPDocEditor;
property Editors[Index:integer]:TSourceEditor read GetEditors;
function EditorCount:integer;
@ -3098,13 +3098,13 @@ begin
aCompletion.AddEditor(Editors[i].FEditor);
end;
procedure TSourceNotebook.ShowLazDoc;
procedure TSourceNotebook.ShowFPDocEditor;
begin
DoShowLazDoc;
UpdateLazDoc;
DoShowFPDocEditor;
UpdateFPDocEditor;
end;
procedure TSourceNotebook.UpdateLazDoc;
procedure TSourceNotebook.UpdateFPDocEditor;
var
SrcEdit: TSourceEditor;
CaretPos: TPoint;
@ -5585,7 +5585,7 @@ begin
Statusbar.EndUpdate;
CheckCurrentCodeBufferChanged;
UpdateLazDoc;
UpdateFPDocEditor;
End;
function TSourceNotebook.FindBookmark(BookmarkID: integer): TSourceEditor;
@ -5667,7 +5667,7 @@ Begin
end;
CheckCurrentCodeBufferChanged;
UpdateLazDoc;
UpdateFPDocEditor;
end;
Procedure TSourceNotebook.ProcessParentCommand(Sender: TObject;

5
ideintf/idecommands.pas
View File

@ -159,7 +159,7 @@ const
ecToggleObjectInsp = ecFirstLazarus + 302;
ecToggleSourceEditor = ecFirstLazarus + 303;
ecToggleCodeExpl = ecFirstLazarus + 304;
ecToggleLazDoc = ecFirstLazarus + 305;
ecToggleFPDocEditor = ecFirstLazarus + 305;
ecToggleMessages = ecFirstLazarus + 306;
ecToggleWatches = ecFirstLazarus + 307;
ecToggleBreakPoints = ecFirstLazarus + 308;
@ -266,8 +266,7 @@ const
ecConfigureHelp = ecFirstLazarus + 902;
ecContextHelp = ecFirstLazarus + 903;
ecEditContextHelp = ecFirstLazarus + 904;
ecCreateLazDoc = ecFirstLazarus + 905;
ecReportingBug = ecFirstLazarus + 906;
ecReportingBug = ecFirstLazarus + 905;
// designer
ecDesignerCopy = ecFirstLazarus + 1000;