switch (on/off)

[sergisan]

Hola a todos,

necesito un componente que haga lo mismo que el TSwitch de las RX, es decir tiene 2 bitmapas (on/off) 2 textos (0n/0ff) y cuando clickas pasa de uno a otro.

El de las RX es perfecto, pero no las quiero usar (me dan errores exporadicos al salir del entorno y son demasiados componentes)

ademas he intentado aislar solo ese componente, pero es imposible.

Si alguien sabe de algo, que avise, please.


Sergio

[[José Luis Garcí]]

Bajate alguno de los varios que hay freeware en


www.DelphiSpirit.com

Un Saludo desde Canarias.

[sergisan]

Pues.....
te agradezco el enlace, pero no he encontrado nada

saludos

[madriles]

en algunas ocasiones que he necesitado algo parecido, lo que hago es lo siguiente. pongo un TPanel (sin bordes) y dentro un TImage que contenga un bmp con los dos graficos a mostrar, uno al lado del otro ( por supuesto de igual tamaño ).el TImage lo ajusto left y top a cero y el tpanel de modo que solo se vea un bmp, luego el siguiente codigo

procedure TForm1.Image1Click(Sender: TObject);
begin
if Image1.Left < 0 then
begin
Image1.Left := 0;
//resto de acciones
end
else
begin
Image1.Left := Image1.Left - Round(Image1.Width /2);
//resto de acciones
end;
end;

es muy sencillo, rapido y.. ademas funciona