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

IDE: name a function parameter better.

Browse Source 
git-svn-id: trunk@28386 -
This commit is contained in:
juha 2010-11-22 00:01:02 +00:00
parent 4c06816eaa
commit 58e4669239
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/mainbase.pas
View File

@ -89,7 +89,7 @@ type
function CreateMenuSeparator : TMenuItem; function CreateMenuSeparator : TMenuItem;
procedure CreateMenuItem(Section: TIDEMenuSection; procedure CreateMenuItem(Section: TIDEMenuSection;
var MenuItem: TIDEMenuCommand; var MenuCommand: TIDEMenuCommand;
const MenuItemName, MenuItemCaption: String; const MenuItemName, MenuItemCaption: String;
const bmpName: String = ''; const bmpName: String = '';
mnuEnabled: Boolean = true; mnuEnabled: Boolean = true;
@ -302,14 +302,14 @@ begin
end; end;
procedure TMainIDEBase.CreateMenuItem(Section: TIDEMenuSection; procedure TMainIDEBase.CreateMenuItem(Section: TIDEMenuSection;
var MenuItem: TIDEMenuCommand; const MenuItemName, MenuItemCaption: String; var MenuCommand: TIDEMenuCommand; const MenuItemName, MenuItemCaption: String;
const bmpName: String; mnuEnabled: Boolean; mnuChecked: Boolean); const bmpName: String; mnuEnabled: Boolean; mnuChecked: Boolean);
begin begin
MenuItem:=RegisterIDEMenuCommand(Section,MenuItemName,MenuItemCaption); MenuCommand:=RegisterIDEMenuCommand(Section,MenuItemName,MenuItemCaption);
MenuItem.Enabled:=mnuEnabled; MenuCommand.Enabled:=mnuEnabled;
MenuItem.Checked:=mnuChecked; MenuCommand.Checked:=mnuChecked;
if bmpName<>'' then if bmpName<>'' then
MenuItem.ImageIndex := IDEImages.LoadImage(16, bmpName); MenuCommand.ImageIndex := IDEImages.LoadImage(16, bmpName);
end; end;
procedure TMainIDEBase.CreateMenuSeparatorSection( procedure TMainIDEBase.CreateMenuSeparatorSection(