Записная книжка на Delphi 7 — страница 8

  • Просмотров 9601
  • Скачиваний 670
  • Размер файла 147
    Кб

переменную TD дату с параметрами: «Дата» «Месяц» «Год» и время с парамтрами «Часов» «Минут» «Секунд»} DateTimeToString(TD,'dd mmmm yyyyyy "г." hh:nn:ss ',Now); Memo1.SelText:= TD; // вставить на место курсора дату и время которое лежит в TD Настройка главного меню закончено. Меню: «Экстра» оставляем незаполненным, т.к. нужно создать нужные программы. Создание часов на главной форме Для показа времени в Delphi есть ещё одна процедура FormatDateTime, но это процедура

показывает время в данный момент когда она была вызвана, для того что каждую секунду обновлялось время, а то есть показывала время, нужно использовать компонент Timer, который находиться на закладке System, палитры компонентов Delphi. Переносим Timer на форму и в его процедуре OnTimer нужно вставить следующий код: Label1.Caption:=FormatDateTime('Сейчас: '+' hh:mm:ss AM/PM', Now()); {Изменяем надпись на Label1 на: “Сейчас: ‘Часы’:‘Минуты’:‘Секунды’ ‘AM’ или ‘PM’ ”}

Сохранение настроек программы Так как нам нужно чтобы сохранялись некоторые параметры программы, то для этого буду использовать ini файл. Для сохранения нужно в процедуре OnClose главной формы вставить следующий код: uses inifiles; … var IniFile: TIniFile; begin IniFile := TIniFile.Create('Notebook.ini'); // создание ini файла, если его не существует IniFile.WriteString('MainOptions', 'Base',s);// записать значение переменной S {Сохранить имя шрифта, компонента Memo1} IniFile.WriteString('MainOptions', 'Name

font',memo1.Font.Name); {Сохранить размер шрифта, компонента Memo1} IniFile.WriteInteger('MainOptions', 'Size', memo1.Font.Size); {Сохранить цвет шрифта, компонента Memo1} IniFile.WriteInteger('MainOptions', 'Color',memo1.Font.Color); inifile.Free; // освободить память - 12 - Для того чтобы пользователь не забыл сохранить изменения, в OnClose формы, после inifile.free, вставим код, который будет выводить окно с запросом о сохранение изменений: {вывести сообщение о подтверждении сохранение изменений в файле: «Да» или

«Нет»} case messagedlg('Сохранить изменение ?',mtconfirmation,[mbyes,mbno],0)of mryes: memo1.Lines.SaveToFile(s); // если «Да» ,то сохранить с именем S end; Загрузка настроек программы Для того чтобы загрузить нам сохранения, нужно в процедуре формы OnCreate вставить следующий код: var IniFile: TIniFile; begin IniFile := TIniFile.Create('Notebook.ini');// читаем или создаём файл ini s:=IniFile.ReadString('MainOptions', 'Base', '');//заносим в переменную S значение {выставляем имя шрифта для Memo1} memo1.Font.Name:=IniFile.ReadString('MainOptions', 'Name font','');

{выставляем размер шрифта для Memo1} memo1.Font.Size:=IniFile.ReadInteger('MainOptions', 'Size',0); {выставляем цвет шрифта для Memo1} memo1.Font.Color:=IniFile.ReadInteger('MainOptions', 'Color', 0); inifile.Free; Для того чтобы открылся последний файл который был открыт перед закрытием, нужно OnCreate формы после оператора Inifile.free, вставить следующий код: memo1.Lines.LoadFromFile(s);//загрузить файл с именем S Так как, если нужно будет изменить шрифт текста то при запуске окна настройки шрифта там будет все