paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-15 04:55:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

Select cell when it's content is deleted by VK_Delete

Browse Source 
git-svn-id: trunk@37399 -
This commit is contained in:
bart 2012-05-22 22:39:20 +00:00
parent 3a65d68767
commit 0d005db507
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/grids.pas
View File

@ -6625,11 +6625,11 @@ begin
if not FEditorKey and EditingAllowed(FCol)
and (Editor is TCustomEdit) and not (csDesigning in ComponentState)
then begin
EditorShow(True);
EditorShow(False);
TCustomEdit(Editor).Text:='';
ResetEditor;
InvalidateCell(FCol,FRow,True);
SelectCell(FCol,FRow); // This does not really select the cell. Why?
EditorShow(True);
Key := 0;
end;
end;
if FEditorKey then