paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 18:27:49 +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; end;
VK_RETURN: VK_RETURN:
begin begin
if not FEditorKey then begin if not FEditorKey and (goEditing in FOptions) then begin
EditorShow(True); EditorShow(True);
Key := 0; Key := 0;
end; end;
@ -4686,7 +4686,7 @@ begin
VK_BACK: VK_BACK:
begin begin
// Workaround: LM_CHAR doesnt trigger with BACKSPACE // Workaround: LM_CHAR doesnt trigger with BACKSPACE
if not FEditorKey then begin if not FEditorKey and (goEditing in FOptions) then begin
EditorShowChar(^H); EditorShowChar(^H);
key:=0; key:=0;
end; end;
@ -4694,21 +4694,21 @@ begin
VK_C: VK_C:
if not FEditorKey then begin if not FEditorKey then begin
if ssCtrl in Shift then begin if ssCtrl in Shift then begin
Key := 0; // Key := 0;
doCopyToClipboard; doCopyToClipboard;
end; end;
end; end;
VK_V: VK_V:
if not FEditorKey then begin if not FEditorKey then begin
if ssCtrl in Shift then begin if ssCtrl in Shift then begin
Key := 0; // Key := 0;
doPasteFromClipboard; doPasteFromClipboard;
end; end;
end; end;
VK_X: VK_X:
if not FEditorKey then begin if not FEditorKey then begin
if ssCtrl in Shift then begin if ssCtrl in Shift then begin
Key := 0; // Key := 0;
doCutToClipboard; doCutToClipboard;
end; end;
end; end;
@ -8351,4 +8351,3 @@ begin
end; end;
end. end.