Commit fe1d227c authored by Jesus's avatar Jesus
Browse files

LazReport, fix moving/resizing objects when using keyboard under QT (and...

LazReport, fix moving/resizing objects when using keyboard under QT (and carbon), Patch from Julio Jiménez Borreguero, issue #23435

git-svn-id: trunk@39477 -
parent 908e2660
......@@ -1840,9 +1840,6 @@ begin
Moved := True;
w := 2;
{$ifdef LCLQt}if Down then Invalidate;{$endif}
{$ifdef LCLCarbon}if Down then Invalidate;{$endif}
if FirstChange and Down and not RFlag then
begin
kx := x - LastX;
......@@ -2342,6 +2339,8 @@ begin
DeleteObject(hr1);
Draw(10000, hr);
end;
{$IFDEF LCLQt}Invalidate;{$endif}
{$IFDEF LCLCarbon}Invalidate;{$endif}
end;
procedure TfrDesignerPage.CMMouseLeave(var Message: TLMessage);
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment