Перевести TColor в числовой Cardinal

[Тоба]

Здравствуйте, появилась задача
Надо перевести TColor в числовой Cardinal
Допустим clRed в числовом формате это 4294901760
Как допустим из clRed получить 4294901760
Мозг кипит...

[Аватар]

4294901760

??? 255

[Тоба]

Да это кардинал,
но надо именно порядковый

Вот к примеру смотрите:
Только тут - с кардинала получаем R,G,B,
а надо наоборот (предварительно конечно перевести TColor в RGB)
Т.Е имеем TColor -> RGB -> 4294901760

var
Color : cardinal;
B,G,R : integer;
begin
  Color := GetSysColor (StrToInt(Flag));
  B := (Color) div 65536;
  G := ((Color)- (B)*65536) div 256;
  R := (Color) - (B)*65536-(G)*256;
end;

можно конечно обратный костыль написать, но...

[Аватар]

Допустим clRed в числовом формате это 4294901760

А чего тут допускать? Без всяких допустим:
clRed = $FF
4294901760 = $FFFF0000
Ну и как из одного собираешься другое получать?

[Тоба]

Не ЗНАЮ.
Не ЗНАЮ.

[Toxa]

для чего это требуется?

[Stilet]

Чет я совсем не понял что нужно...

[min@y™]

Допустим clRed в числовом формате это 4294901760

Нет, не допустим!
clRed = 255; // $000000FF и никак иначе!
А вот если ты хочешь из BGR (3 байта) получить RGB (3 байта) и наоборот - то это легко. Если б такой функции не было, её придумать - 3 минуты.

[evg_m]

Color To RGB
RGB to Color

[min@y™]

Сообщение от evg_m

Color To RGB
RGB to Color

О, delphi 7! Моя прелесть!!!...