Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Setzen einer Bitmapfarbe funktioniert via Pixels[x,y] funktioniert nicht (https://www.delphipraxis.net/172084-setzen-einer-bitmapfarbe-funktioniert-via-pixels%5Bx-y%5D-funktioniert-nicht.html)

v2afrank 12. Dez 2012 10:32

Setzen einer Bitmapfarbe funktioniert via Pixels[x,y] funktioniert nicht
 
Hallo,
mit diesem Thema kenn ich mich gar nicht aus, darum habe ich hier vermutlich / hoffentlich einen einfachen Fehler.
Ich habe hier eine Bitmpa deren Farbwerte ich ändern möchte. Im Prinzip funktioniert das auch aber die Farben haben nicht den Wert den ich einstellen möchte.
Ich habe mir dazu via Led := Tbitmap.create; und LED.loadfromfile() ein Bild geladen.
In diesem setzt ich jetzt per bild.Canvas.Pixels[7,11]:=RGB(240,240,240); einen Farbwert. Im Prinzip wird auch richtig gearbeitet, allerdings macht mir das Programm aus RGB(240,240,240) ein RGB(255,255,255) was zwar auch ein Weißton ist aber nicht der den ich möchte. Wenn ich durchdebugge wird der Wert sofort bei der Zuweisung bild.Canvas.Pixels[7,11]:=RGB(240,240,240); verändert. Ich vermute mal das hat etwas mit der farbtiefe des Bitmpas zu tun, ich kenne mich da aber leider überhaupt nicht aus. Hat einer eine Idee ? Das Orginalbitmap, welches ich verändere hat eine Farbtiefe von 4Bit.

jsp 12. Dez 2012 10:37

AW: Setzen einer Bitmapfarbe funktioniert via Pixels[x,y] funktioniert nicht
 
Hallo,

du musst das Pixelformat setzten:

Delphi-Quellcode:
Led.PixelFormat := pf24bit;
Gruss, Jörn

v2afrank 12. Dez 2012 10:42

AW: Setzen einer Bitmapfarbe funktioniert via Pixels[x,y] funktioniert nicht
 
Danke.
Das war es. Wenn ich darüber nachdenke macht es auch Sinn. Ich hatte schon einmal versucht die Farbtiefe auf pf4Bit zu setzen. Aber das problem wird ja sein, dass mein Bitmap meine verschiedenen Farbtöne mit einer kleineren Auflösung nicht kennt,


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:51 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