[Support]

Hello

I have one idea only – painting of button as active manually in the OnPaint event…

[JM-DG]

Good idea. I'll let you know how it went. 🙂

[JM-DG]

Here's how I did it. 🙂

Code:

var EqIsOn: Boolean;

procedure TEq.EqOnOffbutClick(Sender: TObject);
begin
if EqIsOn=true then
begin
EqIsOn:= false;
EqOnOffbut.Caption := 'Off';
end
else
begin
EqIsOn:= true;
EqOnOffbut.Caption := 'On';
end;
EqOnOffbut.Down:= EqIsOn;
end;

Thanks for the help!

[Typograph]

1. Put a SpeedButton on the form

2. Set Property GroupIndex to a value higher than 0

3. Set allowUp to TRUE

In Code

TsSpeedButton(Sander).Down := Not TsSpeedButton(Sander).Down

[Typograph]

procedure TEq.EqOnOffbutClick(Sender: TObject);

Const

Cap : array[0..1] Of String =('Off',On');

begin

TsSpeedButton(Sender).Down := Not TsSpeedButton(Sender).Down

TsSpeedButton(Sender).Caption := Cap[TsSpeedButton(Sender).Down]

end;

Thats it….

[Author]

Posts