was soll das übersetzt heißen?

[EMS]

Ich hab jetzt das stehen

Delphi-Quellcode:

     rneu:=50 and $0000FF;
     gneu:=(60 and $00FF00);
     bneu:=(70 and $FF0000);


     Neues_Pixel:=(bneu shl 16) + (gneu shl 8)+ rneu;

Der Integer von diesem Pixel ist 50 müsste da nicht auch was 8 Stelliges raus kommen?

[EMS]

jetzt klappts so wie ich gerne wollte

Delphi-Quellcode:

     rneu:=0;
     gneu:=250;
     bneu:=0;
     Neues_Pixel:=(bneu shl 16) + (gneu shl 8)+ rneu;

[Furtbichler]

Geht auch so:
MyColor := RGB(RotAnteil,GelbAnteil,BlauAnteil); RGB ist in der Unit Windows deklariert.

[Popov]

Also wenn das eine Option ist, dann werfe ich GetRValue, GetGValue und GetBValue ins Spiel.

Rotanteil := GetRValue(RGBFarbe); usw.

[EMS]

ne das hatten wir nicht das gibt nur wieder rummgemecker...

jetzt hab ich nen neues Problem

Ich möchte jetzt für die rneu,gneu,bneu eine Prodcdur einsetzen die ich vorher für einen Button gemacht habe.

Das sieht jetzt so aus und geht mal wieder nicht was ist dadrann denn falsch?

rneu:=TForm1.Button6Click;
gneu:=TForm1.Button6Click;
bneu:=TForm1.Button6Click;

[mkinzler]

Eventprozeduren liefern kein Ergebnis

[EMS]

mhh
kann ich das nicht mit diesem procedure(var ....);
dann machen?