TTogglebox color

[Switcher]

Hello there

Is there a way to change the color of the TTogglebox depending  of its state, i would like to have a green box in the unselected mode an d a red one if checked (obvious)

In the example below the caption is changed in the correct way; the.Color instruction has no effect and the//....ParentColor line generates a "identifier idents no member'ParentColor'" although you'll find this property in the TTogglebox.dropdow list

Thanks

Code: [Select]

procedure TForm1.ToBoEvTaClick(Sender: TObject);
begin
   if ToBoEvTa.State=cbunchecked then
      begin
         ToBoEvTa.caption :='Run Event Table';
         //ToBoEvTa.ParentColor:=False;
         ToBoEvTa.Color:=clLime;
      end
   else
       begin
          //ToBoEvTa.ParentColor:=False;
          ToBoEvTa.Color:=clRed;
          ToBoEvTa.caption :='Stop Event Table';

       end

end;

[zeljko]

It depends on widgetset I guess. Under qt it's possible, don't know what ws you're talking about.