of
: edit_Execute (nil);
: delete_Execute (nil);
: new_Execute (nil) ;;;
////////////////////////////////////////////////////////////////////////////////
//показати форму
////////////////////////////////////////////////////////////////////////////////TPhoneBook.FormShow(Sender: TObject); i: integer; phonebook.WindowState=wsMaximized then begini:=0 to Phonebook.ComponentCount - 1 doPhonebook.Components [i] is TControl then
(Phonebook.Components [i] as TControl) .Visible:=false; .WindowState:=wsNormal; .WindowState:=wsMaximized; i:=0 to Phonebook.ComponentCount - 1 doPhonebook.Components [ i] is TControl then
(Phonebook.Components [i] as TControl) .Visible:=true ;;. Align:=alBottom ;;
////////////////////////////////////////////////////////////////////////////////
//переносити за словами
////////////////////////////////////////////////////////////////////////////////TPhoneBook.CheckBox1Click(Sender: TObject) ;. WordWrap:=checkbox1.Checked; files.WordWrap then.ScrollBars:=ssVertical.ScrollBars:=ssBoth; .Checked:=checkbox1.Checked;
end;
////////////////////////////////////////////////////////////////////////////////
//Установка кольору фону (експорт)
////////////////////////////////////////////////////////////////////////////////TPhoneBook.bgcolorClick(Sender: TObject); colorD.Execute then.font.Color:=colorD.Color;
end;
////////////////////////////////////////////////////////////////////////////////
//установка колір тексту (експорт)
////////////////////////////////////////////////////////////////////////////////TPhoneBook.textcolorClick(Sender: TObject); colorD.Execute then.font.Color:=colorD.Color;
end;
///////////////////////////////////////////////////////////////////////////////
//устантовка кольору фону (експорт)
////////////////////////////////////////////////////////////////////////////////TPhoneBook.bordercolorClick(Sender: TObject); colorD.Execute then.font.Color:=colorD.Color ;;
////////////////////////////////////////////////////////////////////////////////
//вихід
////////////////////////////////////////////////////////////////////////////////TPhoneBook.ExitOnEscExecute(Sender: TObject); checkbox5.Checked then close ;;
////////////////////////////////////////////////////////////////////////////////
//підгонка ширини стовпців
////////////////////////////////////////////////////////////////////////////////TPhoneBook.ToolButton16Click(Sender: TObject); i: integer; i:=0 to phones.Columns.Count - 1 do.Column [i] .width:=round (phones.Width/phones.Columns.Count) - 1 ;;
////////////////////////////////////////////////////////////////////////////////
//перетягування при DnD
////////////////////////////////////////////////////////////////////////////////TPhoneBook.ListDragOver(Sender, Source: TObject; X, Y: Integer ;: TDragState; var Accept: Boolean); source is TTreeView then begin:=(Source as TTreeView) .Selected;:=(sender as TTreeView) .GetNodeAt (x, y); tonode lt; gt; nil then begin ((tonode.ImageIndex in [ 0,1,3]) and (node.ImageIndex lt; gt; 0) and (tonode lt; gt; node)) then:=trueaccept:=false; node.ImageIndex=1 then StatusBar1.Panels [0] .Text:= node.text + - gt; + tonode.Text; node.ImageIndex=2 then StatusBar1.Panels [0] .Text:=node.text + - gt; + tonode.Text; accept:=false; accept:=false;
end;
////////////////////////////////////////////////////////////////////////////////
//Перемістити еліменти при DnD
////////////////////////////////////////////////////////////////////////////////
procedure TPhoneBook.ListDragDrop (Sender, Source: TObject; X, Y: Integer); s: string; .CreateForm (TMoveNode, MoveNode); node.ImageIndex of
: s:= Перемістити групу + ansiuppercase (node.text) + в групу + ansiuppercase (tonode.Text) + ? raquo ;;
: s:= Перемістити замітку + ansiuppercase (node.text) + в групу laquo;raquo;+ansiuppercase(tonode.Text)+laquo;raquo;?raquo;;;.Label1.Caption:=s;node.ImageIndex=1 then movenode.RadioGroup1.ItemIndex:=0movenode.RadioGroup1.ItemIndex:=1; checkbox8.Checked then beginmove...
