var
c:longint;
begin
if colordialog1.execute then
c:=colortorgb(colordialog1.color);
end;
Цвет в реестр
Как сохранить цвет ColorDialog в реестре:confused: :confused:
Работай со свойством color, например.
Так же есть функции
getRvalue(c), getGvalue(c), getBvalue(c) возвращающие числовые значение соот. цветов.
Код:
Так же есть функции
getRvalue(c), getGvalue(c), getBvalue(c) возвращающие числовые значение соот. цветов.
Цвет пердставляется числом.
Т.е. его можно прочитать/записать через TRegIniFile.ReadInteger/WriteInteger
Пример записи:
P.S.: Посмотри вот этот исходник
Т.е. его можно прочитать/записать через TRegIniFile.ReadInteger/WriteInteger
Пример записи:
Код:
procedure ColorToReg(c:TColor);
var
reg:TRegIniFile;
begin
reg:=TRegIniFile.Create('Software');
try
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('YourProgramKey',true);
reg.WriteInteger(Params,'Color',c);
finally
reg.Free
end;
end;
var
reg:TRegIniFile;
begin
reg:=TRegIniFile.Create('Software');
try
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('YourProgramKey',true);
reg.WriteInteger(Params,'Color',c);
finally
reg.Free
end;
end;
P.S.: Посмотри вот этот исходник
Спасибо ребят выручили:)