Телефонный справочник

        if node.ImageIndex = 2 then StatusBar1.Panels[0].Text:=node.text+' -> '+tonode.Text;

     end

     else accept:=false;

  end

  else accept:=false;

end;

procedure TPhoneBook.ListDragDrop(Sender, Source: TObject; X, Y: Integer);

var s:string;

begin

  Application.CreateForm(TMoveNode, MoveNode);

  case node.ImageIndex of

      1:s:='Переместить группу "'+ansiuppercase(node.text)+'" в группу "'+ansiuppercase(tonode.Text)+'"?';

      2:s:='Переместить заметку "'+ansiuppercase(node.text)+'" в группу "'+ansiuppercase(tonode.Text)+'"?';

  end;

  movenode.Label1.Caption:=s;

  if node.ImageIndex=1 then movenode.RadioGroup1.ItemIndex:=0

  else movenode.RadioGroup1.ItemIndex:=1;

  if checkbox8.Checked then begin

    if movenode.ShowModal=mrYes then begin

      case movenode.RadioGroup1.ItemIndex of

        0:node.MoveTo(ToNode,naAddChildFirst);

        1:node.MoveTo(ToNode,naAddChild);

      end;

    end;

  end

  else

    case movenode.RadioGroup1.ItemIndex of

     0:node.MoveTo(ToNode,naAddChildFirst);

      1:node.MoveTo(ToNode,naAddChild);

    end;

  movenode.Free;

end;

procedure TPhoneBook.ListEndDrag(Sender, Target: TObject; X, Y: Integer);

begin

  statusbar1.panels[0].Text:='';

  UpdateNotes;

  UpdateNotesIcons;

end;

procedure TPhoneBook.ApplicationEvents1Exception(Sender: TObject;

  E: Exception);

var sc:string;

begin

  if (sender is tComponent) then sc:=(sender as tComponent).Name

  else sc:=sender.ClassName;

  writelog(log,e.ClassName,SC);

  ShowMessage(SC+' : '+#13#10+e.Message);

end;

procedure TPhoneBook.N8Click(Sender: TObject);

begin

  if checkbox1.checked then checkbox1.checked:=false

  else  checkbox1.checked:=true;

  CheckBox1Click(sender);

end;

procedure TPhoneBook.TabSheet4Show(Sender: TObject);

begin

  ListChange(list,nil);

end;

procedure TPhoneBook.N30Click(Sender: TObject);

var lp:array[0..127] of char;

    s:shortstring;

begin

s:='mailto:'+phones.Selected.SubItems[4];

shellexecute(0,nil,StrPCopy(lp,s),nil,nil,0);

end;

procedure TPhoneBook.EditFindChange(Sender: TObject);

var i:integer;

    s:ShortString;

begin

  for i:=0 to phones.items.count-1 do begin

    s:=Ansiuppercase(system.Copy(phones.items[i].CAPTION,0,length(editFind.Text)));

    if Ansiuppercase(EditFind.text)=s then begin

       phones.items[i].Selected:=true;

       phones.ItemIndex:=i;

       phones.ItemFocused:=phones.items[i];

       break;

    end;

  end;

  if phones.ItemFocused<>nil then

     phones.ItemFocused.MakeVisible(false);

end; 

procedure TPhoneBook.SelAll1DrawItem(Sender: TObject; ACanvas: TCanvas;

  ARect: TRect; Selected: Boolean);

var bm:tbitmap;

begin

  if selected then begin

//    acanvas.Pen.Color:=clblack+$00101010;

//    Acanvas.brush.Color:=$00986565;

    acanvas.Pen.Color:=clblack+$00101010;

    Acanvas.brush.Color:=$00ffffff;

    acanvas.Rectangle(arect.left+1,arect.top,arect.Right,arect.top+19);

    if (sender as tmenuitem).Default then acanvas.Font.Style:=[fsBold]

    else acanvas.Font.Style:=[];

    if not(sender as TMenuItem).Enabled then acanvas.Font.Color:=clGrayText

    else  acanvas.Font.Color:=clBlack;

    acanvas.TextOut(arect.left+32,arect.top+3,(sender as tmenuitem).Caption);

    if (sender as tmenuitem).Enabled then  acanvas.Font.Color:=clNavy;

    if (sender as tmenuitem).ShortCut>0 then

      acanvas.TextOut(arect.right-8-acanvas.TextWidth(ShortCutToText((sender as tmenuitem).ShortCut)),arect.top+3,ShortCutToText((sender as tmenuitem).ShortCut));

  end

  else begin

    Acanvas.Pen.Color:=clSilver+$00221111;

    Acanvas.brush.Color:=Acanvas.Pen.Color;

    acanvas.Rectangle(arect.left+24,arect.top,arect.Right,arect.top+19);

    if (sender as tmenuitem).Default then acanvas.Font.Style:=[fsBold]

    else acanvas.Font.Style:=[];

    if (sender as TMenuItem).Enabled then acanvas.Font.Color:=clBlack

    else acanvas.Font.Color:=clGrayText;

    acanvas.TextOut(arect.left+32,arect.top+3,(sender as tmenuitem).Caption);

    if (sender as tmenuitem).Enabled then  acanvas.Font.Color:=clNavy;

    if (sender as tmenuitem).ShortCut>0 then

      acanvas.TextOut(arect.right-8-acanvas.TextWidth(ShortCutToText((sender as tmenuitem).ShortCut)),arect.top+3,ShortCutToText((sender as tmenuitem).ShortCut));

    acanvas.Pen.Color:=clSkyBlue;

//    acanvas.Pen.Color:=$00ffddcc;

    Acanvas.brush.Color:=acanvas.Pen.Color;

    acanvas.Rectangle(arect.Left,arect.Top,arect.Left+24,arect.Bottom);

    if (sender as TMenuItem).Caption='-' then begin

      Acanvas.Pen.Color:=clSilver;

      Acanvas.brush.Color:=clGray;

      Acanvas.Rectangle(26,arect.top+3,arect.left+arect.Right-2,arect.top+6);

    end;

  end;

  bm:=tbitmap.Create;

  Actions.GetBitmap((sender as tmenuitem).ImageIndex,bm);

  bm.Transparent:=true;

  if not (sender as TMenuItem).Enabled then

    bm.Mask(clWhite);

  acanvas.Draw(arect.Left+3,arect.Top+1,(bm as TGraphic));

  bm.Free;

end; 

procedure TPhoneBook.PhonesColumnClick(Sender: TObject;

  Column: TListColumn);

var ind:integer;

begin

  ind:=column.Index;

  case ind of

     0:begin

         if sorttype[ind]=0 then sorttype[ind]:=1

         else sorttype[ind]:=0;

         phones.CustomSort(@SortNames, sorttype[ind]);

       end;

     1:begin

         if sorttype[ind]=0 then sorttype[ind]:=1

         else sorttype[ind]:=0;

         phones.CustomSort(@SortHPhones, sorttype[ind]);

       end;

     2:begin

         if sorttype[ind]=0 then sorttype[ind]:=1

         else sorttype[ind]:=0;

         phones.CustomSort(@SortWPhones, sorttype[ind]);

       end;

     3:begin

         if sorttype[ind]=0 then sorttype[ind]:=1

         else sorttype[ind]:=0;

         phones.CustomSort(@SortCelPhones, sorttype[ind]);

       end;

     4:begin

         if sorttype[ind]=0 then sorttype[ind]:=1

         else sorttype[ind]:=0;

         phones.CustomSort(@SortAdres, sorttype[ind]);

       end;

     5:begin

         if sorttype[ind]=0 then sorttype[ind]:=1

         else sorttype[ind]:=0;

         phones.CustomSort(@SortEmail, sorttype[ind]);

       end;

     6:begin

         if sorttype[ind]=0 then sorttype[ind]:=1

         else sorttype[ind]:=0;

         phones.CustomSort(@SortDate, sorttype[ind]);

       end;

  end;

  sortindex:=ind;

end; 
 

procedure TPhoneBook.ToHTMLExecute(Sender: TObject);

var i:integer;

    f:tstringlist;

    bgcolor,textcolor,bordercolor:string;

begin

  if shtml.Execute then begin

    bgcolor:=ColorToHexRGB(phonebook.bgcolor.Color);

    textcolor:=ColorToHexRGB(phonebook.textcolor.Color);

    bordercolor:=ColorToHexRGB(phonebook.bordercolor.Color);

    f:=tstringlist.create;

    f.add('<html>');

    f.Add('  <head>');

    f.Add('     <title>Телефонный справочник</title>');

    f.Add('   </head>');

    f.Add('<body bgcolor=#'+bgcolor+' text=#'+textcolor+'>');

    f.Add('<font face="Verdana">');

    if border.Checked then

       f.Add(' <table border="1" leftmargin="2" align="center" cellpadding="0" cellspacing="0" bordercolor=#'+bordercolor+'  width="98%">')

    else

       f.Add(' <table align="center" leftmargin="2" cellpadding="0" cellspacing="0" width="98%">');

    f.Add('   <tr>');

    f.Add('     <td><b>Имя</td>');

    if cb1.Checked then f.Add('     <td><b>&nbspТелефон</b></td>');

    if cb2.Checked then f.Add('     <td><b>&nbspРабочий</b></td>');

    if cb3.Checked then f.Add('     <td><b>&nbspСотовый</b></td>');

    if cb4.Checked then f.Add('     <td><b>&nbspАдрес</b></td>');

    if cb5.Checked then f.Add('     <td><b>&nbspE-mail</b></td>');

    f.Add('   </tr>');