Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   [Andorra 2d] Bild einfärben! (https://www.delphipraxis.net/156495-%5Bandorra-2d%5D-bild-einfaerben.html)

w4rheart 4. Dez 2010 09:47

[Andorra 2d] Bild einfärben!
 
Hallo zusammen!

Gibt es in Andorra/Delphi/irgendwie die Möglichkeit ein PNG einzufärben?
So eine ähnliche Funktion wie bei Photoshop/Gimp?

Wäre super, wenn mir jemand weiterhelfen könnte :thumb:

regards

igel457 4. Dez 2010 10:36

AW: [Andorra 2d] Bild einfärben!
 
Hallo,

Delphi-Quellcode:
TAdImage.Color
sollte das gewünschte tun.

w4rheart 4. Dez 2010 10:59

AW: [Andorra 2d] Bild einfärben!
 
Hallo! Danke für deine Antwort.
Das habe ich versucht, allerdings tut sich bei mir nichts.
Was kann man color den für Werte mitgeben? Warum ist das nur 1 integer?

so hab ichs gemacht:
Code:
AdImageList := TAdImageList.Create( AdDraw );
with AdImageList.Add( 'raumschiff' ) do
begin
 Texture.LoadGraphicFromFile( 'bilder/raumschiff.png', true, clMaroon );
 PatternWidth := 82;
 PatternHeight := 82;
end;

AdImageList.Find('raumschiff').Color := 200;
muss ich das noch irgendwie abspeichern?

MfG

igel457 4. Dez 2010 12:40

AW: [Andorra 2d] Bild einfärben!
 
Color ist ein Normaler Delphi-Color Wert - also zum Beispiel clRed oder clGreen oder Ad_RGB(R,G,B). Ich verwende diese Eigenschaft zum Beispiel in der "Bounce"-Demo.

w4rheart 4. Dez 2010 14:10

AW: [Andorra 2d] Bild einfärben!
 
Super, Danke für deine Hilfe. Jetzt funktioniert es!

EDIT: Hast du evtl. noch einen Tipp, wie beim einfärben die Details des Bilds besser erhalten bleiben?


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:40 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz