///
//Вирізати
////////////////////////////////////////////////////////////////////////////////TPhoneBook.CutExecute(Sender: TObject); files.SelLength gt; 0 then files.CutToClipboard ;;
////////////////////////////////////////////////////////////////////////////////
//Вставити
////////////////////////////////////////////////////////////////////////////////TPhoneBook.PasteExecute(Sender: TObject) ;. PasteFromClipboard ;;
////////////////////////////////////////////////////////////////////////////////
//Копіювати
////////////////////////////////////////////////////////////////////////////////TPhoneBook.CopyExecute(Sender: TObject); files.sellength gt; 0 then files.CopyToClipboard;
end;
////////////////////////////////////////////////////////////////////////////////
//установка активності функцій і положення курсора
////////////////////////////////////////////////////////////////////////////////TPhoneBook.filesKeyUp(Sender: TObject; var Key: Word ;: TShiftState); files.SelLength=0 then begin.enabled:=false;.enabled:=false;.enabled:=false;.enabled:=false;.enabled:=false;.enabled:=false;begin.enabled:=true;.enabled:=true;.enabled:=true;.enabled:=True;.enabled:=True;.enabled:=True;;.Panels[2].Text:=inttostr(files.CaretPos.x)+laquo;:raquo;+inttostr(files.CaretPos.y+1);
end;
////////////////////////////////////////////////////////////////////////////////
//установка активності функцій і положення курсора
////////////////////////////////////////////////////////////////////////////////TPhoneBook.filesMouseUp(Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); files.SelLength=0 then begin.enabled:=false;.enabled:=false;.enabled:=false;.enabled:=false;.enabled:=false;.enabled:=false;begin.enabled:=true;.enabled:=true;.enabled:=true;.enabled:=True;.enabled:=True;.enabled:=True;;;
////////////////////////////////////////////////////////////////////////////////
//Попуп на списку заміток
////////////////////////////////////////////////////////////////////////////////TPhoneBook.ListPopupPopup(Sender: TObject);ind:integer;:=list.Selected.absoluteIndex;;.items[ind].Selected:=true;Phonebook.list.selected.Index=0 then.SetFirst.Enabled:=false ;;
////////////////////////////////////////////////////////////////////////////////
//розкрити всі
////////////////////////////////////////////////////////////////////////////////TPhoneBook.N16Click(Sender: TObject);
begin.fullexpand ;;
////////////////////////////////////////////////////////////////////////////////
//необхідно доопрацювати
//сортування списку
////////////////////////////////////////////////////////////////////////////////SortList;i:integer;Phonebook do begini:=0 to list.Items.Count - 1 do begin (list.items [i] .ImageIndex=1) or (list.items [i] .ImageIndex=3) then begin.items [i] .MoveTo ( list.items [i] .Parent, naAddChildFirst) ;; i:=0 to list.Items.Count - 1 do begin (list.items [i] .ImageIndex=1) then begin.items [i] .MoveTo (list.items [i] .Parent, naAddChildFirst)
end ;;;;
////////////////////////////////////////////////////////////////////////////////
//перемістити в початок групи
////////////////////////////////////////////////////////////////////////////////TPhoneBook.SetFirstExecute(Sender: TObject) ;. selected.MoveTo (list.selected.Parent, naAddChildFirst)
end;
////////////////////////////////////////////////////////////////////////////////
//сортування списку (через меню)
////////////////////////////////////////////////////////////////////////////////TPhoneBook.N18Click(Sender: TObject);
begin ;;
////////////////////////////////////////////////////////////////////////////////
//переміщення фокусу по замітках
////////////////////////////////////////////////////////////////////////////////TPhoneBook.FocusListExecute(Sender: TObject); list.Focused then beginfiles.enabled then begin.SetFocus; .SelStart:=0 ;; list.SetFocus ;;
////////////////////////////////////////////////////////////////////////////////
//Виділ...
