TuniDbRadioGroup

[drdavinci]

hi,

I created TuniDBRadioGroup from TuniRadioGroup.

But I received error at "Buttons[itemIndex].Focused".

it is defined as property of TCustomRadioGroup in extctrl.pas

I think, it is not defined in TuniRadioGroup.

How Can I correct?

 

bets regards.

 

 

 

 

procedure TuniDBRadioGroup.SetValue(const Value: string);

var

WasFocused: Boolean;

I, Index: Integer;

begin

if FValue <> Value then

begin

FInSetValue := True;

try

WasFocused := (ItemIndex > -1) and (Buttons[itemIndex].Focused);

Index := -1;

for I := 0 to Items.Count - 1 do

if Value = GetButtonValue(I) then

begin

Index := I;

Break;

end;

ItemIndex := Index;

// Move the focus rect along with the selected index

if WasFocused and (ItemIndex <> -1) then

Buttons[itemIndex].SetFocus;

finally

FInSetValue := False;

end;

FValue := Value;

Change;

end;

end;

UniDBRadioGroup.rar