was soll das übersetzt heißen?

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

[Popov]

Sag einfach was du machen willst. Selbst mit viel Fantasie weiß ich nicht was du mit

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

erreichen willst.

[EMS]

ok
ich hab jetzt ein editfeld dort soll ein Text rein.
Dieser muss dann ja Buchstabe für Buchstabe geladen werden.
Dann die Ordnungszahl erstellt werden und diese nacheinander für die neuen
farbwerte rneu,gneu,bneu eingesetzt werden.

[Popov]

Verstehe ich es richtig, dass du in einem Editfeld Text hast, z. B. "Hallo Welt", dann liest du "H" raus und das soll der Rotanteil sein, "a" der Grünanteil, usw. ?

[EMS]

yop genau so ist es

ich hab da mal das hier versucht

Klappt natürlich nicht

[EMS]

Delphi-Quellcode:

for spalte:=1 to laenge_der_verschluesselung do           //Pixel aus der 1. Spalte bis Stellenlänge
     begin
     farbe:=image1.Canvas.Pixels[spalte,0];                 //Erste Pixel lesen
     wert:=tex[spalte];                                     //Buchstaben aus Editfeld an der Stelle der Schleife lesen
     Ordnungszahl:=ord(wert[1]);                            //Ordnungszahl erstellen aus Buchstabe an der Stelle 1
     showmessage('Ordnungszahl '+ inttostr(Ordnungszahl));
     repeat
     For hindex:=1 to laenge_der_verschluesselung do        //Schleife für die Anzahl der Buchstaben
     rneu:=ord(wert[hindex]);                               //Rot Wert als Ordnungszahl von Wert an der Stelle des Hilfsindex
     gneu:=ord(wert[hindex+1]);                             //Grün Wert als Ordnungszah von Wert Hilfsindex +1 (Eine Stelle weiter)
     bneu:=ord(wert[hindex+2]);
     until (hindex + 2) = laenge_der_verschluesselung;      //Abbruch Bedingung wenn hindex+2 den Wert der Länge der Verschlüsselung erreicht hat


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

[Helmi]

hier fehlt ein begin/end

Delphi-Quellcode:

     For hindex:=1 to laenge_der_verschluesselung do //Schleife für die Anzahl der Buchstaben
       begin //<================HIER
         rneu:=ord(wert[hindex]); //Rot Wert als Ordnungszahl von Wert an der Stelle des Hilfsindex
         gneu:=ord(wert[hindex+1]); //Grün Wert als Ordnungszah von Wert Hilfsindex +1 (Eine Stelle weiter)
         bneu:=ord(wert[hindex+2]);
       end;  //<================HIER
      until (hindex + 2) = laenge_der_verschluesselung; //Abbruch Bedingung wenn hindex+2 den Wert der Länge der Verschlüsselung erreicht hat