paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 22:58:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Rename function NewLine -> NewLineMI to avoid name clashes and confusion.

Browse Source 
git-svn-id: trunk@58939 -
This commit is contained in:
juha 2018-09-10 22:27:55 +00:00
parent 49e55e3acf
commit 508a89d4af
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/ideintf/objectinspector.pp
View File

@ -5666,7 +5666,7 @@ var
// insert the separator
if VerbCount > 0 then
begin
PropertyEditorVerbSeparator := Menus.NewLine;
PropertyEditorVerbSeparator := Menus.NewLineMI;
PropertyEditorVerbSeparator.Name := PropertyEditorMIPrefix + IntToStr(VerbCount);
MainPopupMenu.Items.Insert(VerbCount, PropertyEditorVerbSeparator);
end;
@ -5699,7 +5699,7 @@ var
// insert the separator
if VerbCount > 0 then
begin
ComponentEditorVerbSeparator := Menus.NewLine;
ComponentEditorVerbSeparator := Menus.NewLineMI;
ComponentEditorVerbSeparator.Name := ComponentEditorMIPrefix + IntToStr(VerbCount);
MainPopupMenu.Items.Insert(VerbCount, ComponentEditorVerbSeparator);
end;
@ -5712,7 +5712,7 @@ var
Item := NewItem(oisAddCollectionItem, 0, False, True,
@CollectionAddItem, 0, ComponentEditorMIPrefix+'0');
MainPopupMenu.Items.Insert(0, Item);
ComponentEditorVerbSeparator := NewLine;
ComponentEditorVerbSeparator := NewLineMI;
ComponentEditorVerbSeparator.Name := ComponentEditorMIPrefix+'1';
MainPopupMenu.Items.Insert(1, ComponentEditorVerbSeparator);
end;
@ -5742,7 +5742,7 @@ var
MainPopupMenu.Items.Insert(ComponentEditorVerbSeparator.MenuIndex + 1, ZItem)
else
MainPopupMenu.Items.Insert(0, ZItem);
Item := NewLine;
Item := NewLineMI;
Item.Name := ComponentEditorMIPrefix+'ZOrderSeparator';
MainPopupMenu.Items.Insert(ZItem.MenuIndex + 1, Item);
end;

4
lcl/menus.pp
View File

@ -460,7 +460,7 @@ function NewSubMenu(const ACaption: string; hCtx: THelpContext;
function NewItem(const ACaption: string; AShortCut: TShortCut;
AChecked, TheEnabled: Boolean; TheOnClick: TNotifyEvent;
hCtx: THelpContext; const AName: string): TMenuItem;
function NewLine: TMenuItem;
function NewLineMI: TMenuItem;
function StripHotkey(const Text: string): string;
@ -609,7 +609,7 @@ begin
end;
end;
function NewLine: TMenuItem;
function NewLineMI: TMenuItem;
begin
Result := TMenuItem.Create(nil);
Result.Caption := cLineCaption;