Buscar por:

Criando fontes no delphi

Código

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(...);