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

LCL: Restore TDBListBox.ItemIndex if field is ReadOnly. Issue , patch from Michal Gawrycki.

Browse Source 
git-svn-id: trunk@55910 -
This commit is contained in:
juha 2017-09-24 09:27:48 +00:00
parent a2cb6da57d
commit 18d11b50a2
1 changed files with 10 additions and 5 deletions

15
lcl/include/dblistbox.inc
View File

@ -34,11 +34,16 @@ procedure TDBListBox.DoSelectionChange(User: Boolean);
begin
if User then
begin
//protect against undesired call to DataChange
FDataLink.OnDataChange := nil;
if FDataLink.Edit then
FDataLink.Modified;
FDataLink.OnDataChange := @DataChange;
if FDataLink.CanModify then
begin
//protect against undesired call to DataChange
FDataLink.OnDataChange := nil;
if FDataLink.Edit then
FDataLink.Modified;
FDataLink.OnDataChange := @DataChange;
end
else
DataChange(Self);
end;
inherited DoSelectionChange(User);
end;