[AlexandrV]

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

Вот так работает

Код:

function HexToTColor(sColor : string) : TColor;
begin
  Delete(sColor,1,1);
   Result :=
     RGB(
       StrToInt('$' + Copy(sColor, 5, 2)),
       StrToInt('$' + Copy(sColor, 3, 2)),
       StrToInt('$' + Copy(sColor, 1, 2))
     ) ;
end;

У вас вызывается RGB а передается BGR

Я знаю. OpenGl так считывает. я не виноват что игра просит верх нагами Hex код