Entwickler-Ecke
Multimedia / Grafik - Falsche Farbe zurück. Wo ist hier mein Gedankenfehler?
Anonymous - Di 29.10.02 17:57
Titel: Falsche Farbe zurück. Wo ist hier mein Gedankenfehler?
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.Button1Click(Sender: TObject);
var
R, G, B: Byte;
begin
R:= Byte(Color);
G:= Byte(Color shr 8);
B:= Byte(Color shr 16);
Color := (B shl 16) + (G shl 8) + R;
end; |
Color hin, Color her und schon stimmt Color nicht mehr.
Ich zerlege die Farbe und füge sie zusammen ohne eine Verändrung vorgenommen zu haben. Aber dennoch bekomme ich als Ergebnis ein schwarzes Formular zurück. Kann ich Color nicht so zerlegen? Wo ist der Fehler?
Anonymous - Di 29.10.02 18:12
//Edit
Hat sich erledigt.
Was sagte meine Oma: Wenn du sicher sein willst, daß etwas erledigt wird dann mach es selbst.
Schande über mich. Weil ich zu faul war mir die Funktion selbst zu schreiben, hab ich sie im Internet gesucht. Alle Funktionen die ich gefunden habe funktionierten nicht. Jetzt hab ich mir die Funktion selbst geschrieben und sie funktioniert.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!