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

Fix compilation of VirtualTreeView after r58939 #508a89d4af. Add a deprecated NewLine(). Issue #34250, patch from Pascal Riekenberg.

Browse Source 
git-svn-id: trunk@58946 -
This commit is contained in:
juha 2018-09-11 08:22:23 +00:00
parent fb8098cc47
commit fac99eb1ea
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/virtualtreeview/VTHeaderPopup.pas
View File

@ -191,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(NewLine());
Items.Add(NewLineMI());
end;//poResizeToFitItem
// Add column menu items.

7
lcl/menus.pp
View File

@ -461,6 +461,7 @@ 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 StripHotkey(const Text: string): string;
@ -615,6 +616,12 @@ begin
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;