paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-13 13:39:46 +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

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

@ -6113,13 +6113,18 @@ begin
debugLn('TfrObjectInspector.HeaderMDown()'); debugLn('TfrObjectInspector.HeaderMDown()');
{$ENDIF} {$ENDIF}
fPanelHeader.Cursor:=crSize; 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; end;
end; end;
procedure TfrObjectInspector.HeaderMMove(Sender: TObject; procedure TfrObjectInspector.HeaderMMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
var
NewPt: TPoint;
begin begin
if fDown then if fDown then
begin begin
@ -6128,9 +6133,12 @@ begin
{$ENDIF} {$ENDIF}
Case fPanelHeader.Cursor of Case fPanelHeader.Cursor of
crSize : begin crSize :
Top :=Top+(Y-fPt.Y); begin
Left:=Left+(X-fPt.X); 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;
end end