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

Qt: QRubberBand - overrided move() resize() and setGeometry() methods, since QRubberBand have it's own also overrided in qt lib.

Browse Source 
git-svn-id: trunk@25082 -
This commit is contained in:
zeljko 2010-04-30 17:14:34 +00:00
parent 6668b94759
commit 93136076b1
1 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -214,11 +214,11 @@ type
function isMaximized: Boolean;
function IsWindow: Boolean;
procedure lowerWidget; virtual;
procedure move(ANewLeft, ANewTop: Integer);
procedure move(ANewLeft, ANewTop: Integer); virtual;
procedure preferredSize(var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean); virtual;
procedure raiseWidget; virtual;
procedure frame_resize(ANewWidth, ANewHeight: Integer);
procedure resize(ANewWidth, ANewHeight: Integer);
procedure resize(ANewWidth, ANewHeight: Integer); virtual;
procedure releaseMouse;
procedure scroll(dx, dy: integer; ARect: PRect = nil); virtual;
procedure setAutoFillBackground(const AValue: Boolean);
@ -234,7 +234,7 @@ type
procedure setFocusPolicy(const APolicy: QtFocusPolicy); virtual;
procedure setFocusProxy(const AWidget: QWidgetH);
procedure setFont(AFont: QFontH);
procedure setGeometry(ARect: TRect); overload;
procedure setGeometry(ARect: TRect); virtual;
procedure setLayoutDirection(ADirection: QtLayoutDirection);
procedure setMaximumSize(AWidth, AHeight: Integer);
procedure setMask(AMask: QBitmapH); overload;
@ -1437,6 +1437,12 @@ type
function CreateWidget(const AParams: TCreateParams): QWidgetH; override;
public
constructor Create(const AWinControl: TWinControl; const AParams: TCreateParams); override;
// QRubberBand have it's own move,resize and setGeometry
procedure move(ANewLeft, ANewTop: Integer); override;
procedure resize(ANewWidth, ANewHeight: Integer); override;
procedure setGeometry(ARect: TRect); override;
function getShape: QRubberBandShape;
procedure setShape(AShape: QRubberBandShape);
end;
@ -11522,6 +11528,21 @@ begin
inherited Create(AWinControl, AParams);
end;
procedure TQtRubberBand.move(ANewLeft, ANewTop: Integer);
begin
QRubberBand_move(QRubberBandH(Widget), ANewLeft, ANewTop);
end;
procedure TQtRubberBand.resize(ANewWidth, ANewHeight: Integer);
begin
QRubberBand_resize(QRubberBandH(Widget), ANewWidth, ANewHeight);
end;
procedure TQtRubberBand.setGeometry(ARect: TRect);
begin
QRubberBand_setGeometry(QRubberBandH(Widget), @ARect);
end;
function TQtRubberBand.getShape: QRubberBandShape;
begin
Result := QRubberBand_shape(QRubberBandH(Widget));