Crear escala en ONPAINT.???

[[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.