Forum: Object-Pascal / Delphi-Language
Delphi
by Satty67,
16. Mai 2011
Ok, das sieht gut aus. Aber weil ich auch gerade nebenher gebastelt hab (natürlich zeitlich total versagt ;)) poste ich auch mein Ergebnis, dass Deinen angebotenen Funktionsrumpf als Vorlage hatte:
type
TARGB = packed record
A,R,G,B : Byte;
end;
function MixColor(ARGB : TARGB; Color : TColor): TColor;
var
R, G, B : Byte;
Forum: Object-Pascal / Delphi-Language
Delphi
by Satty67,
16. Mai 2011
TColor enthält doch kein Alphawert, dachte der 4. Bytewert ist reserviert für Palettenauswahl?