nabled:=false;.allLower.enabled:=false;.allInvert.enabled:=False;.allProper.enabled:=false;.PrintNote.Enabled:=false;;
: begin//група
//доступні элиментыgprop.enabled:=true;.Remove.enabled:=True;.newtext.enabled:=true;.setfirst.enabled:=true;.NewSubcategory.Enabled:=true;
//недоступні элименты.cut.enabled:=false;.copy.enabled:=false;.paste.enabled:=false;.files.enabled:=False;.savenote.Enabled:=false;.allUpper.enabled:=false;.allLower.enabled:=false;.allInvert.enabled:=false;.allProper.enabled:=false;.PrintNote.Enabled:=false;;
: begin//група
//доступні элименты.setfirst.enabled:=True;gprop.enabled:=true;.Remove.enabled:=True;.newtext.enabled:=true;.NewSubcategory.Enabled:=true;
//недоступні элименты.cut.enabled:=false;.copy.enabled:=false;.paste.enabled:=false;.files.enabled:=False;.savenote.Enabled:=false;.allUpper.enabled:=false;.allLower.enabled:=false;.allInvert.enabled:=false;.allProper.enabled:=false;.PrintNote.Enabled:=false;;
: begin//замітка
//недоступний элимент.NewSubcategory.Enabled:=False;.allUpper.enabled:=false;.allLower.enabled:=false;.allProper.enabled:=false;.allInvert.enabled:=false;.cut.enabled:=false;.copy.enabled:=false;
//доступні еліменти управления.PrintNote.Enabled:=true;.setfirst.enabled:=True;gprop.enabled:=true;.Remove.enabled:=True;.newtext.enabled:=true;.files.enabled:=true;.savenote.Enabled:=true;.paste.enabled:=true;
//завантажимо текст:=tstringlist.create;FileExists(dir+laquo;textlaquo;+PhoneBook.list.selected.Text+raquo;.txtlaquo;) then begin(dir+raquo;textlaquo;+PhoneBook.list.selected.Text+raquo;.txtlaquo;,$00);.LoadFromFile(dir+raquo;textlaquo;+PhoneBook.list.selected.Text+raquo;.txtlaquo;);Fll.SavetoFile(dir+raquo;textlaquo;+PhoneBook.list.selected.Text+raquo;.txtlaquo;);(log,raquo;FileWriteError(laquo;+PhoneBook.list.selected.Text+raquo;.txt)laquo;,raquo;UpdateNotesraquo;);;.files.Clear;.files.lines.AddStrings(fll);
//очистимо времменую переменную.free;
end ;;:=0; i:=0 to PhoneBook.list.Items.count - 1 doPhoneBook.list.Items [i] .ImageIndex=2 then inc (cntfiles) ;. StatusBar1. Panels [1] .text:= Записів: + inttostr (cntfiles);
end;
////////////////////////////////////////////////////////////////////////////////
//збереження замітки в ін. файл
////////////////////////////////////////////////////////////////////////////////TPhoneBook.SaveNoteExecute(Sender: TObject) ;. FileName:=list.selected.Text + .txt raquo ;; sd.Execute then begin.Lines.SaveToFile(sd.FileName);(log,laquo;FileWriteError(raquo;+sd.filename+laquo;)raquo;,laquo;SaveNoteExecuteraquo;);
end ;;;
////////////////////////////////////////////////////////////////////////////////
//у верхній регістр
////////////////////////////////////////////////////////////////////////////////TPhoneBook.AllUpperExecute(Sender: TObject); s, l: integer;:=files.SelStart;:=files.SelLength; l gt; 0 then begin.SelText:=ansiuppercase (files.SelText) ;. SelStart:=s; .SelLength:=l;
end ;;
////////////////////////////////////////////////////////////////////////////////
//в нижній регістр
////////////////////////////////////////////////////////////////////////////////
procedure TPhoneBook.AllLowerExecute (Sender: TObject); s, l: integer;:=files.SelStart;:=files.SelLength; l gt; 0 then begin.SelText:=ansilowercase (files.SelText ) ;. SelStart:=s; .SelLength:=l;
end ;;
////////////////////////////////////////////////////////////////////////////////
//в правельний регістр
////////////////////////////////////////////////////////////////////////////////
procedure TPhoneBook.AllProperExecute (Sender: TObject); s, l: integer;:=files.SelStart;:=files.SelLength; l gt; 0 then begin.seltext:=propercase (files.seltext ) ;. SelStart:=s; .SelLength:=l ;;;
////////////////////////////////////////////////////////////////////////////////
//інверсний регістр
////////////////////////////////////////////////////////////////////////////////TPhoneBook.AllInvertExecute(Sender: TObject); s, l: integer;:=files.SelStart;:=files.SelLength; l gt; 0 then begin.seltext:=invertcase (files.seltext) ;. SelStart:=s; .SelLength:=l ;; ;
/////////////////////////////////////////////////////////////////////////////...
