paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 04:40:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

added Rescan FPC source directory menu item

Browse Source 
git-svn-id: trunk@4845 -
This commit is contained in:
mattias 2003-11-26 21:41:18 +00:00
parent 53adb7a109
commit 88f1cbf567
4 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/keymapping.pp
View File

@ -212,7 +212,8 @@ const
ecEditorOptions = ecUserFirst + 805;
ecCodeToolsOptions = ecUserFirst + 806;
ecCodeToolsDefinesEd = ecUserFirst + 807;
ecRescanFPCSrcDir = ecUserFirst + 808;
// help menu
ecAboutLazarus = ecUserFirst + 900;
@ -681,6 +682,7 @@ begin
ecEditorOptions: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecCodeToolsOptions: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecCodeToolsDefinesEd: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecRescanFPCSrcDir: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
// help menu
ecAboutLazarus: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
@ -1218,7 +1220,8 @@ begin
ecEditorOptions : Result:= lismenueditoroptions;
ecCodeToolsOptions : Result:= srkmecCodeToolsOptions;
ecCodeToolsDefinesEd : Result:= srkmecCodeToolsDefinesEd;
ecRescanFPCSrcDir : Result:= lisMenuRescanFPCSourceDirectory;
// help menu
ecAboutLazarus : Result:= lisMenuAboutLazarus;
@ -2094,6 +2097,7 @@ begin
AddDefault(C,'Editor options',ecEditorOptions);
AddDefault(C,'CodeTools options',ecCodeToolsOptions);
AddDefault(C,'CodeTools defines editor',ecCodeToolsDefinesEd);
AddDefault(C,'Rescan FPC source directory',ecRescanFPCSrcDir);
// help menu
C:=Categories[AddCategory('HelpMenu',srkmCarHelpMenu,caAll)];

1
ide/lazarusidestrconsts.pas
View File

@ -1177,6 +1177,7 @@ resourcestring
srkmecEnvironmentOptions = 'General environment options';
srkmecCodeToolsOptions = 'Codetools options';
srkmecCodeToolsDefinesEd = 'Codetools defines editor';
lisMenuRescanFPCSourceDirectory = 'Rescan FPC source directory';
srkmecMakeResourceString = 'Make resource string';
srkmecDiff = 'Diff';
// help menu

10
ide/main.pp
View File

@ -225,6 +225,7 @@ type
procedure mnuEnvEditorOptionsClicked(Sender : TObject);
procedure mnuEnvCodeToolsOptionsClicked(Sender : TObject);
procedure mnuEnvCodeToolsDefinesEditorClicked(Sender : TObject);
procedure mnuEnvRescanFPCSrcDirClicked(Sender : TObject);
// windows menu
@ -1628,6 +1629,7 @@ begin
itmEnvEditorOptions.OnClick := @mnuEnvEditorOptionsClicked;
itmEnvCodeToolsOptions.OnClick := @mnuEnvCodeToolsOptionsClicked;
itmEnvCodeToolsDefinesEditor.OnClick := @mnuEnvCodeToolsDefinesEditorClicked;
itmEnvRescanFPCSrcDir.OnClick := @mnuEnvRescanFPCSrcDirClicked;
end;
procedure TMainIDE.SetupWindowsMenu;
@ -2804,6 +2806,11 @@ begin
ShowCodeToolsDefinesEditor(CodeToolBoss,CodeToolsOpts,MacroList);
end;
procedure TMainIDE.mnuEnvRescanFPCSrcDirClicked(Sender: TObject);
begin
RescanCompilerDefines(false);
end;
procedure TMainIDE.SaveEnvironment;
begin
SaveDesktopSettings(EnvironmentOptions);
@ -10165,6 +10172,9 @@ end.
{ =============================================================================
$Log$
Revision 1.675 2003/11/26 21:41:18 mattias
added Rescan FPC source directory menu item
Revision 1.674 2003/11/24 11:03:07 marc
* Splitted winapi*.inc into a winapi and a lcl interface communication part

9
ide/mainbar.pas
View File

@ -334,6 +334,7 @@ type
itmEnvDebuggerOptions: TMenuItem;
itmEnvCodeToolsOptions: TMenuItem;
itmEnvCodeToolsDefinesEditor: TMenuItem;
itmEnvRescanFPCSrcDir: TMenuItem;
// help menu
itmHelpAboutLazarus: TMenuItem;
@ -1391,6 +1392,13 @@ begin
itmEnvCodeToolsDefinesEditor.Caption := lisMenuCodeToolsDefinesEditor;
itmEnvCodeToolsDefinesEditor.Bitmap:=LoadPixmap('menu_codetoolsdefineseditor');
mnuEnvironment.Add(itmEnvCodeToolsDefinesEditor);
mnuEnvironment.Add(CreateMenuSeparator);
itmEnvRescanFPCSrcDir := TMenuItem.Create(Self);
itmEnvRescanFPCSrcDir.Name:='itmEnvRescanFPCSrcDir';
itmEnvRescanFPCSrcDir.Caption := lisMenuRescanFPCSourceDirectory;
mnuEnvironment.Add(itmEnvRescanFPCSrcDir);
end;
procedure TMainIDEBar.SetupWindowsMenu;
@ -1545,6 +1553,7 @@ begin
itmEnvEditorOptions.ShortCut:=CommandToShortCut(ecEditorOptions);
itmEnvCodeToolsOptions.ShortCut:=CommandToShortCut(ecCodeToolsOptions);
itmEnvCodeToolsDefinesEditor.ShortCut:=CommandToShortCut(ecCodeToolsDefinesEd);
itmEnvRescanFPCSrcDir.ShortCut:=CommandToShortCut(ecRescanFPCSrcDir);
// help menu
itmHelpAboutLazarus.ShortCut:=CommandToShortCut(ecAboutLazarus);