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;