Buenas soy nuevo en esto de delphi , tengo un problema con 1 imagen png .Ante todo uso delphi 7 .Intente de 2 formas ,con fondo blanco no saca bien el fondo y con la imagen transparente queda todo como roto, que puedo hacer ?
Pd: Para agregar las png use GraphicEx
Este es el codigo de la parte de la imagen "creo"
Código Delphi
[-]FMain.brush.bitmap:=Image1.picture.bitmap;
nullClr := image1.picture.Bitmap.Canvas.Pixels[0, 0];
regn := CreateRectRgn(0, 0, image1.picture.Graphic.Width,
image1.picture.Graphic.Height);
for x := 1 to image1.picture.Graphic.Width do
for y := 1 to image1.picture.Graphic.Height do
if image1.picture.Bitmap.Canvas.Pixels[x - 1, y - 1] = nullClr then
begin
tmpRegn := CreateRectRgn(x - 1, y - 1, x, y);
CombineRgn(regn, regn, tmpRegn, RGN_DIFF);
DeleteObject(tmpRegn);
end;
SetWindowRgn(FMain.handle, regn, true);
Fondo Blanco:
Fondo Transparente:
Desde ya les agradesco su tiempo ! graciass