[Delphi]Farben

[DeddyH]

Label1.Caption:= IntToHex(GetRValue(Farbenpanel.Color),2) + IntToHex(GetGValue(Farbenpanel.Color),2) + IntToHex(GetBValue(Farbenpanel.Color),2); Du brauchst ja die Farbe und nicht das Panel selbst.

[netmario]

Vielen Dank, aber ist Rot nicht immer hinten? Und wie kommst du auf die 2?

[DeddyH]

Wie willst Du es denn dargestellt haben? Ich habe das so gedacht, dass das RGB-Format angezeigt werden soll, Delphi definiert seine Farben aber im BGR-Format. Wenn Du Letzteres willst, würde auch einIntToHex(Panel.Color) genügen. Und die 2 heißt einfach 2 Stellen, also FF für 255 und nicht 00FF oder sowas.

[netmario]

Das Hexadezimalsystem besteht doch normalerweiße aus 4Bytes und soweit ich weiß bestimmt das letzt die Transparenz, wie kann man das machen?

[DeddyH]

In der "normalen" TColor gibt es kein Byte für die Transparenz, das 4. Byte wird als Flag für Systemfarben verwendet. Du müsstest also auf TBitmap32 oder ähnliches ausweichen.

[netmario]

Was ist Flag?

[DeddyH]

Ein Bit, das gesetzt wird oder eben nicht.

[netmario]

Sprich man könnte es für alles mögliche verwenden?

[DeddyH]

Schau mal hier: Effizientes Arbeiten mit Bitmasken

[stahli]

Hier sind mal ein paar Links über Farbsysteme und Helligkeitsänderungen.