Как в Дельфи DirectX цвет перегнать в TColor
Вот каким образом я переделываю TColor в directX цвет
function TD3DHistogram.ColorToDX(color: TColor): DWORD;
var
r, g, b : byte;
begin
r := color and $FF;
g := (color and $FF00) shr 8;
b := (color and $FF0000) shr 16;
result := (r shl 16) or (g shl 8) or b;
end;
а как можно direct цвет перегнать в TColor?
function TD3DHistogram.ColorToDX(color: TColor): DWORD;
var
r, g, b : byte;
begin
r := color and $FF;
g := (color and $FF00) shr 8;
b := (color and $FF0000) shr 16;
result := (r shl 16) or (g shl 8) or b;
end;
а как можно direct цвет перегнать в TColor?
Не поверишь...
[COLOR="Red"]
from moderаtor[/COLOR]: Предупреждение первое. Оно же - последнее.
[COLOR="Red"]
from moderаtor[/COLOR]: Предупреждение первое. Оно же - последнее.
Цитата: Der Meister
Не поверишь...
Да уж... Собственно вот функция:
Цитата: Maximillian_Cavalera
function TD3DHistogram.ColorToDX(color: TColor): DWORD;
var
r, g, b : byte;
begin
r := color and $FF;
g := (color and $FF00) shr 8;
b := (color and $FF0000) shr 16;
result := (r shl 16) or (g shl 8) or b;
end;
Если только название поменять для наглядности...