mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-10 17:38:25 +02:00
lcl: use Text instead of DisplayText in DBRadioGroup. Issue #22920
git-svn-id: trunk@38819 -
This commit is contained in:
parent
09a91920b3
commit
2eea52416f
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user