[yojosee]

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