procedure TCommonForms_editorext.RunForm;          {RUNFORM}
var
  xmld:TXMLDocument;
  i,j:integer;
  pnl:TCommonComponents_PANEL;
  find:boolean;
begin
  xmld:=TXMLDocument.Create(self);
  xmld.XML.Text:=self.createscript;
  xmld.Active:=true;
  if lowercase(vartostr(xmld.DocumentElement.Attributes['type']))='tree' then
  begin
    self.FormTree(self.cf_editorext_tree,vartostr(xmld.DocumentElement.Attributes['idfield']),vartostr(xmld.DocumentElement.Attributes['basetable']),vartostr(xmld.DocumentElement.Attributes['captionfield']),vartostr(xmld.DocumentElement.Attributes['parentfield']),vartostr(xmld.DocumentElement.Attributes['addsql']));
  end;
  for i:=0 to fulltree.Fields.Count-1 do
  begin
    find:=false;
    for j:=0 to xmld.DocumentElement.ChildNodes.Count-1 do
    begin
      if lowercase(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['field']))=lowercase(fulltree.Fields.Item[i].Name) then
      begin

        if xmld.DocumentElement.ChildNodes.Nodes[j].HasAttribute('type') = true then
        begin
          if lowercase(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['type']))='cbx' then
          begin
          //cbx
            pnl:=TCommonComponents_PANEL_COMBOBOX.Create(self.clpanel);
            pnl.Name:=fulltree.Fields.Item[i].Name;
            pnl.Parent:=self.clpanel;

            TCommonComponents_PANEL_COMBOBOX(pnl).rs:=dbform.SendSQLCommand(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['cbx_query']),'false',dbform.database,'query','true','',self);
            TCommonComponents_PANEL_COMBOBOX(pnl).outfield:=lowercase(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['cbx_outfield']));
            TCommonComponents_PANEL_COMBOBOX(pnl).itemsfield:=lowercase(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['cbx_itemsfield']));
            TCommonComponents_PANEL_COMBOBOX(pnl).LoadBox;
            pnl.Caption:='';
            pnl.Visible:=true;
          end;

          if lowercase(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['type']))='checkbox' then
          begin
          //cbx
            pnl:=TCommonComponents_PANEL_CHECKBOX.Create(self.clpanel);
            pnl.Name:=fulltree.Fields.Item[i].Name;
            pnl.Parent:=self.clpanel;
            pnl.Caption:='';
            pnl.Visible:=true;
          end;

          if lowercase(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['type']))='edt' then
          begin
          //edt
            pnl:=TCommonComponents_PANEL_EDIT.Create(self.clpanel);
            pnl.Name:=fulltree.Fields.Item[i].Name;
            pnl.Parent:=self.clpanel;
            pnl.Caption:='';
            pnl.Visible:=true;
          end;
        end;


        if xmld.DocumentElement.ChildNodes.Nodes[j].HasAttribute('aliase') = true then
        begin
          if pnl <> nil then pnl.lbl.Caption:=vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['aliase'])
        end;

        if xmld.DocumentElement.ChildNodes.Nodes[j].HasAttribute('enabled') = true then
        begin
          if pnl <> nil then
          begin
            if lowercase(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['enabled']))='true' then
            begin
              pnl.Enabled:=true
            end
            else
            begin
              pnl.lbl.Font.Style:=[];
              pnl.Enabled:=false;
            end;
          end;
        end;

        if xmld.DocumentElement.ChildNodes.Nodes[j].HasAttribute('visible') = true then
        begin
          if pnl <> nil then
          begin
            if lowercase(vartostr(xmld.DocumentElement.ChildNodes.Nodes[j].Attributes['visible']))='true' then
              pnl.Visible:=true
            else
              pnl.Visible:=false;
              //showmessage(xmld.DocumentElement.ChildNodes.Nodes[j].XML);
          end;
        end;
        find:=true;
      end;
    end;
    if find=false then
    begin
      pnl:=TCommonComponents_PANEL_EDIT.Create(self.clpanel);
      pnl.Name:=fulltree.Fields.Item[i].Name;
      pnl.Parent:=self.clpanel;
      pnl.lbl.Caption:=fulltree.Fields.Item[i].Name;
      pnl.Caption:='';
      pnl.Show;
    end;
  end;
  xmld.Active:=false;
  xmld.Free;

end;