Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 386

Раздел: Delphi » Работа с компонентами и библиотеками
/ вопрос открыт /

Здравствуйте. Дорогих женщин поздравляю с 8 Марта,
а к экспертам у меня вопрос. Как мне в своём "exe" файле в Memo1,
заменить цвет шрифта или цвет фона, что бы при следующей загрузке,
он загружался с новыми параметрами. Заранее благодарен.

Толков Геннадий Викторович Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Толков Геннадий Викторович (статус: Посетитель)
Вопрос отправлен: 8 марта 2007, 03:54
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Роман

Здравствуйте, Толков Геннадий Викторович!К примеру так как в примере.Там сохраняется цвет и размер в ini-файле.

Приложение:
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, StdCtrls;
  8.  
  9. type
  10. TForm1 = class(TForm)
  11. Memo1: TMemo;
  12. FontDialog1: TFontDialog;
  13. Button1: TButton;
  14. procedure FormCreate(Sender: TObject);
  15. procedure FormDestroy(Sender: TObject);
  16. procedure Button1Click(Sender: TObject);
  17. private
  18. { Private declarations }
  19. public
  20. end;
  21.  
  22. var
  23. Form1: TForm1;
  24.  
  25. implementation
  26. uses IniFiles;
  27. {$R *.dfm}
  28.  
  29. procedure TForm1.FormCreate(Sender: TObject);
  30. var
  31. F: TIniFile;
  32. i: integer;
  33. begin
  34. F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'window.ini');
  35.  
  36. Memo1.Font.Size := F.ReadInteger('font', 'size', 8);
  37. Memo1.Font.Color := F.ReadInteger('font', 'color', 0);
  38. F.Destroy;
  39. end;
  40.  
  41. procedure TForm1.FormDestroy(Sender: TObject);
  42. var
  43. F: TIniFile;
  44. i: integer;
  45. begin
  46. F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'window.ini');
  47. F.WriteInteger('font', 'size', Memo1.Font.Size);
  48. F.WriteInteger('font', 'color',integer(Memo1.Font.Color));
  49. F.Free;
  50. end;
  51.  
  52. procedure TForm1.Button1Click(Sender: TObject);
  53. begin
  54. if FontDialog1.Execute then
  55. begin
  56. Memo1.Font.Size:=FontDialog1.Font.Size;
  57. Memo1.Font.Color:=FontDialog1.Font.Color;
  58. end;
  59. end;
  60.  
  61. end.


Ответ отправил: Роман (статус: 5-ый класс)
Время отправки: 8 марта 2007, 04:32
Оценка за ответ: 5

Ответ #2. Отвечает эксперт: Виталий Лещенко

Здравствуйте, Толков Геннадий Викторович!

При выходе сохраняйте свои настройки в реестр или ini файл (imho вротое предпочтительнее), а при запуске загружайте из.

Ответ отправил: Виталий Лещенко (статус: 4-ый класс)
Время отправки: 8 марта 2007, 14:00
Оценка за ответ: 4


Мини-форум вопроса

Всего сообщений: 3; последнее сообщение — 10 марта 2007, 02:49; участников в обсуждении: 2.
Толков Геннадий Викторович

Толков Геннадий Викторович (статус: Посетитель), 9 марта 2007, 23:38 [#1]:

Здравствуйте. Чесно сказать, сохранять в ini файл, я не умею.
Роман

Роман (статус: 5-ый класс), 10 марта 2007, 00:47 [#2]:

Сори но ведь я привёл пример соранения в ini.
F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'window.ini')- открываем файл window.ini в папке в которой расположена программа(ParamStr(0)),если его нет то он будет создан. F.WriteInteger('font', 'size', Memo1.Font.Size)-пишем в файл нужные настройки.А при загрузке т/ж открываем файл и считуем настройки:F.ReadInteger('font', 'size', 8),последний параметр-это т/с значение по умолчанию,если нет записи в файле.И не забывать подключать IniFiles.
Роман

Роман (статус: 5-ый класс), 10 марта 2007, 02:49 [#3]:

Да и посмотрите тут:delphiworld.narod.ru/base/tinifile_exam.html описана работа с ini-файлами и delphiworld.narod.ru/_files_.html раздел INI файлы.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 22 февраля 2025, 11:31
Выполнено за 0.02 сек.