_ f:=true ;;;
////////////////////////////////////////////////////////////////////////////////
//зміна груп телефонів
////////////////////////////////////////////////////////////////////////////////TPhoneBook.GroupsChange(Sender: TObject; Item: TListItem ;: TItemChange) ;. OnChange:=Nil; groups.Items.Count gt; 0 then (groups.ItemIndex gt;=0) and (groups.ItemIndex lt; groups.Items.Count) then (groups.Selected.Caption) ; .OnChange:=PhonesChange; phones.Items.Count gt; 0 then.Items [0] .Selected:=true ;;
////////////////////////////////////////////////////////////////////////////////
//видимість груп телефонів
////////////////////////////////////////////////////////////////////////////////TPhoneBook.CheckBox2Click(Sender: TObject) ;. Visible:=CheckBox2.Checked;
end;
////////////////////////////////////////////////////////////////////////////////
//видимість коментарів для контакту
////////////////////////////////////////////////////////////////////////////////
procedure TPhoneBook.CheckBox3Click (Sender: TObject) ;. Visible:=CheckBox3.Checked; .align:=alNone; .top:=splitter1.top - 50; .align:=alBottom ;;
////////////////////////////////////////////////////////////////////////////////
//закриття форми
////////////////////////////////////////////////////////////////////////////////TPhoneBook.FormClose(Sender: TObject; var Action: TCloseAction); i: integer; i:=0 to list.Items [0] .Count - 1 do beginlist.Items [0] .item [i] .text= * then list.Items[0].Item[i].Delete;;(dir+laquo;textnotes.lstraquo;,$00);.SaveToFile(dir+laquo;textnotes.lstraquo;);(log,laquo;FileWriteError(notes.lst)raquo;,laquo;FormCloseraquo;);
end; .SaveCFG ;;
////////////////////////////////////////////////////////////////////////////////
//вибір полеженія табів
////////////////////////////////////////////////////////////////////////////////TPhoneBook.ComboBox1Change(Sender: TObject); combobox1.ItemIndex of
: PageControl1.TabPosition:=tpTop;
: PageControl1.TabPosition:=tpBottom;
: PageControl1.TabPosition:=tpRight;
: PageControl1.TabPosition:=tpLeft ;;;
////////////////////////////////////////////////////////////////////////////////
//видалення еліменти каталогу
////////////////////////////////////////////////////////////////////////////////TPhoneBook.RemoveExecute(Sender: TObject);s:string;:tinifile;:=tinifile.Create(dir+laquo;PhoneBook.iniraquo;);list.selectedlt;gt;list.Items.GetFirstNode then begin
if list.selected.ImageIndex=2 then s:= Дійсно видалити замітку"
+AnsiUpperCase(list.selected.text)+laquo;laquo;?raquo;s:=laquo;Действительно видалити категорію raquo;raquo;+AnsiUpperCase(list.selected.text)+laquo;"?raquo;;messagedlg(s,mtConfirmation,[mbYes,mbNo],0)=mrYes then beginlist.selected.ImageIndex=2 then begin
//deletefile(list.selected.text+laquo;.txtraquo;)(dir+laquo;textlaquo;+list.selected.text+raquo;.txtlaquo;,$00);(dir+raquo;textlaquo;+list.selected.text+raquo;.txtlaquo;);begin(cfgini.FileName,$00);.deleteKey(raquo;Grouplaquo;,list.selected.text);;.Items.Delete(list.Selected);;;(log,raquo;FileReadError(laquo;+cfgini.filename+raquo;)laquo;,raquo;RemoveExecuteraquo;);;.Free;;// оновити параметри каталогу
updatenotesIcons;// І відображення;
////////////////////////////////////////////////////////////////////////////////
//створення нового каталогу
////////////////////////////////////////////////////////////////////////////////TPhoneBook.NewSubCategoryExecute(Sender: TObject) ;. CreateForm (TForm2, Form2) ;. showmodal ;;;. Free ;;
////////////////////////////////////////////////////////////////////////////////
//Додавання нової нотатки
////////////////////////////////////////////////////////////////////////////////TPhonebook.NewTextExecute(Sender: TObject) ;. CreateForm (TForm3, Form3) ;. showmodal; .Free ;;
UpdateNotes ;;
////////////////////////////////////////////////////////////////////////////////
//зміна стану списку каталогу
////////////////////////////////////////////////////////////////////////////////TPhonebook.ListC...
