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

LCL: TDBLookupComboBox and csDropDown - restore correct ItemIndex, modified patch from Michal Gawrycki, issue #32943

Browse Source 
git-svn-id: trunk@58898 -
This commit is contained in:
jesus 2018-09-07 00:32:16 +00:00
parent 561246b1f9
commit 46263a6495
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/dblookupcombobox.inc
View File

@ -35,7 +35,7 @@ begin
if i <> -1 then
FLookup.UpdateData(i, FScrollListDataset)
else
Text := '';
UpdateLookup;
end;
function TDBLookupComboBox.DoEdit: boolean;
@ -63,6 +63,13 @@ begin
UpdateLookup;
end;
procedure TDBLookupComboBox.DoOnSelect;
begin
if Style=csDropDownList then
UpdateRecord;
inherited DoOnSelect;
end;
procedure TDBLookupComboBox.DestroyWnd;
begin
inherited;