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

lcl: use TField.Text in TDBComboBox (Delphi compatible). Fix #19166

Browse Source 
git-svn-id: trunk@30297 -
This commit is contained in:
blikblum 2011-04-15 02:06:52 +00:00
parent e3864724ca
commit 5693e4c3da
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/dbcombobox.inc
View File

@ -28,13 +28,15 @@
procedure TDBComboBox.UpdateData(Sender: TObject);
begin
FDataLink.Field.Text := Text;
FDataLink.Field.AsString := Text;
end;
procedure TDBComboBox.UpdateText;
var
DataLinkField: TField;
begin
if Assigned(FDataLink.Field ) then
Text := FDataLink.Field.AsString
DataLinkField := FDataLink.Field;
if Assigned(DataLinkField) then
Text := DataLinkField.Text
else
inherited;
end;