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

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

Browse Source 
(cherry picked from commit 9ad5559338)

Co-authored-by: zeljan1 <zeljko@holobit.hr>
This commit is contained in:
Željan Rikalo 2025-02-22 23:45:21 +00:00 committed by Željan Rikalo
parent f8bfee4292
commit 44f1ea933f
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

@ -5517,7 +5517,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

@ -5521,7 +5521,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);