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

ValEdit: Implement KeyDelete.

Browse Source 
git-svn-id: trunk@40460 -
This commit is contained in:
bart 2013-03-02 17:12:34 +00:00
parent 64aaa76ce9
commit a7f651be93
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/valedit.pas
View File

@ -1007,6 +1007,8 @@ var
ItemProp: TItemProp;
begin
Result:=inherited GetDefaultEditor(Column);
//Need this to be able to intercept VK_Delete in the editor
EditorOptions := EditorOptions or EO_HOOKKEYDOWN;
if Column=1 then
begin
ItemProp := nil;
@ -1065,8 +1067,14 @@ begin
end;
if (KeyDelete in KeyOptions) then
begin
//ToDo: delete a row if user presses Delete, need to find out (blackbox Delphi) when this should happen
//Although Delphi help says this happens if user presses Delete, testers report it only happens with Ctrl+Delete
if (Key = VK_DELETE) and (Shift = [ssModifier]) then
begin
DeleteRow(Row);
Key := 0;
end;
end;
end;
procedure TValueListEditor.SetCells(ACol, ARow: Integer; const AValue: string);