mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 02:56:01 +02:00
fixed rubberband invalidating
git-svn-id: trunk@2295 -
This commit is contained in:
parent
2b38b21c45
commit
a13c68a071
@ -939,7 +939,6 @@ begin
|
||||
ControlSelection.SizeSelection(
|
||||
LastMouseMovePos.X-OldMouseMovePos.X,
|
||||
LastMouseMovePos.Y-OldMouseMovePos.Y);
|
||||
//FCustomForm.Invalidate;
|
||||
if Assigned(OnModified) then OnModified(Self);
|
||||
end else begin
|
||||
// no grabber resizing
|
||||
@ -959,8 +958,6 @@ begin
|
||||
LastMouseMovePos.X-MouseDownPos.X,LastMouseMovePos.Y-MouseDownPos.Y)
|
||||
then begin
|
||||
if Assigned(OnModified) then OnModified(Self);
|
||||
//FCustomForm.Invalidate;
|
||||
//SendCachedLCLMessages;
|
||||
end;
|
||||
end
|
||||
else
|
||||
@ -974,7 +971,6 @@ begin
|
||||
else
|
||||
ControlSelection.RubberbandType:=rbtCreating;
|
||||
ControlSelection.RubberBandActive:=true;
|
||||
//FCustomForm.Invalidate;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
|
Loading…
Reference in New Issue
Block a user