opBitmap und tga grafiken ?

[pluto]

Hallo,
ich habe hier ein tga Grafik die wird falsch da gestellt
und ich weiß einfach nicht warum zum laden nutze ich folgenden code:

Code: Alles auswählen

procedure LoadFileToBMP(const aFileName: String; var aBuffer: TBitMap);
var
  op:TOPPicture;
begin
  op:=TOpPicture.Create;
  op.LoadFromFile(aFileName);
  AssignOpBitmapToBitmap(op.Bitmap,aBuffer);
  op.free;
end;

im anhang sind zwei Grafiken

Code: Alles auswählen

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  tmp:TBitMap;
begin
  tmp:=Tbitmap.create;
  LoadFileToBMP('/home/pluto/daten/eigene/lazarus/d2Engine/eXtreme_Towerdefence/bin/image/ApeD.png',tmp);
  Paintbox1.Canvas.Draw(0,0,tmp);
end;

So lädt OpBitmap die Grafik

PS:
ich hätte dir auch ein PM geschrieben, doch leider kann man da keine anhänge mit versenden

edit1: ich habe die Grafik auch schon mit einem anderen Programm in png umgewaldet aber
auch hier der gleiche Fehler

edit2: ich habe die Grafiken als bmp gespeichert eine davon, und das macht opBitmap richtig.... kann es sein da TGA und PNG Tranzparente Daten enthalten das er damit Probleme hat ?

[pluto]

Und hat sich jemand die Grafik mal angesehen und kann den Fehler Erklären ?

[theo]

Das ApeD.png hat einen Alphakanal.

Probier mal das, dann sieht das Bild "normal" aus:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var op:TOPPicture;
ob:TCanvasOpBitmap;
begin
  op:=TOpPicture.Create;
  op.LoadFromFile('/home/theo/Documents/ApeD.png');
  ob:=TCanvasOpBitmap.Create;
  ob.Width:=op.Bitmap.Width;
  ob.Height:=op.Bitmap.Height;
  ob.Canvas.Brush.Color:=clwhite;
  ob.Canvas.FillRect(Rect(0,0,ob.Width,ob.Height));
  op.Bitmap.AlphaBlend:=true;
  ob.Canvas.Draw(0,0,op.Bitmap);
  AssignOpBitmapToBitmap(ob,Image1.Picture.Bitmap);
  ob.free;
  op.free;
end;

Das ist übrigens ein Problem mit den Interfaces.
Qt hat kein Problem damit und kann es auch so anzeigen:

Code: Alles auswählen

procedure TForm1.Button2Click(Sender: TObject);
var op:TOPPicture;
begin
  op:=TOpPicture.Create;
  op.LoadFromFile('/home/theo/Documents/ApeD.png');
  AssignOpBitmapToBitmap(op.Bitmap,Image1.Picture.Bitmap);
  op.free;
end;

[pluto]

ach so wie ich das jetzt sehe brauche ich blos: op.Bitmap.AlphaBlend:=true; zu machen.
...
Vielen Dank ! Werde ich gleich mal ausprobieren.