[cypheros]

Hello,

have a problem with the TsDBRadioGroup in release 6.20. If you move with the mouse over the buttons of a TsDBRadioGroup this will change the attached dataset to edit mode even if you don't click on the button and the data of the field was not changed.

I will attache a small example application to demonstrate the unwanted behaviour.

To make your work easier I already have a solution for this. As a hotfix I made the following small changes to make it behave like the standard TDBRadioGroup:

function TsDBRadioGroup.CanModify(NewIndex : integer): Boolean;
begin

//Result := FDataLink.Edit
Result := FDataLink.CanModify;

end;

procedure TsDBRadioGroup.Click;
begin

if not FInSetValue then
begin

inherited Click;
if ItemIndex >= 0 then
begin

if GetButtonValue(ItemIndex) <> Value then FDataLink.Edit;
Value := GetButtonValue(ItemIndex);

end;
if ItemIndex >= 0 then Value := GetButtonValue(ItemIndex);
if FDataLink.Editing then FDataLink.Modified;

end;

end;

Greetings from Germany
Cypheros

[Support]

Hello and thank you for message!
TsDBRadioGroup will be changed in the next release.

[Author]

Posts