rgb(***,***,***)

[Fisherman86]

Добрый день!
Каким образом из colorDialog можно получить такое:

rgb(***,***,***)

[Fisherman86]

Ну как говириться "спасибо за активность"!

Вот ка-то так:

var
  r,g,b:string;
  col :integer;
begin
  if dlgColor1.Execute then
  begin
    col:=dlgColor1.Color;
    R:= IntToStr(GetRValue(Col));
    g:=IntToStr(GetGValue(Col));
    B:= IntToStr(GetBValue(Col));
    synm1.SelText:=synm1.SelText+'rgb('+r+','+g+','+b+')';
  end;

Это и есть ответ!!!

[robt]

ColorToRGB

Такбы и написал что надо вывести компоненты цвета!!!
ибо есть функция rgb(r,g,b) которая собирает из компонентов

[dmitriegorovih]

На крайняк

var
m,r,g,b:cardinal;
begin
m:=strtoint(edit4.Text); // Цвет то-есть из colorDialog
b:=m div 65536;
g:=(m-(b*65536)) div 256;
r:=((m-(b*65536))-(g*256));
edit1.Text:=inttostr(r);
edit2.Text:=inttostr(g);
edit3.Text:=inttostr(b);
end;