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

IdeIntf: Show Meta- menuitem shortcuts in Object Inspector only for Mac. Issue #27456, patch from Howard Page-Clark.

Browse Source 
git-svn-id: trunk@47850 -
This commit is contained in:
juha 2015-02-17 00:12:22 +00:00
parent 9957d9ec61
commit 66daecb69a
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/ideintf/propedits.pp
View File

@ -4693,8 +4693,7 @@ begin
Result := Result + [paHasDefaultValue];
end;
function TModalResultPropertyEditor.OrdValueToVisualValue(OrdValue: longint
): string;
function TModalResultPropertyEditor.OrdValueToVisualValue(OrdValue: longint): string;
var
CurValue: Longint;
begin
@ -4939,7 +4938,12 @@ var
I: Integer;
begin
Proc(oisNone);
for I := 1 to High(ShortCuts) do Proc(ShortCutToText(ShortCuts[I]));
{$IFDEF Darwin}
for I := 1 to High(ShortCuts) do Proc(ShortCutToText(ShortCuts[I]));
{$ELSE}
for I := 1 to 26 do Proc(ShortCutToText(ShortCuts[I]));
for I := 53 to High(ShortCuts) do Proc(ShortCutToText(ShortCuts[I]));
{$ENDIF}
end;
procedure TShortCutPropertyEditor.SetValue(const Value: string);