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

Qt5,Qt6: Fixed QLineEdit behaviour and automatic selectAll() by Qt when control is focused.Related issue #10155 and issue #41562

Browse Source
This commit is contained in:
zeljan1 2025-04-03 21:57:50 +02:00
parent 439afd6033
commit 91fbaca370
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -107,6 +107,7 @@ type
TQtWidget = class(TQtObject, IUnknown)
private
FDefaultFocusReason: QtFocusReason;
FInResizeEvent: boolean;
FWidgetState: TQtWidgetStates;
FWidgetDefaultFont: TQtFont;
@ -319,6 +320,7 @@ type
nil): QPixmapH;
property ChildOfComplexWidget: TChildOfComplexWidget read FChildOfComplexWidget write FChildOfComplexWidget;
property Context: HDC read GetContext;
property DefaultFocusReason: QtFocusReason read FDefaultFocusReason write FDefaultFocusReason;
property HasCaret: Boolean read FHasCaret write SetHasCaret;
property HasPaint: Boolean read FHasPaint write FHasPaint;
property InResizeEvent: boolean read FInResizeEvent write FInResizeEvent;
@ -2161,6 +2163,7 @@ end;
procedure TQtWidget.InitializeWidget;
begin
FDefaultFocusReason := QtTabFocusReason;
FInResizeEvent := False;
// default states
FWidgetState := [];
@ -5164,7 +5167,7 @@ end;
procedure TQtWidget.setFocus;
begin
if getFocusPolicy <> QtNoFocus then
QWidget_setFocus(Widget, QtTabFocusReason) {issue #10155}
QWidget_setFocus(Widget, FDefaultFocusReason) {issue #10155}
else
QWidget_setFocus(Widget);
end;
@ -9769,6 +9772,7 @@ begin
FCachedSelectionLen := -1;
FIntValidator := nil;
FNumbersOnly := False;
FDefaultFocusReason := QtOtherFocusReason;
if AParams.WndParent <> 0 then
Parent := TQtWidget(AParams.WndParent).GetContainerWidget
else
@ -16412,6 +16416,7 @@ end;
procedure TQtMenu.InitializeWidget;
begin
FDefaultFocusReason := QtTabFocusReason;
FWidgetState := [];
ChildOfComplexWidget := ccwNone;
WidgetColorRole := QPaletteWindow;

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

@ -107,6 +107,7 @@ type
TQtWidget = class(TQtObject, IUnknown)
private
FDefaultFocusReason: QtFocusReason;
FInResizeEvent: boolean;
FWidgetState: TQtWidgetStates;
FWidgetDefaultFont: TQtFont;
@ -316,6 +317,7 @@ type
nil): QPixmapH;
property ChildOfComplexWidget: TChildOfComplexWidget read FChildOfComplexWidget write FChildOfComplexWidget;
property Context: HDC read GetContext;
property DefaultFocusReason: QtFocusReason read FDefaultFocusReason write FDefaultFocusReason;
property HasCaret: Boolean read FHasCaret write SetHasCaret;
property HasPaint: Boolean read FHasPaint write FHasPaint;
property InResizeEvent: boolean read FInResizeEvent write FInResizeEvent;
@ -2158,6 +2160,7 @@ end;
procedure TQtWidget.InitializeWidget;
begin
FDefaultFocusReason := QtTabFocusReason;
FInResizeEvent := False;
// default states
FWidgetState := [];
@ -5168,7 +5171,7 @@ end;
procedure TQtWidget.setFocus;
begin
if getFocusPolicy <> QtNoFocus then
QWidget_setFocus(Widget, QtTabFocusReason) {issue #10155}
QWidget_setFocus(Widget, FDefaultFocusReason) {issue #10155}
else
QWidget_setFocus(Widget);
end;
@ -9725,6 +9728,7 @@ begin
FCachedSelectionLen := -1;
FIntValidator := nil;
FNumbersOnly := False;
FDefaultFocusReason := QtOtherFocusReason;
if AParams.WndParent <> 0 then
Parent := TQtWidget(AParams.WndParent).GetContainerWidget
else
@ -16322,6 +16326,7 @@ end;
procedure TQtMenu.InitializeWidget;
begin
FDefaultFocusReason := QtTabFocusReason;
FWidgetState := [];
ChildOfComplexWidget := ccwNone;
WidgetColorRole := QPaletteWindow;