%% StartEditTag=StartEditTag
%% Prefix=EDIT_TAG_
{
Initialize dialog to edit tag
}
procedure %StartEditTag%(tag:integer; Caption:string);
var s:string;
begin
 s:='';
 if typetag(tag)>0 then begin
  if editstate=0 then begin
   if typetag(tag)=1 then s:=str(igettag(tag)) else
   if typetag(tag)=2 then s:=str(rgettag(tag)) else
   if typetag(tag)=3 then s:=sgettag(tag) else s:='';
   if pos('?',edit('(Редактировать тег '+nametag(tag))
             +edit(' '+Caption+'|'+s)
             +edit(')StringGridEdit %Prefix%'+nametag(tag)))>0
   then Warning('Error starting edit tag "'+nametag(tag)+'"!');
  end else Warning('Could not edit tag "'+nametag(tag)+'" right now!');
 end;
 s:='';
end;
