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

lazreport: improved mouse dragging object inspector

Browse Source 
git-svn-id: trunk@16102 -
This commit is contained in:
mattias 2008-08-18 07:29:29 +00:00
parent 7158b15560
commit 1140b0a1e3
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/lazreport/source/lr_desgn.pas
View File

@ -6113,13 +6113,18 @@ begin
debugLn('TfrObjectInspector.HeaderMDown()');
{$ENDIF}
fPanelHeader.Cursor:=crSize;
fPt:=Point(x,y);
// get absolute mouse position (X,Y can not be used, because they
// are relative to what is moving)
fPt:=Mouse.CursorPos;
//DebugLn(['TfrObjectInspector.HeaderMDown ',dbgs(fPt)]);
end;
end;
end;
procedure TfrObjectInspector.HeaderMMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var
NewPt: TPoint;
begin
if fDown then
begin
@ -6128,10 +6133,13 @@ begin
{$ENDIF}
Case fPanelHeader.Cursor of
crSize : begin
Top :=Top+(Y-fPt.Y);
Left:=Left+(X-fPt.X);
end;
crSize :
begin
NewPt:=Mouse.CursorPos;
//DebugLn(['TfrObjectInspector.HeaderMDown ',dbgs(fPt),' New=',dbgs(NewPt)]);
SetBounds(Left+NewPt.X-fPt.X,Top+NewPt.Y-fPt.Y,Width,Height);
fPt:=NewPt;
end;
end;
end
end;