Cita:
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.