Fontes - criando fontes no delphi

Top  Previous  Next

// Criando fontes no Delphi

 

//PARA CRIAR UMA FONTE COMO A TIMES NEW ROMAN:

CreateFont(18,9,7,7,FW_LIGHT,0,0,0,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,1,2,'MyFont');

 

//PARA CRIAR A FIXEDSYS:

CreateFont(15,8,9,9,FW_LIGHT,0,0,0,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,1,FF_MODERN,'MyFont');

 

//PARA CRIAR A FIXEDSYS TACHADA E SUBLINHADA:

CreateFont(15,8,9,9,FW_LIGHT,0,1,1,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,1,FF_MODERN,'MyFont');

 

//PARA CRIAR UM MODELO BONITO PARECIDO COM A MS SANS SERIF E A ARIAL:

CreateFont(16,6,0,0,FW_LIGHT,0,0,0,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,0,FF_SWISS,'MyFont')

 

//PARA CRIAR UM MODELO BONITO QUE SE ASSEMELHA COM A ARIAL ITÁLICO:

CreateFont(17,5,0,0,FW_LIGHT,1,0,0,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,2,FF_SWISS,'MyFont');

 

//OUTRO MODELO PARECIDO COM A ARIAL:

CreateFont(16,5,0,0,FW_LIGHT,1,0,0,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,0,FF_SWISS,'MyFont');

 

//MODELO PARECIDO COM TAHOMA (OU VERDANA):

CreateFont(16,6,0,0,FW_LIGHT,0,0,0,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,2,FF_SWISS,'MyFont');

 

//Essas funções retornam um valor inteiro. Para usá-los em um componente que tenha a propriedade 'Handle' de um objeto 'TFont'. Exemplo:

 

Edit1.Font.Handle := CreateFont(...);

Memo1.Font.Handle := CreateFont(...);