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

Qt: make non-resizeable forms with borderstyle bsNone,bsSingle and bsDialog.issue #18372.

Browse Source 
git-svn-id: trunk@29254 -
This commit is contained in:
zeljko 2011-01-30 10:07:52 +00:00
parent 670981f753
commit 39fa1c6db3
3 changed files with 29 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/qt/qtint.pp
View File

@ -205,6 +205,9 @@ const
QtVersionMajor: Integer = 0;
QtVersionMinor: Integer = 0;
QtVersionMicro: Integer = 0;
QtMinimumWidgetSize = 0;
QtMaximumWidgetSize = 16777215;
TargetEntrys = 3;
QEventLCLMessage = QEventUser;
LCLQt_CheckSynchronize = QEventType(Ord(QEventUser) + $1001);

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

@ -241,7 +241,7 @@ type
procedure raiseWidget; virtual;
procedure stackUnder(AWidget: QWidgetH); virtual;
procedure frame_resize(ANewWidth, ANewHeight: Integer);
procedure resize(ANewWidth, ANewHeight: Integer); virtual;
procedure Resize(ANewWidth, ANewHeight: Integer); virtual;
procedure releaseMouse;
procedure scroll(dx, dy: integer; ARect: PRect = nil); virtual;
procedure setAutoFillBackground(const AValue: Boolean);
@ -532,6 +532,7 @@ type
function getAcceptDropFiles: Boolean; override;
function getText: WideString; override;
function getTextStatic: Boolean; override;
procedure Resize(ANewWidth, ANewHeight: Integer); override;
procedure setText(const W: WideString); override;
procedure setMenuBar(AMenuBar: QMenuBarH);
function EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl; override;
@ -1594,7 +1595,7 @@ type
// QRubberBand have it's own move,resize and setGeometry
procedure move(ANewLeft, ANewTop: Integer); override;
procedure resize(ANewWidth, ANewHeight: Integer); override;
procedure Resize(ANewWidth, ANewHeight: Integer); override;
procedure setGeometry(ARect: TRect); override;
function getShape: QRubberBandShape;
@ -1738,7 +1739,7 @@ begin
move(FParams.X, FParams.Y);
if GetContainerWidget <> Widget then
QWidget_resize(GetContainerWidget, FParams.Width, FParams.Height);
resize(FParams.Width, FParams.Height);
Resize(FParams.Width, FParams.Height);
FScrollX := 0;
FScrollY := 0;
@ -3688,13 +3689,8 @@ begin
QWidget_resize(Widget, ANewWidth - dw, ANewHeight - dh);
end;
procedure TQtWidget.resize(ANewWidth, ANewHeight: Integer);
procedure TQtWidget.Resize(ANewWidth, ANewHeight: Integer);
begin
{
WriteLn('Resize: ', dbgsName(LCLObject),
' AOldWidth = ', LCLObject.Width, ' AOldHeight = ', LCLObject.Height,
' ANewWidth = ', ANewWidth, ' ANewHeight = ', ANewHeight);
}
QWidget_resize(Widget, ANewWidth, ANewHeight);
end;
@ -4879,6 +4875,15 @@ begin
Result := False;
end;
procedure TQtMainWindow.Resize(ANewWidth, ANewHeight: Integer);
begin
if (TCustomForm(LCLObject).BorderStyle in [bsDialog, bsNone, bsSingle]) and
not (csDesigning in LCLObject.ComponentState) then
QWidget_setFixedSize(Widget, ANewWidth, ANewHeight)
else
inherited Resize(ANewWidth, ANewHeight);
end;
procedure TQtMainWindow.setText(const W: WideString);
begin
setWindowTitle(@W);
@ -12789,7 +12794,7 @@ begin
QRubberBand_move(QRubberBandH(Widget), ANewLeft, ANewTop);
end;
procedure TQtRubberBand.resize(ANewWidth, ANewHeight: Integer);
procedure TQtRubberBand.Resize(ANewWidth, ANewHeight: Integer);
begin
QRubberBand_resize(QRubberBandH(Widget), ANewWidth, ANewHeight);
end;

11
lcl/interfaces/qt/qtwsforms.pp
View File

@ -559,7 +559,18 @@ begin
or QtWindowCloseButtonHint;
if not (csDesigning in AWidget.LCLObject.ComponentState) then
begin
AWidget.setWindowFlags(Flags);
if ABorderStyle in [bsDialog, bsNone, bsSingle] then
AWidget.Resize(AWidget.LCLObject.Width, AWidget.LCLObject.Height)
else
begin
// Reset constraints.
AWidget.setMinimumSize(QtMinimumWidgetSize, QtMinimumWidgetSize);
AWidget.setMaximumSize(QtMaximumWidgetSize, QtMaximumWidgetSize);
end;
end;
AWidget.setVisible(AVisible);
AWidget.EndUpdate;
end;