Forum: Object-Pascal / Delphi-Language
by DeddyH,
8. Okt 2009
Schau mal hier: Effizientes Arbeiten mit Bitmasken
Forum: Object-Pascal / Delphi-Language
by DeddyH,
8. Okt 2009
Ein Bit, das gesetzt wird oder eben nicht.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
8. Okt 2009
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.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
8. Okt 2009
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.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
8. Okt 2009
DeinString := IntToHex(GetRValue(Farbe),2) + IntToHex(GetGValue(Farbe),2) + IntToHex(GetBValue(Farbe),2);
Ungetestet.
Ich hatte die Digits vergessen.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
8. Okt 2009
Mit IntToHex und GetRValue/GetGValue/GetBValue.