Manejar Trozos de BMP

[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

[Deiv]

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; // 10 Elementos
    ImageList1.Height:= BitMap.Height div 2;  //Muestro solo la parte superior del BitMap de doble alto
    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?