FluentHTML

Fluidtml

• Pascal es una biblioteca desarrollada para usar las etiquetas HTML directamente.
• Las etiquetas HTML5 se basan.
• Solo se puede usar para producir etiquetas HTML5, no hay función de análisis ...

 uses
    Classes_HTML5_            //  THTMLTag Class definition
  , Methods_HTML5_            //  HTML Tags definitions...
  ;

...
...
...

procedure TWebModule.PageProducer1HTMLTag ( Sender          : TObject
                                         ; Tag             : TTag
                                         ; const TagString : string
                                         ; TagParams       : TStrings
                                         ; var ReplaceText : string
                                         );
var
  aHTML: THTMLTag;
begin
  if  SameText(TagString, ' userprofile ' ) then begin
      aHTML:= table([
                      thead([
                              tr( [ th( ' Kullanıcı Profili ' ).colspan( ' 2 ' )              ])
                            , tr( [ th( ' Alan ' )          , th( ' Değer ' )                 ])
                            ])
                    , tbody([
                              tr( [ td( ' ID ' )            , td(Oturum.User.ID.ToString) ])
                            , tr( [ td( ' Kullanıcı Adı ' ) , td(Oturum.User.UserName)    ])
                            , tr( [ td( ' Şifre ' )         , td(Oturum.User.Password)    ])
                            , tr( [ td( ' Ad Soyad ' )      , td(Oturum.User.AdSoyad)     ])
                            , tr( [ td( ' Eposta ' )        , td(Oturum.User.Eposta)      ])
                            , tr( [ td( ' Dil ' )           , td(Oturum.User.Dil)         ])
                            , tr( [ td( ' Durum ' )         , td(Oturum.User.Durum)       ])
                            ])
                    ]).class_( ' vg ' );

      ReplaceText := aHTML.ToString;
  end else
  if  SameText(TagString, ' userprofileform ' ) then begin
      aHTML:= form(
              [ fieldset( ' Kullanıcı Profilinizi Düzenleyin ' )
              , label_( ' Kullanıcı Adı '   , [ br, input.placeholder( ' Lütfen bir kullanıcı adı belirtin '     ).id( ' username_id ' ). name ( ' username ' ). value ( ' ' ).type_( ' text ' ).autocomplete( ' off ' ) ])
              , br
              , label_( ' Şifreniz '        , [ br, input.placeholder( ' Lütfen 8 basamaklı bir şifre yazınız '  ).id( ' password_id ' ). name ( ' password ' ). value ( ' ' ).type_( ' password ' ).autocomplete( ' off ' ) ])
              , br
              , label_( ' Ad ve Soyadınız ' , [ br, input.placeholder( ' Lütfen tam adınızı yazınız '            ).id( ' fullname_id ' ). name ( ' fullname ' ). value ( ' ' ).type_( ' text ' ).autocomplete( ' off ' ) ])
              , br
              , label_( ' Eposta Adresiniz ' , [ br, input.placeholder( ' Size ait Eposta adresinizi yazınız '    ).id( ' emailadr_id ' ). name ( ' emailadr ' ). value ( ' ' ).type_( ' text ' ).autocomplete( ' off ' ) ])
              , br
              , label_( ' Arabirim Dili '   , [ br, input.placeholder( ' Bu siteyi hangi dilde kullanacaksınız? ' ).id( ' language_id ' ). name ( ' language ' ). value ( ' ' ).type_( ' text ' ).autocomplete( ' off ' ) ])
              ]).action( ' /profileedit ' ).method( ' post ' );
      ReplaceText := aHTML.ToString;
  end else
  begin
    { Standart else sonu }
  end ;
  if Assigned(aHTML) then FreeAndNil(aHTML);
end ;