paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 15:56:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: prevent change in dbcombobox when autoedit is false. Issue #24207

Browse Source 
git-svn-id: trunk@41411 -
This commit is contained in:
blikblum 2013-05-26 10:20:34 +00:00
parent 3c5ec2b499
commit 9e57b13d8f
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/include/dbcombobox.inc
View File

@ -61,8 +61,19 @@ procedure TDBComboBox.Select;
begin
//avoid reseting text when calling select
FDataLink.OnDataChange := nil;
FDataLink.Edit;
FDataLink.Modified;
FDataLink.OnDataChange := @DataChange;
inherited Select;
try
if FDataLink.Edit then
begin
FDataLink.Modified;
inherited Select;
end
else
begin
// if cannot modify, let it reset
FDatalink.Reset;
DataChange(Self);
end;
finally
FDataLink.OnDataChange := @DataChange;
end;
end;