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

(Qt):

Browse Source 
misc

git-svn-id: trunk@11601 -
This commit is contained in:
paul 2007-07-23 09:19:44 +00:00
parent 84ff0b4f07
commit 9dc38f304f
2 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5186,6 +5186,7 @@ begin
FViewPortWidget := NiL; FViewPortWidget := NiL;
Parent := TQtWidget(LCLObject.Parent.Handle).GetContainerWidget; Parent := TQtWidget(LCLObject.Parent.Handle).GetContainerWidget;
Result := QScrollArea_create(Parent); Result := QScrollArea_create(Parent);
QWidget_setVisible(Result, False);
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------

13
lcl/interfaces/qt/qtwinapi.inc
View File

@ -2935,7 +2935,6 @@ function TQtWidgetSet.RectVisible(dc : hdc; const ARect: TRect) : Boolean;
var var
w: QWidgetH; w: QWidgetH;
Region: QRegionH; Region: QRegionH;
R: PRect;
begin begin
{$ifdef VerboseQtWinAPI} {$ifdef VerboseQtWinAPI}
writeln('[WinAPI RectVisible] '); writeln('[WinAPI RectVisible] ');
@ -2945,18 +2944,12 @@ begin
w := TQtDeviceContext(DC).Parent; w := TQtDeviceContext(DC).Parent;
if w <> nil then if w <> nil then
begin begin
if QWidget_isVisible(w) then if QWidget_isVisible(w) then
begin begin
Region := QRegion_create; Region := QRegion_create;
try try
QWidget_visibleRegion(w, Region); QWidget_visibleRegion(w, Region);
New(R); Result := QRegion_contains(Region, PRect(@ARect));
try
R^ := ARect;
Result := QRegion_contains(Region, R);
finally
Dispose(R);
end;
finally finally
QRegion_destroy(Region); QRegion_destroy(Region);
end; end;