Manejar Trozos de BMP

[Deiv]

Gracias amigos, en este momento no dispongo de Delphi, llegando a casa probaré las sugerencias y luego les comento.
Saludos

[Deiv]

Gracias Seoane (interesante tu nueva identificación "Registered User") y gracias Madriles por sus orientaciones, me solucionaron el caso, tienen razón existe muchas formas, yo ya la estaba viendo "cuadrado" pensando que no había solución, ahora solo me queda como realizar el BLINKADO con un TTimer para el mismo caso.

[madriles]

hola de nuevo,
para el parpadeo del bmp, siguiendo con mi propuesta, solo tienes que hacer el bmp el doble de alto, en la parte superior el numero normal y en la parte de abajo el numero de parpadeo, nose en color verde por ejemplo asi con este codigo u otro parecido lo consigues

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if Image1.Top =  0   Then
       Image1.Top := -32 else
       Image1.Top := 0;
end;

un saludo

[Deiv]

No consigo transparentar la parte que recupero del BitMap he colocado el código, en TFormCreate:

Código Delphi [-]
TransparentBmp.TransparentColor := clWhite;

TransparentBmp.Transparent := True;

al código de arriba:

Código Delphi [-]
procedure DibujarTrozo(Filename: string; Count, Index: Integer; Dest: TCanvas);
var
  Ancho: Integer;
begin
  with TBitmap.Create do
  try
    LoadFromFile(Filename);
    Ancho:= Width div Count;
    Dest.CopyRect(Rect(0,0,Ancho,Height), Canvas,
                  Rect(Ancho*Index,0,Ancho*(Index+1),Height));
  finally
    Free;
  end;
end;

Mi BitMap tiene fondo blanco, y con el DRAW me dibuja todo pero transparente, en cambio según el código de arriba no logro transparentarlo. Una ayuda please.

Saludos

[[seoane]]

Empezado por Deiv

No consigo transparentar la parte que recupero del BitMap
...

Mi BitMap tiene fondo blanco, y con el DRAW me dibuja todo pero transparente, en cambio según el código de arriba no logro transparentarlo. Una ayuda please.

No es la forma mas elegante de hacerlo pero si muy sencilla de entender, vamos comprobando pixel a pixel y solo copiamos los que no son blancos

Código Delphi [-]
procedure DibujarTrozo(Filename: string; Count, Index: Integer; Dest: TCanvas);
var
  Ancho: Integer;
  i,j: Integer;
begin
  with TBitmap.Create do
  try
    LoadFromFile(Filename);
    Ancho:= Width div Count;
    for i:= 0 to Ancho - 1 do
      for j:= 0 to Height -1 do
        if Canvas.Pixels[(Ancho*Index)+i,j] <> clWhite then
          Dest.Pixels[i,j]:= Canvas.Pixels[(Ancho*Index)+i,j];
  finally
    Free;
  end;
end;

De todas yo consideraria la posibilidad de usar un TImageList como te sugeri un poco mas arriba.

[Deiv]

Gracias Seoane, funciona!

[Deiv]

Probé el consejo de Seoane con el TImageList, y modifiqué un poco el código para transparentarlo de la siguiente forma:

Código Delphi [-]
var
  Bitmap: TBitmap;
begin
  Bitmap:= TBitmap.Create;
  try
    BitMap.LoadFromFile(FileName);
    ImageList1.Width:= BitMap.Width div 10; // 10 Elementos
    ImageList1.Height:= BitMap.Height;
    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;

Funciona bien.
He cargado 2 PaintBox capturando en ellos diferentes trozos del BitMap que tengo:

Código Delphi [-]
   ImageList1.Draw(PaintBox1.Canvas,0,0,0);
   ImageList1.Draw(PaintBox2.Canvas,0,0,1);

Todo bien, he intendado MOVERLOS y cruzar a ambos manteniendo su transparencia con TTimer, y ahí tengo un problemita del cual
no me doy cuenta, y requiero de vuestra ayuda:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  PaintBox1.Left:=PaintBox1.Left+2;
  PaintBox1.Repaint;
  ImageList1.Draw(PaintBox1.Canvas,0,0,0);
  PaintBox2.Left:=PaintBox2.Left-2;
  PaintBox2.Repaint;
  ImageList1.Draw(PaintBox2.Canvas,0,0,1);
end;

Necesitaba sobreponer uno sobre el otro en el momento de cruce transparentes. Arriba lo que hace es uno sobrepone al otro
pero sin transparentarlo (lo tapa, o lo cubre). Es decir necesito en el momento de cruce dibujar uno y encima el otro, pero
mostrando ambos ¿Donde voy mal?
Pd.- Tal vez no me estoy dejando entender si el código de arriba no estuviera en un TTimer, y los ubico en posición de cruce
(left) me muestra bien a ambos (sin TTimer) es lo que requiero en realidad pero que eso se vea así al momento de cruce.
Gracias y saludos