Buscar

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;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Arquivos
Adicionada dia: 01/11/10
Por: Daniel Melo Alencar
Visualizada: 2218 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009