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

Qt: don't focus TQtGroupBox in any case if TabStop=False.

Browse Source 
git-svn-id: trunk@22055 -
This commit is contained in:
zeljko 2009-10-06 08:43:32 +00:00
parent 5e79f9ef5b
commit 12c824bf15
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/qt/qtwidgets.pas
View File

@ -101,7 +101,7 @@ type
function GetStyleSheet: WideString;
function GetWidget: QWidgetH;
function LCLKeyToQtKey(AKey: Word): Integer;
function QtButtonsToLCLButtons(AButtons: QTMouseButton): PtrInt;
function QtButtonsToLCLButtons(AButtons: QtMouseButton): PtrInt;
function QtKeyModifiersToKeyState(AModifiers: QtKeyboardModifiers): PtrInt;
function QtKeyToLCLKey(AKey: Integer; AText: WideString): Word;
procedure SetProps(const AnIndex: String; const AValue: pointer);
@ -531,6 +531,7 @@ type
function EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl; override;
function getText: WideString; override;
procedure setText(const W: WideString); override;
procedure setFocusPolicy(const APolicy: QtFocusPolicy); override;
end;
{ TQtToolBar }
@ -2466,7 +2467,7 @@ begin
DeliverMessage(Msg);
end;
function TQtWidget.QtButtonsToLCLButtons(AButtons: QTMouseButton): PtrInt;
function TQtWidget.QtButtonsToLCLButtons(AButtons: QtMouseButton): PtrInt;
begin
Result := 0;
if (QtLeftButton and AButtons) <> 0 then
@ -4741,6 +4742,16 @@ begin
setLayoutThemeMargins(QWidget_Layout(Widget), Widget);
end;
procedure TQtGroupBox.setFocusPolicy(const APolicy: QtFocusPolicy);
var
NewPolicy: QtFocusPolicy;
begin
NewPolicy := APolicy;
if Assigned(LCLObject) and not LCLObject.TabStop then
NewPolicy := QtNoFocus;
inherited setFocusPolicy(NewPolicy);
end;
{ TQtFrame }
function TQtFrame.CreateWidget(const AParams: TCreateParams): QWidgetH;