[lmikle]

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

Вот код процедуры относительно медленно но вроде как дубово

Код:

function GetTrueGrey(inParam: Tcolor): integer;
var
 r,g,b: integer;
begin
 for r:=1 to 255 do
  for g:=1 to 255 do
   for b:=1 to 255 do
    if (RGB(r,g,b)=InParam) and (r=g) and (r=b) then result:=0
 else result:=-1;
end;

Ребята, вы что, совсем охренели? Для чего существуют функции RGBToColor и ColorToRGB?