paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 16:34:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: remove handling for generic keys in TCustomDBListBox.KeyDown: if the key trigger a selection change then it will put the dataset in edit mode

Browse Source 
git-svn-id: trunk@30341 -
This commit is contained in:
blikblum 2011-04-17 11:49:29 +00:00
parent 02f0cb702f
commit 876b12fea5
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/customdblistbox.inc
View File

@ -111,16 +111,6 @@ begin
//cancel out of editing by reset on esc //cancel out of editing by reset on esc
FDataLink.Reset; FDataLink.Reset;
Key := VK_UNKNOWN; Key := VK_UNKNOWN;
end else if (Key<>VK_UNKNOWN) then begin
//make sure we call edit to ensure the datset is in edit,
//this is for where the datasource is in autoedit, so we aren't
//read only even though the dataset isn't really in edit
//if this validates false make sure the entry doesn't change
//since listbox doesn't have its own read only yet we gots to fake it
//here
if FDataLink.Edit then
exit;
Key := VK_UNKNOWN;
end; end;
end; end;