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

Qt: added TQtWidget.testAttribute() function

Browse Source 
git-svn-id: trunk@36908 -
This commit is contained in:
zeljko 2012-04-19 14:05:16 +00:00
parent e848cfc909
commit 8d4671b52a
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

@ -302,6 +302,7 @@ type
procedure setUpdatesEnabled(const AEnabled: Boolean); procedure setUpdatesEnabled(const AEnabled: Boolean);
procedure setWindowState(AState: QtWindowStates); procedure setWindowState(AState: QtWindowStates);
procedure sizeHint(size: PSize); procedure sizeHint(size: PSize);
function testAttribute(const AAttribute: QtWidgetAttribute): boolean;
function windowFlags: QtWindowFlags; function windowFlags: QtWindowFlags;
function windowModality: QtWindowModality; function windowModality: QtWindowModality;
property ChildOfComplexWidget: TChildOfComplexWidget read FChildOfComplexWidget write FChildOfComplexWidget; property ChildOfComplexWidget: TChildOfComplexWidget read FChildOfComplexWidget write FChildOfComplexWidget;
@ -4449,6 +4450,11 @@ begin
QWidget_sizeHint(Widget, size); QWidget_sizeHint(Widget, size);
end; end;
function TQtWidget.testAttribute(const AAttribute: QtWidgetAttribute): boolean;
begin
Result := QWidget_testAttribute(Widget, AAttribute);
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Function: TQtWidget.QtKeyToLCLKey Function: TQtWidget.QtKeyToLCLKey
Params: None Params: None