paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-15 12:16:30 +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) if not FEditorKey and EditingAllowed(FCol)
and (Editor is TCustomEdit) and not (csDesigning in ComponentState) and (Editor is TCustomEdit) and not (csDesigning in ComponentState)
then begin then begin
EditorShow(True); EditorShow(False);
TCustomEdit(Editor).Text:=''; TCustomEdit(Editor).Text:='';
ResetEditor;
InvalidateCell(FCol,FRow,True); InvalidateCell(FCol,FRow,True);
SelectCell(FCol,FRow); // This does not really select the cell. Why? EditorShow(True);
Key := 0;
end; end;
end; end;
if FEditorKey then if FEditorKey then