Delphi 7 - PNG Image isn't showing

[crash_8675]

I am using Delphi 7 Pro. I have installed the PNG Component in my project, but whenever I load a PNG image into the Image1 component, the application starts but its main form is invisible. If I load a JPEG or a bitmap file, the form is shown. Here's the code I'm using in my form constructor:

procedure TFMain.FormCreate(Sender: TObject);
var
  regn, tmpRegn, x, y: integer;
  nullClr: TColor;
  Settings: TInifile;
begin
  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);
end;

Why is this happening ? What should I change so I can use PNG image in my Image1 ?

[ZuBy]

Try to resave your png file, and change pixelformat := pf24bit;

[crash_8675]

Сообщение от ZuBy

Try to resave your png file, and change pixelformat := pf24bit;

Hello thank you very much for your answer, I tried what you suggested but not working.

[maloun]

some like this

uses
  pngimage;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  a,d:pByteArray;
  png1,png2:TPNGObject;
  arect:TREct;
  i,j:Integer;
begin
  png1:=TPngObject.Create;
  png1.LoadFromFile('2.png');      { COLOR_RGBALPHA }
  png2:=TPngObject.createblank(COLOR_GRAYSCALEALPHA, 16, png1.Width, png1.Height);
  arect:=Rect(0,0,png1.width, png1.height);
  for i:=0 to png1.height-1 do
  begin
    a:=png1.AlphaScanline[i];
    for j:=0 to png1.width-1 do
    begin
      d:=png2.AlphaScanline[i];
      if a=nil then d[j]:=255
      else
      d[j]:=a[j];
    end;
  end;
  png2.Canvas.CopyRect(arect, png1.Canvas, arect);
  Image1.Picture.Bitmap.Assign(png2);
end;