Transparenz Farbe

[cylon]

Hi,
ich programmier im Moment nen RPG mit Delphi und da hab ich ne Frage. Also wie stellt man ein welche Farbe die transparente Farbe sein soll? (z. B. in einem Bild)
Versteht ihr?

[Gandalfus]

TBitmap.TransparentColor

[cylon]

Ok..aber..ich bin newbie im delphi programmieren und deshalb hab ich leider keine ahnung wie man den befehl in den compiler eingibt.. :oops:
muss man den in ne procedure packen, oder wie? :wiejetzt:

[Sanchez]

Das lässt sich direkt im Objekt Inspektor aus einstellen. Genau so wie du den Text deiner Labels setzt.

[cylon]

Bei mir läuft das ganze allerdings über TImage und nicht über TBitmap und da finde ich so eine Eigenschaft gar nicht. Da steht nur was von Transparent. (entweder True oder False)
Ich hab das Objekt TBitmap bisher nicht gefunden bei den Komponenten.
Oder ist TImage und TBitmap das gleiche?? :?:

[Sanchez]

Ne ist nicht das gleiche ein TImage beinhaltet ein TPicture welches wieder ein TBitmap beinhaltet.

Dann kanst du immer noch im OnCreate sagen:

Delphi-Quellcode:

  Image1.Picture.Bitmap.TransparentColor := xxx;

grüße, daniel

[H4ndy]

Soweit ich weiss wird, wenn du Trasparent := True
setzt, wird die Farbe des oberen linken Pixels des Bildes
als Trasparentfarbe genommen!

[sakura]

Zitat:

Zitat von H4ndy

wird die Farbe des oberen linken Pixels des Bildes

Fast, der untere linke Pixel. ;-)

...:cat:...

[cylon]

hmm..also ich hab das mal asprobiert und folgendes eingegeben:

Code:

procedure TFormStart.FormCreate(Sender: TObject);
begin
 ImageNS.picture.Bitmap.TransparentColor := 000000;
end;

(wobei ich nicht genau weiß ob 000000 der code für schwarz ist)
und als ich das dann getestet hab, war bei mir das ganze bild, bei dem ich schwarz transparent haben wollte, transparent.

und das mit dem linken unteren pixel geht auch nich...
(ich hab übrigens delphi 5 Professional <- falls das weiterhilft)...

ich hoffe ich krieg das irgendwann mal hin...

[Sanchez]

Schwarz ist übrigens clBlack oder $00000000.
Bei der Zahlenkodierung steht das erste Byte (die ersten beiden Zahlen) für (wie die OH so schön schreibt):

Zitat:

Hat das höchstwertige Byte den Wert Null ($00), erhalten Sie eine Farbe, die derjenigen in der Systempalette am ähnlichsten ist. Ist das höchstwertige Byte Eins ($01), ergibt das eine Farbe, die derjenigen in der aktuell realisierten Palette am ähnlichsten ist. Wenn Sie das höchstwertige Byte auf Zwei ($02) setzen, wird der Wert an die ähnlichste Farbe in der logischen Palette des aktuellen Gerätekontexts angepaßt.

Die restlichen drei Bytes sind die Werte für die Farben, allerdings nicht RGB sondern BGR

[cylon]

Ich hab hier jetzt mal die exe hochgeladen, um das zu zeigen...
So sieht das bei mir aus..
Aber um die einzelnen Buttons soll das schwarz weg. Das geht aber nicht.
entweder das bleibt so oder der GANZE Button ist transparent. :gruebel:

Also ich hab überhaupt keine Ahnung...

[Gandalfus]

Zitat:

Zitat von cylon

hmm..also ich hab das mal asprobiert und folgendes eingegeben:
(wobei ich nicht genau weiß ob 000000 der code für schwarz ist)

clblack ist schwarz.

[cylon]

Sanchez schrieb:

Zitat:

Ne ist nicht das gleiche ein TImage beinhaltet ein TPicture welches wieder ein TBitmap beinhaltet.

Ich hab aber nen JPEG Bild. Geht das damit nicht?? Ich werd es mal zu nem Bitmap machen. Mal sehen obs geht.

[cylon]

Also hier in Delphi kann ich garnix mehr machen, was Transparenz angeht...
Ob ich das hier schreibe:

Code:

procedure TFormStart.FormCreate(Sender: TObject);
begin
 ImageNS.Picture.Bitmap.TransparentColor := $00000000 ;
end;

oder das hier:

Code:

procedure TFormStart.FormCreate(Sender: TObject);
begin
 ImageNS.Picture.Bitmap.TransparentColor := clblack ;
end;

oder nen bitmap anstatt nem JPEG bild verwende

oder einfach nur im OI bei dem Bild was ich transparent haben will die Eigenschaft 'Transparent' auf 'True' setzte...

NIX ÄNDERT SICH...... :wall:

[Gandalfus]

probiere mal volgendes:

Delphi-Quellcode:

var
  test: TBitmap;

oncreate:

Delphi-Quellcode:

test := TBitmap.create;
 test.loadfromfile('c:\XXXXX\XXXX.bmp');{<-- das bild mal mit paint erstellen}
 test.PixelFormat := pf24bit; 
 test.transparentcolor := clblack;
 test.transparent := true;

onpaint(des Formulars):

Delphi-Quellcode:

Canvas.draw(10,10,test);

onclose:

Delphi-Quellcode:

test.free;