paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-21 11:42:30 +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;
Parent := TQtWidget(LCLObject.Parent.Handle).GetContainerWidget;
Result := QScrollArea_create(Parent);
QWidget_setVisible(Result, False);
end;
{------------------------------------------------------------------------------

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

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