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

(Qt): prevent sending to LCL non system move events (side effect: splitters have right position in IDE now)

Browse Source 
git-svn-id: trunk@11707 -
This commit is contained in:
paul 2007-08-01 16:11:49 +00:00
parent 6872289be3
commit 1fe1b51b4a
2 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -111,6 +111,8 @@ type
function getClientBounds: TRect; virtual; function getClientBounds: TRect; virtual;
procedure grabMouse; procedure grabMouse;
function hasFocus: Boolean; function hasFocus: Boolean;
procedure move(ANewLeft, ANewTop: Integer);
procedure resize(ANewWidth, ANewHeight: Integer);
procedure releaseMouse; procedure releaseMouse;
procedure setColor(const Value: PQColor); virtual; procedure setColor(const Value: PQColor); virtual;
procedure setCursor(const ACursor: QCursorH); virtual; procedure setCursor(const ACursor: QCursorH); virtual;
@ -1543,6 +1545,9 @@ begin
WriteLn('TQtWidget.SlotMove'); WriteLn('TQtWidget.SlotMove');
{$endif} {$endif}
if not QEvent_spontaneous(Event) then
Exit;
FillChar(Msg, SizeOf(Msg), #0); FillChar(Msg, SizeOf(Msg), #0);
Msg.Msg := LM_MOVE; Msg.Msg := LM_MOVE;
@ -1815,6 +1820,16 @@ begin
Result := QWidget_hasFocus(Widget); Result := QWidget_hasFocus(Widget);
end; end;
procedure TQtWidget.move(ANewLeft, ANewTop: Integer);
begin
QWidget_move(Widget, ANewLeft, ANewTop);
end;
procedure TQtWidget.resize(ANewWidth, ANewHeight: Integer);
begin
QWidget_resize(Widget, ANewWidth, ANewHeight);
end;
procedure TQtWidget.releaseMouse; procedure TQtWidget.releaseMouse;
var var
AGrabWidget: QWidgetH; AGrabWidget: QWidgetH;

8
lcl/interfaces/qt/qtwscontrols.pp
View File

@ -376,8 +376,8 @@ end;
class procedure TQtWSWinControl.SetBounds(const AWinControl: TWinControl; class procedure TQtWSWinControl.SetBounds(const AWinControl: TWinControl;
const ALeft, ATop, AWidth, AHeight: Integer); const ALeft, ATop, AWidth, AHeight: Integer);
begin begin
QWidget_move(TQtWidget(AWinControl.Handle).Widget, ALeft, ATop); TQtWidget(AWinControl.Handle).move(ALeft, ATop);
QWidget_resize(TQtWidget(AWinControl.Handle).Widget, AWidth, AHeight); TQtWidget(AWinControl.Handle).resize(AWidth, AHeight);
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -391,7 +391,7 @@ end;
class procedure TQtWSWinControl.SetPos(const AWinControl: TWinControl; class procedure TQtWSWinControl.SetPos(const AWinControl: TWinControl;
const ALeft, ATop: Integer); const ALeft, ATop: Integer);
begin begin
QWidget_move(TQtWidget(AWinControl.Handle).Widget, ALeft, ATop); TQtWidget(AWinControl.Handle).move(ALeft, ATop);
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -405,7 +405,7 @@ end;
class procedure TQtWSWinControl.SetSize(const AWinControl: TWinControl; class procedure TQtWSWinControl.SetSize(const AWinControl: TWinControl;
const AWidth, AHeight: Integer); const AWidth, AHeight: Integer);
begin begin
QWidget_resize(TQtWidget(AWinControl.Handle).Widget, AWidth, AHeight); TQtWidget(AWinControl.Handle).resize(AWidth, AHeight);
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------