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

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

Browse Source 
git-svn-id: trunk@39477 -
This commit is contained in:
jesus 2012-12-07 20:42:08 +00:00
parent 908e2660f2
commit fe1d227c76
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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);