Manejar Trozos de BMP

[madriles]

Hola Deiv
la verdad es que no entiendo realmente tu problema ¿ estas obligado a cargar la imagen ?, por supuesto, siempre tendras que cargarla en memoria para hacer los calculos, da lo mismo el sistema que uses. ¿Que problema te supone cargar un JPG de 32*320 pixel?, son 5 Kb. Ademas, teniendola en tu ejecutable te evitas que por error borren tu imagen del directorio y te salte una excepcion.
Con la solucion que te propongo solo tienes que tener un TPanel mas en tu formulario (de 32 * 32 pixel) que contiene la imagen completa y luego solo es cuestion de moverla con un calculo sencillo como es, en tu caso

Código Delphi [-]
Image1.Left := -(Num * 32);//ya que 32 es tu ancho fijo de dibujo

tienes, por supuesto, muchas otras soluciones, pero mas sencillas y con menos codigo...

bueno, tu tienes la ultima palabra, utiliza la solucion que mas te convenga y haznos saber como te queda
un saludo

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