Get RGB from TColor:

markieren

Delphi-Quellcode:

R := AColor and $FF;
G := (AColor shr $8) and $FF;
B := (AColor shr $10) and $FF;

Set TColor from RGB:
Result := (B shl $10) or (G shl $8) or R; Is it ok?

Yes, that should be right

markieren

Code:

$00 FF FF FF
 |  |  |  |
 A  B  G  R

where Alpha is ignored by the GDI.

As implementation already said, it should work, but why don’t you just try it out? On a side note, I find using hexadecimal numbers for bitshifting a little confusing, but maybe that’s just me.

Zitat von implementation:

where Alpha is ignored by the GDI.

Actually, it isn’t ignored, but it represents a palette entry instead of an alpha value.

By the way: ColorToRGB, RGB, you do not need to implement these functions yourself.