[JM-DG]

Hi!

I would like to know how to make a toggle button with a TsButton which would become:

lighted up only if On

else

always normal state not lighted up Off.

See attached image.

Here's what I was able to do so far:

Code:

procedure TEq.OnOffbutClick(Sender: TObject);
begin
if OnOffbut.Caption = 'Off' then
begin
OnOffbut.Caption := 'On';
// lighted up
// I know it should be something like: EqOnOffbut.SkinData.SkinManager.???
end
else
begin
OnOffbut.Caption := 'Off';
// not lighted up
end;
end;

Thank you for your answers!

[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