Телефонный справочник

Все настройки программы, сохраняются с помощью ini – файлов. Одно из главных преимуществ INI файлов заключается в том, что эти файлы поддерживают переменные разных типов (String, Integer, Boolean). Также несравненным плюсом является возможность доступа к определенной записи, без изменения остальных.

Переменная  для ini-файлов: cfgini:tinifile;

Сохранение  настроек шрифтов:

filesetattr(cfgini.FileName,$00);

fgini.WriteInteger('Notes','FontSize',files.Font.size);        cfgini.WriteString('Notes','FontFace',files.Font.Name);

Обновление  отображения иконок для узлов  каталога:

cfgini:=tinifile.Create(dir+'PhoneBook.ini'); // Создаем файл конфигурации

  try

with PhoneBook do begin // Устанавливаем новые настройки

FOR I:=1 TO LIST.ITEMS.COUNT-1 DO BEGIN

       if cfgini.ValueExists('Group',List.Items[i].Text) then begin

          if list.items[i].count>0 then begin

             List.Items[i].ImageIndex:=1;

             List.Items[i].SelectedIndex:=1;

          end

          else begin

             List.Items[i].ImageIndex:=3;

             List.Items[i].SelectedIndex:=3;

          end;

       end

       else begin

          list.items[i].ImageIndex:=2;

          list.items[i].SelectedIndex:=2;

       end;

    END;

    list.Refresh; // Обновляем настройки

end;

except

   writelog(log,'FileReadError(PhoneBook.ini)','UpdateItemsIcons'); // Обновляем иконки каталога.

  end;

cfgini.Free;

 

2.1 Вкладка «Настройки».

 Вкладка «Настройки» показана на рисунке 1. 

Вкладка «Настройки», рисунок  1.

2.2 Общие параметры.

      Функция «Общие параметры» позволяет настроить  положение заголовков страниц (вкладок) программы.

      Case combobox1.ItemIndex of

    0:PageControl1.TabPosition:=tpTop; Положение вкладок сверху.

    1:PageControl1.TabPosition:=tpBottom; Положение вкладок снизу.

    2:PageControl1.TabPosition:=tpRight; Положение вкладок справа.

    3:PageControl1.TabPosition:=tpLeft; Положение вкладок слева.

end; 

2.3 Параметры телефонной книги.

  Функция  «Параметры телефонной книги»  позволяет показать или скрыть поля: «Группы» и «Коментарии».

  Groups.Visible:= CheckBox2.Checked; Показать или скрыть панель групп.

comment.Visible:= CheckBox3.Checked; Показать или скрыть коментарии.

  splitter1.align:=alNone;

  splitter1.top:=splitter1.top-50;

  splitter1.align:=alBottom;

2.4. Параметры Экспорта контактов из телефонной книги в Excel и HTML.

  Вы можете выбрать какие именно поля экспортировать в  Excel и HTML.

Для это  нужно выбрать, какие поля Вам  нужно экспортировать. Выбранные  поля отметить галочкой. По умолчанию выбраны все поля.

 Настройка HTML:

Цвет фона:

if colorD.Execute then

     bgcolor.font.Color:=colorD.Color;

Цвет текста:

if colorD.Execute then

     textcolor.font.Color:=colorD.Color;

Цвет рамки:

if colorD.Execute then

     bordercolor.font.Color:=colorD.Color; 

2.5 Параметры «Заметок».

  Настройки шрифта:

var fs:string;

    cfgini:tinifile; Переменная ini файлов.

begin

cfgini:=tinifile.Create(dir+'PhoneBook.ini');

  try

   fs:='0000';  //начальные параметры стиля

   fontdialog1.Font := files.font;

   if fontdialog1.Execute then begin

     files.Font:=fontdialog1.Font;

     //запомним и установим выбранные параметры

     filesetattr(cfgini.FileName,$00);

     cfgini.WriteInteger('Notes','FontSize',files.Font.size);

     cfgini.WriteString('Notes','FontFace',files.Font.Name);

     // закодируем и сохраним стиль шрифта

     if fsBold in files.font.Style then fs[1]:='1';

     if fsItalic in files.font.Style then fs[2]:='1';

     if fsUnderline in files.font.Style then fs[3]:='1';

     if fsStrikeOut in files.font.Style then fs[4]:='1';

     cfgini.WriteString('Notes','FontStyle', fs);

   end;

except

    writelog(log,'FileWriteError('+cfgini.FileName+')','RemoveExecute');

  end;

cfgini.Free; 

2.6 Опция «Перетаскивать по словам» .

Автоматический  перенос слов на следующую строку. В Delphi данная опция называется WordWrap.

Код функции  «Перетаскивать по словам»

files.WordWrap:=checkbox1.Checked;

if files.WordWrap then

   files.ScrollBars:=ssVertical

else

   files.ScrollBars:=ssBoth;

n8.Checked:=checkbox1.Checked;

2.7 Техподдержка.

На рисунке 2 представлена форма технической  поддержки программы.  Данная опция  создана с целью облегчить  работу с программой для пользователей. Любой пользователь может задать интересующий его вопрос, указав свой адрес электронной почты, и в ближайшее время  получит ответ на свой вопрос средствами электронной почты. Текст сообщения не должен содержать более 2500 символов. Для того, чтобы воспользоваться этим сервисом, необходимо интернет соединение.

Рисунок 2. «Техподдержка».

На примере  рассматривается отправка сообщение  электронной почты средствами Delphi. Для отправки сообщения нужны следующие компоненты:

idMessage, idSMTP, Edit и Memo.

IdMessage – Используем для отправки сообщения.

IdSMTP – Используем для подключению к серверу почты.

Edit – Необходим для указания данных пользователя, например E-Mail.

Memo – Поле memo используем как поле для ввода текста сообщения.

Код формы «Техподдержка»:

if Edit2.Text='' then begin

showmessage('Ошибка! Вы забыли указать  E Mail!'); Проверяем введен ли E-Mail пользователя.

beep

end

else Если E-Mail введен

begin

  idSmtp1.Host:='smtp.mail.ru'; Подключаемся к серверу почты

  BitBtn1.Enabled:=false;

BitBtn1.Caption:='Отправка...';

idSmtp1.Port:=25;

idSmtp1.Username:='E-Mail Техподдержки'; Логинимся в почте техподдержки.

idSmtp1.Password:='Пароль';

idMessage1.Body.Text:= 'User E-Mail: ' + Edit2.Text + ' '  + Memo1.Text; Текст сообщения

idMessage1.From.Text:='Mazahaka2011@bk.ru';

idMessage1.Recipients.EMailAddresses:='Mazahaka2011@bk.ru';

idMessage1.Subject:=Edit1.Text;

idSmtp1.Connect(); Подключаемся

if idSmtp1.Connected=true then; Если соединение установлено

idSmtp1.Send(idmessage1); Отправляем сообщение

idSmtp1.Disconnect; Отключаемся

    BitBtn1.Enabled:=true;

BitBtn1.Caption:='Отправить сообщение' ;

  showmessage('Ваше сообщение успешно отправлено!' + ' Ждите ответа по E Mail!');

beep

end; 

2.9 Мини браузер

В программе  имеется, встроенный мини браузер,  который всегда будет под рукой  пользователей работающих на данной программе. Браузер сделан на «движке» всем известного браузера Internet Explorer.

Достоинства браузера:

- Не  запоминает историю посещенных  сайтов.

- Пользователям  не придется все время чистить историю посещенных сайтов.

- Не  запоминает логины и пароли  от почты, социальных сетей…

- Простой  и понятный интерфейс. 

На рисунке 3 представлена окно мини браузера.

 

Рисунок 3. Мини браузер. Интерфейс может изменятся в зависимости от версии программы. 

Код мини браузера:

procedure TForm8.FormCreate(Sender: TObject);

begin

  WB.Navigate('www.google.com'); Запуск домашней страница при открытии браузера

end;

procedure TForm8.Button1Click(Sender: TObject);

begin

WB.GoBack; Кнопка «Назад»

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

wb.GoForward;   Кнопка «Вперед»

end;

procedure TForm8.Button3Click(Sender: TObject);

begin

WB.Stop; Кнопка «Стоп»

end;

procedure TForm8.Button4Click(Sender: TObject);

begin

wb.Refresh; Кнопка «Обновить»

end;

procedure TForm8.WBProgressChange(Sender: TObject; Progress,

  ProgressMax: Integer);

begin

  ProgressBar1.Max:=ProgressMax; Индикатор загрузуи страницы

ProgressBar1.Position:=Progress;

end;

procedure TForm8.WBStatusTextChange(Sender: TObject;

  const Text: WideString);

begin

StatusBar1.SimpleText:=Text;

end;

procedure TForm8.Button5Click(Sender: TObject);

begin