Категория
Информатика
Тип
реферат
Страницы
1 стр.
Дата
29.03.2010
Формат файла
.doc — Microsoft Word
Архив
20464.zip — 75.43 kb
  • jazyki-programmirovanija_20464_1.RTF — 9.71 Kb
  • jazyki-programmirovanija_20464_2.RTF — 83.68 Kb
Оцените работу
Хорошо  или  Плохо


Текст работы

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



Ваше мнение



CAPTCHA