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

Если вам нужно загружать и сохранять пользовательские цвета из файла
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.