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

Qt: fixed bug where TQtAbstractScrollArea descendants cannot be focused in any way if TabStop=False

Browse Source 
git-svn-id: trunk@23692 -
This commit is contained in:
zeljko 2010-02-11 14:06:06 +00:00
parent db764f04ed
commit 2cc6b63564
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -339,6 +339,7 @@ type
public public
function horizontalScrollBar: TQtScrollBar; function horizontalScrollBar: TQtScrollBar;
function verticalScrollBar: TQtScrollBar; function verticalScrollBar: TQtScrollBar;
procedure setFocusPolicy(const APolicy: QtFocusPolicy); override;
procedure setHorizontalScrollBar(AScrollBar: TQtScrollBar); procedure setHorizontalScrollBar(AScrollBar: TQtScrollBar);
procedure setVerticalScrollBar(AScrollBar: TQtScrollBar); procedure setVerticalScrollBar(AScrollBar: TQtScrollBar);
procedure setScrollStyle(AScrollStyle: TScrollStyle); procedure setScrollStyle(AScrollStyle: TScrollStyle);
@ -8979,6 +8980,11 @@ begin
Result := FVScrollBar; Result := FVScrollBar;
end; end;
procedure TQtAbstractScrollArea.setFocusPolicy(const APolicy: QtFocusPolicy);
begin
QWidget_setFocusPolicy(Widget, APolicy);
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Function: TQtAbstractScrollArea.setHorizontalScrollbar Function: TQtAbstractScrollArea.setHorizontalScrollbar
Params: None Params: None