paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 12:35:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Rename function NewLineMI back to NewLine for Delphi-compatibility. Issue #34667.

Browse Source 
git-svn-id: trunk@59760 -
This commit is contained in:
juha 2018-12-09 15:37:15 +00:00
parent a34569f1b2
commit 78f99157f2
3 changed files with 8 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/ideintf/objectinspector.pp
View File

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

12
components/virtualtreeview/VTHeaderPopup.pas
View File

@ -69,7 +69,7 @@ unit VTHeaderPopup;
interface
uses
Menus, LCLVersion, VirtualTrees;
Menus, VirtualTrees;
type
TVTHeaderPopupOption = (
@ -169,14 +169,6 @@ end;
resourcestring
sResizeToFit = '&Resize All Columns To Fit';
{$IF LCL_FullVersion < 2000000}
function NewLineMI: TMenuItem;
begin
Result := TMenuItem.Create(nil);
Result.Caption := cLineCaption;
end;
{$IFEND}
procedure TVTHeaderPopupMenu.Popup(x, y: Integer);
var
@ -199,7 +191,7 @@ begin
if poResizeToFitItem in Self.Options then begin
NewMenuItem := NewItem(sResizeToFit, 0, False, True, OnMenuItemClick, 0, cResizeToFitMenuItemName);
Items.Add(NewMenuItem);
Items.Add(NewLineMI());
Items.Add(NewLine());
end;//poResizeToFitItem
// Add column menu items.

11
lcl/menus.pp
View File

@ -460,8 +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 NewLineMI: TMenuItem;
function NewLine: TMenuItem; deprecated 'Use function NewLineMI instead.';
function NewLine: TMenuItem;
function StripHotkey(const Text: string): string;
@ -610,18 +609,12 @@ begin
end;
end;
function NewLineMI: TMenuItem;
function NewLine: TMenuItem;
begin
Result := TMenuItem.Create(nil);
Result.Caption := cLineCaption;
end;
function NewLine: TMenuItem;
// Deprecated because the name clashes with so many variables around Lazarus code.
begin
Result := NewLineMI;
end;
function StripHotkey(const Text: string): string;
var
I, R: Integer;