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

Qt5: mark viewport of TQtWindowArea as lclwidget

Browse Source 
git-svn-id: trunk@62904 -
This commit is contained in:
zeljko 2020-04-07 13:07:09 +00:00
parent fc34d6ba75
commit 316304dd0a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6895,6 +6895,7 @@ function TQtMainWindow.CreateWidget(const AParams: TCreateParams): QWidgetH;
QFrame_setFrameShape(QAbstractScrollAreaH(ScrollArea.Widget), QFrameNoFrame); QFrame_setFrameShape(QAbstractScrollAreaH(ScrollArea.Widget), QFrameNoFrame);
QWidget_setBackgroundRole(ScrollArea.viewportWidget, QPaletteNoRole); QWidget_setBackgroundRole(ScrollArea.viewportWidget, QPaletteNoRole);
QWidget_setAutoFillBackground(ScrollArea.viewportWidget, False); QWidget_setAutoFillBackground(ScrollArea.viewportWidget, False);
setProperty(ScrollArea.viewportWidget, 'lclwidget', Int64(PtrUInt(Self)));
// we must set minimum heigth / width to 1 otherwise we'll have strange // we must set minimum heigth / width to 1 otherwise we'll have strange
// effect eg. with main ide bar window (small size and cannot resize). // effect eg. with main ide bar window (small size and cannot resize).