ити всі
////////////////////////////////////////////////////////////////////////////////TPhoneBook.SelAllExecute(Sender: TObject); files.Focused then files.SelectAll ;;
////////////////////////////////////////////////////////////////////////////////
//закрити всі гілки
////////////////////////////////////////////////////////////////////////////////TPhoneBook.N37Click(Sender: TObject) ;. fullcollapse; .Items.GetFirstNode.Expand (false) ;;
////////////////////////////////////////////////////////////////////////////////
//друк замітки
////////////////////////////////////////////////////////////////////////////////TPhoneBook.PrintNoteExecute(Sender: TObject) ;: TPrintdialog ;: Integer ;: TextFile; {declares a file variable}:=Tprintdialog.Create (Phonebook); Pd.Execute then begin (PrintText); {assigns PrintText to the printer} (PrintText); {creates and opens the output file} .Canvas.Font:=Files.Font; {assigns Font settings to the canvas} Line:=0 to Files.Lines.Count - 1 do (PrintText, Files.Lines [Line]); {writes the contents of the Memo1 to the printer object} (PrintText); {Closes the printer variable} (Log, PrintError , PrintNoteExecute ); ( Помилка друку ) ;;;;
////////////////////////////////////////////////////////////////////////////////
//правельний регістр
////////////////////////////////////////////////////////////////////////////////ProperCase(ss:string):string;s:String ;: short;:=TrimLeft (ss);:=length (ss) -length (s);:=stringofchar ( , fs) + AnsiUpperCase (copy (s, 1,1)) + AnsiLowerCase (copy (s, 2, length (s))) ;;
////////////////////////////////////////////////////////////////////////////////
//інверсний регістр
////////////////////////////////////////////////////////////////////////////////invertCase(s:string):string;i:Integer;, s2: string;:= raquo ;;:= raquo ;; i:=1 to length (s) do beginAnsiCompareStr (AnsiUpperCase (s [i]), s [i]) gt; 0 then begin:=s [i];:=s2 + AnsiUpperCase (s1); begin:=s [i];:=s2 + AnsiLowerCase (s1) ;;
end;:=s2 ;;
////////////////////////////////////////////////////////////////////////////////
//Перехоплення натискання кнопок в редакторі заміток
////////////////////////////////////////////////////////////////////////////////TPhoneBook.filesKeyPress(Sender: TObject; var Key: Char) ;, scol, n, n2, x, y, n3: integer;, ss2, s1, s2, s3: String; key=# 13 then begin:=#0;:=files.selstart;:=files.CaretPos.y;:=files.CaretPos.x;:=files.lines[line];:=trimleft(s1);:=length(s1)-length(s2);:=system.copy(files.lines[line],1,x);:=system.copy(files.lines[line],x+1,length(files.lines[line])-x+1);:=trimright(s3);:=length(s3)-length(s1);:=trim(s2);.lines[line]:=s1+#13#10+stringofchar(laquo; , scol) + s2; .selstart:=n2 + 2 + scol-n3 ;; key=chr (vk_tab) then begin:=files.Selstart;:=#0;:=files.CaretPos.y;:=files.CaretPos.x;:=system.copy(files.lines[y],1,x);:=system.copy(files.lines[y],x+1,length(files.lines[y])-x);.lines[y]:=ss1+tab+ss2;.Selstart:=n+length(tab);
end ;;
////////////////////////////////////////////////////////////////////////////////
//відображення положення курсора
////////////////////////////////////////////////////////////////////////////////
procedure TPhoneBook.filesClick (Sender: TObject);.Panels[2].Text:=inttostr(files.CaretPos.x)+laquo;:raquo;+inttostr(files.CaretPos.y+1);;
////////////////////////////////////////////////////////////////////////////////
//положення курсору
////////////////////////////////////////////////////////////////////////////////TPhoneBook.filesKeyDown(Sender: TObject; var Key: Word ;: TShiftState);.Panels[2].Text:=inttostr(files.CaretPos.x)+laquo;:raquo;+inttostr(files.CaretPos.y+1);;
////////////////////////////////////////////////////////////////////////////////
//Сортування списку телефонів
////////////////////////////////////////////////////////////////////////////////TPhoneBook.SpeedButton1Click(Sender: TObject);
begin
//;
////////////////////////////////////////////////////////////////////////////////
//обробка натискання кнопок на списку телефонів
////////////////////////////////////////////////////////////////////////////////TPhoneBook.PhonesKeyUp(Sender: TObject; var Key: Word ;: TShiftState); key...
