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

LCL: Restore TDBListBox.ItemIndex if field is ReadOnly. Issue #32423, 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/dblistbox.inc
View File

@ -33,12 +33,17 @@ end;
procedure TDBListBox.DoSelectionChange(User: Boolean);
begin
if User then
begin
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;