Программирование и комп-ры : Языки программирования

Языки программирования

Если вам нужно загружать и сохранять пользовательские цвета из файла

CONTROL.INI, необходим некоторый дополнительный код. Удалите только что

введенные строки и замените пару begin-end обработчика события OnDblClick

следующими строками:

VAR N, P: Word;

begin

WITH TIniFile.Create (‘CONTROL.INI’) DO

try

WITH ColorDialog1 DO

BEGIN

ReadSectionValues (‘Custom Colors’, CustomColors);

IF Execute THEN

BEGIN

Form1.Color: = Color;

FOR N: = 0 TO CustomColors.Count-1 Do

BEGIN

P: = Pos (’ = ’, CustomColors [N]);

WriteString (‘CustomColors’,

Copy (CustomColors [N], 1, P-1),

Copy (CustomColors [N], P+1, 255)),

END;

END;

END;

finally

Free;

END;

end;

Теперь следует перейти к началу файла и добавить в оператор uses имя

модуля IniFiles (т.е. в начале файла нужно найти строку, начинающуюся со

слова uses и добавить IniFiles, а затем запятую). В результате при каждом

двойном щелчке на форме пользовательские цвета диалога Color (Цвет) будут

загружаться из файла CONTROL.INI. Если добавить или изменить

пользовательские цвета и щелкнуть на кнопке ОК, изменения запишутся в

CONTROL.INI.