paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 09:53:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport: When pasting copied objects using the keyboard shortcut paste them at mouse cursor location if possible.

Browse Source 
git-svn-id: trunk@52690 -
This commit is contained in:
jesus 2016-07-15 02:47:54 +00:00
parent 49851a1b4e
commit 5a351b66a9
1 changed files with 12 additions and 0 deletions

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

@ -4022,6 +4022,15 @@ var
pStep := aValue;
end;
procedure CheckPastePoint;
var
P: TPoint;
begin
P := PageView.ScreenToClient(Mouse.CursorPos);
if PtInRect(PageView.ClientRect, p) then
FReportPopupPoint := p;
end;
begin
{$IFNDEF EXTOI}
if (ActiveControl<>nil) and (ActiveControl.Parent=ObjInsp.fPropertyGrid) then
@ -4069,6 +4078,9 @@ begin
GridAlign := not GridAlign;
Key := 0;
end;
if (Chr(Key) = 'V') and (ssCtrl in Shift) and PasteEnabled then
CheckPastePoint;
if CutEnabled then
if (Key = VK_DELETE) and (ssShift in Shift) then CutBClick(Self);
if CopyEnabled then