paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 22:37:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

grids, fix to get OnKeyPress on some key combinations, from Luis Rodrigues

Browse Source 
git-svn-id: trunk@10301 -
This commit is contained in:
jesus 2006-12-05 18:21:42 +00:00
parent 4654080e39
commit 8f4b59e396
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/grids.pas
View File

@ -4678,7 +4678,7 @@ begin
end;
VK_RETURN:
begin
if not FEditorKey then begin
if not FEditorKey and (goEditing in FOptions) then begin
EditorShow(True);
Key := 0;
end;
@ -4686,7 +4686,7 @@ begin
VK_BACK:
begin
// Workaround: LM_CHAR doesnt trigger with BACKSPACE
if not FEditorKey then begin
if not FEditorKey and (goEditing in FOptions) then begin
EditorShowChar(^H);
key:=0;
end;
@ -4694,21 +4694,21 @@ begin
VK_C:
if not FEditorKey then begin
if ssCtrl in Shift then begin
Key := 0;
// Key := 0;
doCopyToClipboard;
end;
end;
VK_V:
if not FEditorKey then begin
if ssCtrl in Shift then begin
Key := 0;
// Key := 0;
doPasteFromClipboard;
end;
end;
VK_X:
if not FEditorKey then begin
if ssCtrl in Shift then begin
Key := 0;
// Key := 0;
doCutToClipboard;
end;
end;
@ -8351,4 +8351,3 @@ begin
end;
end.