Finalmente, para el poco conocimiento que tengo logre lo que quería, tuve que darle muchas vueltas al código y finalmente comprendí que el orden de las líneas estaban mal. Este funciona:
Código Delphi
[-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
PaintBox1.Left:=PaintBox1.Left+2;
PaintBox1.Repaint;
PaintBox2.Left:=PaintBox2.Left-2;
PaintBox2.Repaint;
ImageList1.Draw(PaintBox1.Canvas,0,0,0);
ImageList1.Draw(PaintBox2.Canvas,0,0,1);
end;
Ahora estoy enredado en otro, estoy intentando blinkar habiendo creado el doble de alto como sugirió madriles, pero el ejemplo de arriba está dado para un TImage con la propiedad Top, y yo estoy trabajando con una TImageList como mencioné en mi último post y este no tiene la propiedad Top????
Código Delphi
[-]
var
Bitmap: TBitmap;
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
Bitmap:= TBitmap.Create;
try
BitMap.LoadFromFile(getcurrentdir+'/BigBmp.bmp');
ImageList1.Width:= BitMap.Width div 10; ImageList1.Height:= BitMap.Height div 2; ImageList1.BkColor:=clNone;
ImageList1.BlendColor:= clNone;
ImageList1.DrawingStyle:= dsTransparent;
ImageList1.Masked:= True;
ImageList1.AddMasked(Bitmap, Bitmap.Canvas.Pixels[0,0]);
finally
BitMap.Free;
end;
end;
¿Como podría blinkar esa sección del TImageList?