paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 19:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed delete key in dbgrids bug #878 from Jesus

Browse Source 
git-svn-id: trunk@7130 -
This commit is contained in:
mattias 2005-05-02 21:50:35 +00:00
parent e960ef3dd5
commit f8ed47daf6
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/grids.pas
View File

@ -4976,17 +4976,7 @@ begin
KeyPress(Key); // grid must get all keypresses, even if they are from the editor
case Key of
^C,^V,^X:;
{
^V:
begin
if Clipboard.FormatCount>0 then begin
DebugLn('El clipboard tiene ', Dbgs(Clipboard.FormatCount),'formatos, HasText=', dbgs(Clipboard.HasFormat(CF_TEXT)));
end else begin
DebugLn('El clipboard esta vacio');
Key := #0;
end;
end;
}
^M: Key:=#0; // key is already handled in KeyDown
#8:
if EditorIsReadOnly then
Key := #0;
@ -5855,6 +5845,11 @@ procedure TStringCellEditor.KeyDown(var Key: Word; Shift: TShiftState);
else
Result := False;
end;
procedure CheckEditingKey;
begin
if (FGrid=nil) or FGrid.EditorIsReadOnly then
Key := 0;
end;
var
IntSel: boolean;
begin
@ -5868,6 +5863,8 @@ begin
SelLength := 0;
SelStart := Length(Text);
end;
VK_DELETE:
CheckEditingKey;
VK_UP, VK_DOWN:
doGridKeyDown;
VK_LEFT, VK_RIGHT: