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

lcl: use Text instead of DisplayText in DBRadioGroup. Issue #22920

Browse Source 
git-svn-id: trunk@38819 -
This commit is contained in:
blikblum 2012-09-25 03:12:37 +00:00
parent 09a91920b3
commit 2eea52416f
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/dbradiogroup.inc
View File

@ -104,8 +104,7 @@ end;
procedure TDBRadioGroup.DataChange(Sender: TObject); procedure TDBRadioGroup.DataChange(Sender: TObject);
begin begin
if FDataLink.Field<>nil then if FDataLink.Field<>nil then
// ToDo: Use Field.Text Value:=FDataLink.Field.Text
Value:=FDataLink.Field.DisplayText
else else
Value:=''; Value:='';
end; end;
@ -113,8 +112,7 @@ end;
procedure TDBRadioGroup.UpdateData(Sender: TObject); procedure TDBRadioGroup.UpdateData(Sender: TObject);
begin begin
if FDataLink.Field<>nil then if FDataLink.Field<>nil then
// ToDo: Use Field.Text FDataLink.Field.Text:=Value;
FDataLink.Field.AsString:=Value;
end; end;
function TDBRadioGroup.GetButtonValue(Index: Integer): string; function TDBRadioGroup.GetButtonValue(Index: Integer): string;