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

Qt5,Qt6: fixed designing on scrolled forms. issue #41517

Browse Source
This commit is contained in:
zeljan1 2025-03-09 17:34:40 +01:00
parent a61fd69df0
commit 9de7888945
6 changed files with 78 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt5/qtlclintf.inc
View File

@ -290,11 +290,15 @@ var
QtDC: TQtDeviceContext absolute DC;
X, Y: Integer;
W, H: Integer;
P: TPoint;
begin
if not IsValidDC(DC) then
exit;
QtDC.save;
try
P := Point(0, 0);
SetWindowOrgEx(DC, 0, 0, @P);
W := (R.Right - R.Left - 1) div DX;
H := (R.Bottom - R.Top - 1) div DY;

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

@ -20114,8 +20114,15 @@ begin
Msg.PaintStruct^.hdc := FDesignContext;
P := getClientOffset;
{$IFDEF QTSCROLLABLEFORMS}
inc(P.X, -ScrollArea.horizontalScrollBar.getValue);
inc(P.Y, -ScrollArea.verticalScrollBar.getValue);
{$ELSE}
inc(P.X, FScrollX);
inc(P.Y, FScrollY);
{$ENDIF}
TQtDeviceContext(Msg.DC).translate(P.X, P.Y);
// send paint message
@ -20157,9 +20164,13 @@ var
begin
if FDesignControl = nil then
Exit;
// FDesignControl must be same as form area,
// since we use QWidget, not QMainWindow in design time.
{$IFDEF QTSCROLLABLEFORMS}
QWidget_contentsRect(ScrollArea.viewportWidget, @R);
R.Width := R.Width + ScrollArea.horizontalScrollBar.getMax;
R.Height := R.Height + ScrollArea.verticalScrollBar.getMax;
{$ELSE}
QWidget_contentsRect(Widget, @R);
{$ENDIF}
with R do
begin
QWidget_move(FDesignControl, Left, Top);
@ -20309,9 +20320,7 @@ begin
{$IFDEF QTSCROLLABLEFORMS}
else
if (aWidget is TQtWindowArea) then
begin
TQtWindowArea(aWidget).scroll(XStep, YStep);
end;
{$ENDIF}
end else
begin
@ -20397,7 +20406,11 @@ begin
end;
end;
end;
QEventPaint: SlotDesignControlPaint(Sender, Event);
QEventPaint:
begin
SlotDesignControlPaint(Sender, Event);
Result := True;
end;
QEventContextMenu: SlotContextMenu(Sender, Event);
end;
finally

20
lcl/interfaces/qt5/qtwinapi.inc
View File

@ -2829,7 +2829,8 @@ function TQtWidgetSet.GetDCOriginRelativeToWindow(PaintDC: HDC;
var
QtDC: TQtDeviceContext absolute PaintDC;
Matrix: QTransformH;
P: TPoint;
DCScreenOrigin, P: TPoint;
Pt1, Pt2: TQtPoint;
begin
{$ifdef VerboseQtWinAPI}
WriteLn('[WinAPI GetDCOriginRelativeToWindow] PaintDC ' + dbghex(PaintDC));
@ -2840,13 +2841,26 @@ begin
Matrix := QPainter_transform(QtDC.Widget);
OriginDiff := Point(0, 0);
P := Point(0, 0);
DCScreenOrigin := Point(0, 0);
if (QtDC.Parent <> nil) then
begin
Pt2.X := 0;
Pt2.y := 0;
QWidget_mapToGlobal(QtDC.Parent, @Pt1, @Pt2);
DCScreenOrigin.X := Pt1.X;
DCScreenOrigin.Y := Pt1.Y;
end;
if WindowHandle <> 0 then
begin
P := TQtWidget(WindowHandle).getClientOffset;
P := TQtWidget(WindowHandle).MapToGlobal(P, False);
end;
if Matrix <> nil then
begin
OriginDiff.X := Round(QTransform_Dx(Matrix)) - P.X;
OriginDiff.Y := Round(QTransform_Dy(Matrix)) - P.Y;
OriginDiff.X := DCScreenOrigin.X - P.X;
OriginDiff.Y := DCScreenOrigin.Y - P.Y;
end;
Result := True;
end;
{------------------------------------------------------------------------------

4
lcl/interfaces/qt6/qtlclintf.inc
View File

@ -290,11 +290,15 @@ var
QtDC: TQtDeviceContext absolute DC;
X, Y: Integer;
W, H: Integer;
P: TPoint;
begin
if not IsValidDC(DC) then
exit;
QtDC.save;
try
P := Point(0, 0);
SetWindowOrgEx(DC, 0, 0, @P);
W := (R.Right - R.Left - 1) div DX;
H := (R.Bottom - R.Top - 1) div DY;

23
lcl/interfaces/qt6/qtwidgets.pas
View File

@ -20035,8 +20035,15 @@ begin
Msg.PaintStruct^.hdc := FDesignContext;
P := getClientOffset;
{$IFDEF QTSCROLLABLEFORMS}
inc(P.X, -ScrollArea.horizontalScrollBar.getValue);
inc(P.Y, -ScrollArea.verticalScrollBar.getValue);
{$ELSE}
inc(P.X, FScrollX);
inc(P.Y, FScrollY);
{$ENDIF}
TQtDeviceContext(Msg.DC).translate(P.X, P.Y);
// send paint message
@ -20078,9 +20085,13 @@ var
begin
if FDesignControl = nil then
Exit;
// FDesignControl must be same as form area,
// since we use QWidget, not QMainWindow in design time.
{$IFDEF QTSCROLLABLEFORMS}
QWidget_contentsRect(ScrollArea.viewportWidget, @R);
R.Width := R.Width + ScrollArea.horizontalScrollBar.getMax;
R.Height := R.Height + ScrollArea.verticalScrollBar.getMax;
{$ELSE}
QWidget_contentsRect(Widget, @R);
{$ENDIF}
with R do
begin
QWidget_move(FDesignControl, Left, Top);
@ -20230,9 +20241,7 @@ begin
{$IFDEF QTSCROLLABLEFORMS}
else
if (aWidget is TQtWindowArea) then
begin
TQtWindowArea(aWidget).scroll(XStep, YStep);
end;
{$ENDIF}
end else
begin
@ -20318,7 +20327,11 @@ begin
end;
end;
end;
QEventPaint: SlotDesignControlPaint(Sender, Event);
QEventPaint:
begin
SlotDesignControlPaint(Sender, Event);
Result := True;
end;
QEventContextMenu: SlotContextMenu(Sender, Event);
end;
finally

20
lcl/interfaces/qt6/qtwinapi.inc
View File

@ -2825,7 +2825,8 @@ function TQtWidgetSet.GetDCOriginRelativeToWindow(PaintDC: HDC;
var
QtDC: TQtDeviceContext absolute PaintDC;
Matrix: QTransformH;
P: TPoint;
DCScreenOrigin, P: TPoint;
Pt1, Pt2: TQtPoint;
begin
{$ifdef VerboseQtWinAPI}
WriteLn('[WinAPI GetDCOriginRelativeToWindow] PaintDC ' + dbghex(PaintDC));
@ -2836,13 +2837,26 @@ begin
Matrix := QPainter_transform(QtDC.Widget);
OriginDiff := Point(0, 0);
P := Point(0, 0);
DCScreenOrigin := Point(0, 0);
if (QtDC.Parent <> nil) then
begin
Pt2.X := 0;
Pt2.y := 0;
QWidget_mapToGlobal(QtDC.Parent, @Pt1, @Pt2);
DCScreenOrigin.X := Pt1.X;
DCScreenOrigin.Y := Pt1.Y;
end;
if WindowHandle <> 0 then
begin
P := TQtWidget(WindowHandle).getClientOffset;
P := TQtWidget(WindowHandle).MapToGlobal(P, False);
end;
if Matrix <> nil then
begin
OriginDiff.X := Round(QTransform_Dx(Matrix)) - P.X;
OriginDiff.Y := Round(QTransform_Dy(Matrix)) - P.Y;
OriginDiff.X := DCScreenOrigin.X - P.X;
OriginDiff.Y := DCScreenOrigin.Y - P.Y;
end;
Result := True;
end;
{------------------------------------------------------------------------------