paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 12:20:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt5: fix build without -dQTSCROLLABLEFORMS.

Browse Source 
git-svn-id: trunk@64971 -
This commit is contained in:
zeljko 2021-04-11 16:49:09 +00:00
parent b13a85dc22
commit 97ba88fa58
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/qt5/qtwidgets.pas
View File

@ -4310,7 +4310,8 @@ begin
try
// do not loop with LCL but do not apply it to TQtMainWindow !
if not (csDesigning in LCLObject.ComponentState) and
not ((ClassType = TQtMainWindow) or (ClassType = TQtWindowArea)) and InUpdate then
not ((ClassType = TQtMainWindow) {$IFDEF QTSCROLLABLEFORMS} or (ClassType = TQtWindowArea){$ENDIF})
and InUpdate then
begin
AQtClientRect := Rect(0, 0, 0, 0);
if FOwner <> nil then
@ -7154,14 +7155,18 @@ end;
procedure TQtMainWindow.BeginUpdate;
begin
inherited BeginUpdate;
{$IFDEF QTSCROLLABLEFORMS}
if Assigned(ScrollArea) then
ScrollArea.BeginUpdate;
{$ENDIF}
end;
procedure TQtMainWindow.EndUpdate;
begin
{$IFDEF QTSCROLLABLEFORMS}
if Assigned(ScrollArea) then
ScrollArea.EndUpdate;
{$ENDIF}
inherited EndUpdate;
end;