was soll das übersetzt heißen?

[EMS]

ok das ist gut dann hab ich das jetzt so verstanden.

jetzt möchte ich ja selber diese Buchstaben in die einzelnen Bits der Pixel schreiben.

wäre das hier richtig?

Delphi-Quellcode:

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

Aber ich komm jetzt nicht drauf wie ich die dann wieder zu zB. farbe zusammen bekommeß

kann ich da sagen
farbe:=rneu + gneu + bneu;

Wäre das richtig´?

[Popov]

Das Gleiche, nur in die andere Richtung:

Delphi-Quellcode:

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

Edit:

Hier ein einfach Beispiel:

Delphi-Quellcode:

var
  L: LongInt;
  R, G, B: Byte;
begin
  L := ColorToRGB(Farbe); //macht aus Delphi-Color RGB-Color, konvertiert also auch clRed in rot

  R := Byte(L);
  G := Byte(L shr 8);
  B := Byte(L shr 16);

  //mach was mit den einzelnen R, G und B Bytes und dann wieder zusammensetzten

  Farbe := (B shl 16) + (G shl 8) + R;
end;

[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;