Einzelnen Beitrag anzeigen

Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#885

Re: Andorra 2D [Ver. 0.4.5.1, 31.12.08]

  Alt 2. Jan 2009, 18:19
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
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat