Crear escala en ONPAINT.???

[vagobiker]

Empezado por José Luis Garcí

Por curiosidad como lo solucionaste, podrías poner algo de código, aunque sea comparativo.

Bueno me fui por lo mas facil que se me ocurrio... Quite la animacion, y preferi agregar una Timagen y generar el cambio de imagenes a traves de los Timer, en mi caso 2, uno para generar un conteo cada cierto tiempo, y el otro para que en ese conteo me cambiara la imagen

El codigo, algo asi:

procedure TFormrotametrollave.Timer_conteoTimer(Sender: TObject);
begin
Xf:=Xf+1;
if (Xf=9) then
begin
Xf:=0;
end;
end;


procedure TFormrotametrollave.Timer_imagenesTimer(Sender: TObject);
begin
if (Xf=0) then
begin
Image1.Picture.LoadFromFile('giro_rotam\01.jpg');
end;
if (Xf=1) then
begin
Image1.Picture.LoadFromFile('giro_rotam\02.jpg');
end;
if (Xf=2) then
begin
Image1.Picture.LoadFromFile('giro_rotam\03.jpg');
end;
if (Xf=3) then
begin
Image1.Picture.LoadFromFile('giro_rotam\04.jpg');
end;
if (Xf=4) then
begin
Image1.Picture.LoadFromFile('giro_rotam\05.jpg');
end;
if (Xf=5) then
begin
Image1.Picture.LoadFromFile('giro_rotam\06.jpg');
end;
if (Xf=6) then
begin
Image1.Picture.LoadFromFile('giro_rotam\07.jpg');
end;
if (Xf=7) then
begin
Image1.Picture.LoadFromFile('giro_rotam\08.jpg');
end;
end;

[[José Luis Garcí]]

Creo que deberías usar, una TIimagenList con los imágenes y usar un case para la carga de imágenes, si como comentas en tu primer post la imagen es la escala que necesitas, tendría que funcionare perfectamente

Edito, Retiro lo dicho del TimagenList, ya que su tamaño en la altura es mayor que el permitido, pero voy a mirarlo.

[[José Luis Garcí]]

vagoBiker, hay un componente en las jedi que te prodia servir, el JVImagelist, es algo más complicado de usar, que el ImageList y permite tamaños mucho mayors de todas maneras lo que te comentaba del Case es lo siguiente, tu tienes el Siguiente código

Código Delphi [-]
procedure TFormrotametrollave.Timer_imagenesTimer(Sender: TObject);
begin
if (Xf=0) then
begin
Image1.Picture.LoadFromFile('giro_rotam\01.jpg');
end;
if (Xf=1) then
begin
Image1.Picture.LoadFromFile('giro_rotam\02.jpg');
end;
if (Xf=2) then
begin
Image1.Picture.LoadFromFile('giro_rotam\03.jpg');
end;
if (Xf=3) then
begin
Image1.Picture.LoadFromFile('giro_rotam\04.jpg');
end;
if (Xf=4) then
begin
Image1.Picture.LoadFromFile('giro_rotam\05.jpg');
end;
if (Xf=5) then
begin
Image1.Picture.LoadFromFile('giro_rotam\06.jpg');
end;
if (Xf=6) then
begin
Image1.Picture.LoadFromFile('giro_rotam\07.jpg');
end;
if (Xf=7) then
begin
Image1.Picture.LoadFromFile('giro_rotam\08.jpg');
end;
end;

y yo te propongo este otro

Código Delphi [-]
procedure TFormrotametrollave.Timer_imagenesTimer(Sender: TObject);
begin
     case Xf of
        0:Image1.Picture.LoadFromFile('giro_rotam\01.jpg');
        1:Image1.Picture.LoadFromFile('giro_rotam\02.jpg');
        2:Image1.Picture.LoadFromFile('giro_rotam\03.jpg');
        3:Image1.Picture.LoadFromFile('giro_rotam\04.jpg');
        4:Image1.Picture.LoadFromFile('giro_rotam\05.jpg');
        5:Image1.Picture.LoadFromFile('giro_rotam\06.jpg');
        6:Image1.Picture.LoadFromFile('giro_rotam\07.jpg');
        7:Image1.Picture.LoadFromFile('giro_rotam\08.jpg');
     end;
end;

creo que es más claro y fácil de seguir.

[vagobiker]

Si tienes razon, yo al momento de postear tambien me di cuenta que era posible hacerlo con un "case" como lo muestras, pero como la prueba la hic con puros "if" asi lo deje Jejejeje

Pero bueno creo q a la final voy a cambiarme al case, se ve todo mas organizado... Grax