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

LCL: Fix a regression in TDBLookupComboBox caused by r55894 #14e5f42ff3. Issue #32463, patch from Michal Gawrycki.

Browse Source 
git-svn-id: trunk@55912 -
This commit is contained in:
juha 2017-09-24 12:25:26 +00:00
parent 8e708aabea
commit 1644bea3b3
3 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/dbctrls.pp
View File

@ -707,6 +707,7 @@ Type
TDBComboBox = class(TCustomDBComboBox)
protected
procedure Change; override;
procedure DataChange(Sender: TObject); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: char); override;

12
lcl/include/customdbcombobox.inc
View File

@ -34,15 +34,9 @@ end;
procedure TCustomDBComboBox.Change;
begin
FDataLink.Modified;
try
if FDataLink.CanModify then begin
FDataLink.Field.AsString := Text;
FDatalink.Modified;
end;
finally
inherited Change;
end;
if FDataLink.CanModify then
FDataLink.Modified;
inherited Change;
end;
function TCustomDBComboBox.GetReadOnly: Boolean;

12
lcl/include/dbcombobox.inc
View File

@ -17,6 +17,18 @@ begin
FDataLink.Field.Text := Text;
end;
procedure TDBComboBox.Change;
begin
try
if FDataLink.CanModify then begin
FDataLink.Field.AsString := Text;
FDatalink.Modified;
end;
finally
inherited Change;
end;
end;
procedure TDBComboBox.DataChange(Sender: TObject);
var
DataLinkField: TField;