Buscar por:

Converter Tamanho da fonte Delphi para tamanho da fonte HTML

Código

Olá! Mais uma vez estou colaborando com uma dica

muito útil para quem está desenvolvendo um editor html visual em Delphi.

Eu estou criando um editor de sites do tipo WYSIWYG e

utilizei  a criação em RunTime do componente Tlabel para permitir que o usuário inclua textos no site.Mas

me deparei com um problema, quando o usuário escolhia

o tamanho da fonte do Tlabel dava uma diferença quando ele salvava o site.

A função a seguir calcula o tamanho da fonte de qualquer componente Delphi para html.

------------------------------------------------

    function fontsizetohtml(tamanho:integer):real;

    var temp:extended;

     begin

       temp:=tamanho / 3;

       result:=round(temp+tamanho);

     end;

 Uso:

  procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if fontdialog1.Execute then             begin

   label1.Font:=fontdialog1.Font;

    label1.Caption:=floattostr(fontsizetohtml(label1.Font.Size));

end;

end;