Einzelnen Beitrag anzeigen

Benutzerbild von igel457
igel457

Registriert seit: 31. Aug 2005
1.622 Beiträge
 
FreePascal / Lazarus
 
#614

Re: Andorra 2D [Ver. 0.35, 04.03.08]

  Alt 2. Mai 2008, 11:12
Die Dokumentation ist ziemlich inaktuell. Mit der nächsten Version wird sich das allerdings ändern. Mit folgendem Code kannst du ein Bild aus der Bilderliste "bluren":
Delphi-Quellcode:
uses
  AdBitmap, AdBitmapEffects;
var
  adbmp: TAdBitmap;
  adblur: TAdBitmapBlur;
begin
  adbmp := TAdBitmap.Create;
  adbmp.ReserveMemory(AdImageList[0].Width, AdImageList[0].Height);
  AdImageList[0].Texture.SaveToGraphic(adbmp);
  
  adblur := TAdBitmapBlur.Create;
  adblur.Radius := 5;//Stärke des Effekts
  
  adblur.AssignEffect(adbmp);

  adblur.Free;
   
  AdImageList[0].Texture.LoadFromGraphic(adbmp);
  adbmp.Free;
end;
Ist ungetestet, sollte aber funktionieren...

PS: Achja, ich glaube das, was du wirklich suchst ist:
AdDraw.Options := AdDraw.Options + [doMipmaps];
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
  Mit Zitat antworten Zitat