node.ShowModal=mrYes then beginmovenode.RadioGroup1.ItemIndex of
: node.MoveTo (ToNode, naAddChildFirst);
: node.MoveTo (ToNode, naAddChild) ;;; movenode.RadioGroup1.ItemIndex of
: node.MoveTo (ToNode, naAddChildFirst);
: node.MoveTo (ToNode, naAddChild) ;;. Free ;;
////////////////////////////////////////////////////////////////////////////////
//Скидання статусу DnD
////////////////////////////////////////////////////////////////////////////////TPhoneBook.ListEndDrag(Sender, Target: TObject; X, Y: Integer) ;. panels [0] .Text:= raquo ;;;;;
////////////////////////////////////////////////////////////////////////////////
//зміна
////////////////////////////////////////////////////////////////////////////////TPhoneBook.ApplicationEvents1Exception(Sender: TObject ;: Exception); sc: string; (sender is tComponent) then sc:=(sender as tComponent) .Namesc:=sender.ClassName; (log, e.ClassName, SC); (SC + : + # 13 # 10 + e.Message) ;;
////////////////////////////////////////////////////////////////////////////////
//перенесення за словами
////////////////////////////////////////////////////////////////////////////////TPhoneBook.N8Click(Sender: TObject); checkbox1ecked then checkbox1ecked:=falsecheckbox1ecked:=true; Click (sender) ;;
////////////////////////////////////////////////////////////////////////////////
//зміна списку заміток
////////////////////////////////////////////////////////////////////////////////TPhoneBook.TabSheet4Show(Sender: TObject); (list, nil) ;; TPhoneBook.N30Click (Sender: TObject); lp: array [0..127] of char;:shortstring;:=laquo;mailto:raquo;+phones.Selected.SubItems[4];(0,nil,StrPCopy(lp,s),nil,nil,0);;TPhoneBook.EditFindChange(Sender: TObject); i: integer;: ShortString; i:=0 to phones.items.count - 1 do begin:=Ansiuppercase(system.Copy(phones.items[i].CAPTION,0,length(editFind.Text)));Ansiuppercase(EditFind.text)=s then begin.items[i].Selected:=true;.ItemIndex:=i;.ItemFocused:=phones.items[i];;;;phones.ItemFocusedlt;gt;nil then.ItemFocused.MakeVisible (false) ;; TPhoneBook.SelAll1DrawItem (Sender: TObject; ACanvas: TCanvas ;: TRect; Selected: Boolean); bm: tbitmap; selected then begin
//acanvas.Pen.Color:=clblack + $ 00101010;
//Acanvas.brush.Color:=$00986565;.Pen.Color:=clblack+$00101010;.brush.Color:=$00ffffff;.Rectangle(arect.left+1,arect.top,arect.Right,arect.top+19);(sender as tmenuitem) .Default then acanvas.Font.Style:=[fsBold]acanvas.Font.Style:=[];not(sender as TMenuItem) .Enabled then acanvas.Font.Color:=clGrayTextacanvas.Font.Color:=clBlack ; .TextOut (arect.left + 32, arect.top + 3, (sender as tmenuitem) .Caption); (sender as tmenuitem) .Enabled then acanvas.Font.Color:=clNavy; (sender as tmenuitem) .ShortCut gt; 0 then.TextOut (arect.right - 8-acanvas.TextWidth (ShortCutToText ((sender as tmenuitem) .ShortCut)), arect.top + 3, ShortCutToText ((sender as tmenuitem).ShortCut));begin.Pen.Color:=clSilver+$00221111;.brush.Color:=Acanvas.Pen.Color;.Rectangle(arect.left+24,arect.top,arect.Right,arect.top+19);(sender as tmenuitem) .Default then acanvas.Font.Style:=[fsBold]acanvas.Font.Style:=[];(sender as TMenuItem) .Enabled then acanvas.Font.Color:=clBlackacanvas.Font.Color:=clGrayText;.TextOut (arect.left + 32, arect.top + 3, (sender as tmenuitem) .Caption); (sender as tmenuitem) .Enabled then acanvas.Font.Color:=clNavy; (sender as tmenuitem) .ShortCut gt; 0 then.TextOut (arect.right - 8-acanvas.TextWidth (ShortCutToText ((sender as tmenuitem) .ShortCut)), arect.top + 3, ShortCutToText ((sender as tmenuitem) .ShortCut)) ;. Pen.Color:= clSkyBlue;
//acanvas.Pen.Color:=$00ffddcc;.brush.Color:=acanvas.Pen.Color;.Rectangle(arect.Left,arect.Top,arect.Left+24,arect.Bottom);(sender as TMenuItem) .Caption= - then begin.Pen.Color:=clSilver; .brush.Color:=clGray; .Rectangle (26, arect.top + 3, arect.left + arect.Right - 2, arect.top + 6) ;;;:= tbitmap.Create; .GetBitmap ((sender as tmenuitem) .ImageIndex, bm) ;. Transparent:=true; not (sender as TMenuItem) .Enabled then.Mask (clWhite) ;. Draw (arect.Left + 3, arect. Top + 1, (bm as TGraphic)) ;. Free ;; TPhoneBook.PhonesColumnClick (Sender: TObject ;: TListColumn); ind: integer;:=column.Index; ind of
: beginsorttype [ind]=0 then sorttype [ind]:=1sorttype [ind]:=0; .CustomSort (SortNames, sorttype [ind]) ;;
: beginsorttype [ind]=0 then sorttype [ind]:=1sorttype [ind]:=0; .CustomSort (SortHPhones, sorttype [ind]) ;;
: beginsorttype [ind]=0 then sorttype [ind]:=1sorttype [ind]:=...
