template <class T> bool ClassAssign(T component, const String attr_name, TXelm *node)
{
    if( component == NULL || attr_name.IsEmpty() || node == NULL )
        return false;
    try
    {
       TXelm *node_comp = node->FindName(attr_name, component->Name);
       if( node_comp == NULL )
          return false;
       component->Caption = node_comp->getAttr(ATTR_TAG_Caption);
       String hint = node_comp->getAttr(ATTR_TAG_Hint);
       if( hint.IsEmpty() ) hint = node_comp->getAttr(ATTR_TAG_Caption);
       component->Hint = hint;
    }catch(...){ return false;}
    return true;
};

void __fastcall TFHotNews::FormShow(TObject *Sender)
{
    ResetForm( this );
}
// ---------------------------------------------------------------------------
 
void ResetForm( TForm *form )
{
    if( NULL == form )
        return;
    if( lng )
    {
      TXelm *node = lng->Select0(NODE_TAG_Form)->FindName(NODE_TAG_Item, form->Name);
      if( node == NULL )
        return;
      form->Caption = node->getAttr(ATTR_TAG_Caption);

      InterControl( form, node );
    }
}