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

Qt: reverted TQtPage.getClientBounds to use TQtWidget.getClientBounds, it wasn't good solution since it produces a mess in eg. in build lazarus form.

Browse Source 
git-svn-id: trunk@39839 -
This commit is contained in:
zeljko 2013-01-13 13:15:54 +00:00
parent 7815ee8a38
commit 7e7b4b3277
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1752,7 +1752,6 @@ type
function CreateWidget(const AParams: TCreateParams):QWidgetH; override;
public
function EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl; override;
function getClientBounds: TRect; override;
function getIcon: QIconH;
function getIndex(const ATextChanging: Boolean = False): Integer;
function getTabWidget: QTabWidgetH;
@ -15549,19 +15548,6 @@ begin
Result := inherited EventFilter(Sender, Event);
end;
function TQtPage.getClientBounds: TRect;
var
w: QWidgetH;
begin
w := QWidget_parentWidget(Widget);
if (FChildOfComplexWidget = ccwTabWidget) and (w <> nil) then
begin
QWidget_contentsRect(w, @Result);
OffsetRect(Result, -Result.Left, -Result.Top);
end else
Result := inherited getClientBounds;
end;
function TQtPage.getIcon: QIconH;
begin
Result := FIcon;