![]() |
AW: was soll das übersetzt heißen?
Also wenn das eine Option ist, dann werfe ich GetRValue, GetGValue und GetBValue ins Spiel.
Delphi-Quellcode:
usw.
Rotanteil := GetRValue(RGBFarbe);
|
AW: was soll das übersetzt heißen?
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; |
AW: was soll das übersetzt heißen?
Eventprozeduren liefern kein Ergebnis
|
AW: was soll das übersetzt heißen?
mhh
kann ich das nicht mit diesem procedure(var ....); dann machen? |
AW: was soll das übersetzt heißen?
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. |
AW: was soll das übersetzt heißen?
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. |
AW: was soll das übersetzt heißen?
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. ?
|
AW: was soll das übersetzt heißen?
yop genau so ist es
ich hab da mal das hier versucht Klappt natürlich nicht |
AW: was soll das übersetzt heißen?
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; |
AW: was soll das übersetzt heißen?
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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:20 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz