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

Qt5, Qt6: allow arrow keys at design time. issue #41453

Browse Source
This commit is contained in:
zeljan1 2025-02-22 18:56:17 +01:00
parent 17407a1e4d
commit 9ad5559338
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt5/qtwidgets.pas
View File

@ -5530,7 +5530,7 @@ end;
function TQtWidget.ProcessArrowKeys: Boolean; function TQtWidget.ProcessArrowKeys: Boolean;
begin begin
Result := False; Result := Assigned(LCLObject) and (csDesigning in LCLObject.ComponentState);
end; end;
class procedure TQtWidget.removeProperty(AObject: QObjectH; APropName: PAnsiChar); class procedure TQtWidget.removeProperty(AObject: QObjectH; APropName: PAnsiChar);

2
lcl/interfaces/qt6/qtwidgets.pas
View File

@ -5534,7 +5534,7 @@ end;
function TQtWidget.ProcessArrowKeys: Boolean; function TQtWidget.ProcessArrowKeys: Boolean;
begin begin
Result := False; Result := Assigned(LCLObject) and (csDesigning in LCLObject.ComponentState);
end; end;
class procedure TQtWidget.removeProperty(AObject: QObjectH; APropName: PAnsiChar); class procedure TQtWidget.removeProperty(AObject: QObjectH; APropName: PAnsiChar);