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

lcl: adding LCL compatibility option to define system without accelerators (macOS). For system not supporting accelerator, DialogChar() methods of TControl will not be called (by LCL). See bug #37721 and #37719

Browse Source 
git-svn-id: trunk@63960 -
This commit is contained in:
dmitry 2020-10-05 16:21:30 +00:00
parent 9ed4548eef
commit ff637c1fd4
3 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/interfacebase.inc
View File

@ -91,7 +91,8 @@ begin
lcReceivesLMClearCutCopyPasteReliably,
lcSendsUTF8KeyPress,
lcEmulatedMDI,
lcNativeTaskDialog: Result := LCL_CAPABILITY_YES;
lcNativeTaskDialog,
lcAccelleratorKeys: Result := LCL_CAPABILITY_YES;
else
Result := LCL_CAPABILITY_NO;
end;

1
lcl/include/wincontrol.inc
View File

@ -5948,6 +5948,7 @@ var
ParentForm: TCustomForm;
begin
Result := False;
if WidgetSet.GetLCLCapability(lcAccelleratorKeys) = LCL_CAPABILITY_NO then Exit;
ParentForm := GetParentForm(Self);
if ParentForm <> nil then
begin

3
lcl/interfacebase.pp
View File

@ -72,7 +72,8 @@ type
lcTransparentWindow, // ability to pass mouse messages through a window (on win32 LM_NCHITTEST with HTTRANSPARENT result)
lcTextHint, // native TextHint support
lcNativeTaskDialog, // task dialog under mswindows for widgetsets different than win32/wince. Used in LCLTaskDialog. eg Qt/Qt5 must set this option to false otherwise taskdialog segfaults.
lcCanDrawHidden // the system rendering engine might request a hidden control to be drawn (macOS 10.9 and later)
lcCanDrawHidden, // the system rendering engine might request a hidden control to be drawn (macOS 10.9 and later)
lcAccelleratorKeys // the system supports UI concept of &-like notation
);
{ TDialogButton }