Сохранение параметров программы...

[Roof]

Ситуация такая:
На форме имеется:
1) Label, заголовок которого черного цвета;
2) ColorDialog;
3) Button, которая и запускает ColorDialog и цвет заголовка Label становится соответственно выбранному цвету в этом диалоге;

Допустим он стал красным. А как сохранить этот параметр? Чтоб при следующем запуске программы цвет заголовка Label остался красным или другим выбранным пользователем цветом?
Слышал, что можно через ini файлы... Но как?

[Alex21]

Можно посмотреть здесь.

[Roof]

эм...
мне бы примерчик какой-нибудь с исходниками ))

[UnD)eaD)Snake]

Можно сделеать другим легким способом:
на форму кидаешь невидимый Memo, и при завершении программы пишешь туда чтото типа
memo1.lines[0]:='Clblack';
и тд., далее сохраняешь мемо в файл напр.('Config.dll')
А при запуске прграммы, загружаешь в мемо этот файл, и чтото типа..
if memo1.lines[0]='Clblack' then Label1.font.color:=clblack;

[mihali4]

А чего тут сложного?
Открываем хэлп по ини-файлам, там полно примеров.

Могу предложить такое (это для цвета самой формы):

uses ...IniFiles; //Добавить в секцию USES

infile: TIniFile; //объявляем глобальную переменную (там же, где 
объявляется Form1: TForm1;)

procedure TForm1.FormCreate(Sender: TObject);
begin
infil:=TIniFile.Create('c:\tmp.ini');
Form1.Color:=StringToColor(infil.ReadString('OPTIONS','FORMCOLOR',
ColorToString(clSilver)));
infil.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
infil:=TIniFile.Create('c:\tmp.ini');
infil.WriteString('OPTIONS','FORMCOLOR',ColorToString(Form1.Color));
infil.Free;
end;

[Alex21]

Сообщение от UnD)eaD)Snake

if memo1.lines[0]='Clblack' then Label1.font.color:=clblack;

а яяяй, как грубо...
Это вы всю 32-битную палитру так проверять будете? возьмите тогда case
Не забываем, что тип TColor можно представить в цифровом виде.

caption:=inttostr(label1.Font.color );

Плюс можно сделать разложение на RGB, но это здесь лишнее.

С INI mihali4, уже подсказал.

[mutabor]

вот еще статейку почитай
http://code-code.narod.ru/art/ini.html
как уже сказали TColor и Integer совместимы, так что можешь сохранять с помощью WriteInteger без всяких преобразований

[mihali4]

как уже сказали TColor и Integer совместимы, так что можешь сохранять с помощью WriteInteger без всяких преобразований

Стринг я использовал для того, чтобы указать цвет для случая отсутствия ини-файла, не морочась при этом определением цифрового значения серебристого цвета.

[mutabor]

по моему этот код
Form1.Color:=StringToColor(infil.Re adString('OPTIONS','FORMCOLOR',
ColorToString(clSilver)));
вполне можно заменить этим
Form1.Color:=infil.ReadInteger('OPT IONS','FORMCOLOR',clSilver);

я так никогда не делал, но раз clSilver можно присвоить свойству тип к-рого TColor, то это числовая константа

[mihali4]

Согласен. Но зато я обратил ваше внимание на существование необычных функций StringToColor и ColorToString.