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