Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[xZise]

Zitat von igel457:

Wenn du wissen möchtest, ob ein TAdImage komplett Schwarz ist, dann speichere es doch in ein TAdBitmap und greife einfach über Scanline darauf zu:

Delphi-Quellcode:

var
  adbmp: TAdBitmap;
  pc: PCardinal;
begin
  adbmp := TAdBitmap.Create;
  AdImage.Texture.SaveToGraphic(adbmp);
  pc := adbmp.Scanline;
  for i := 0 to (adbmp.Size div 4) - 1 do
  begin
    if (pc^ and $FFFFFF00) <> 0 then Nicht Schwarz //and $FFFFFF00 ist um den Alphakanal zu ignorieren
    inc(pc);
  end;
  adbmp.Free;
end;

Hmmm also damit funktioniert es, aber mit diesem Code nicht:

Delphi-Quellcode:

bmp := TBitmap.Create;
try
  AImgBuf.Texture.SaveToGraphic(bmp);
  bmp.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Neuer Ordner\' + AName + '-a.bmp');
finally
  bmp.Free;
end;

MfG
xZise