CreateFontA ( [14_params] -- hFont )

publication: 23 novembre 2024 / mis à jour 23 novembre 2024

vocabulaire: graphics

Crée une police logique avec les caractéristiques spécifiées. La police logique peut ensuite être sélectionnée comme police pour n’importe quel appareil.

Paramètres:

cHeight

cWidth

cEscapement

cOrientation

cWeight

bItalic

bUnderline

bStrikeOut

iCharSet

iOutPrecision

iClipPrecision

iQuality

iPitchAndFamily

pszFaceName

Exemple:

0 value hFontArial16   \ handle for selected font 
 
: selectFontArial ( -- ) 
    16          \ Hauteur de la police en pixels 
     0          \ Largeur moyenne des caractères 
     0          \ Angle d'échappement 
     0          \ Orientation 
    FW_NORMAL   \ Poids de la police (gras, normal) 
    FALSE       \ Style italique 
    FALSE       \ Souligné 
    FALSE       \ Barré 
    DEFAULT_CHARSET         \ Jeu de caractères 
    OUT_DEFAULT_PRECIS 
    CLIP_DEFAULT_PRECIS 
    DEFAULT_QUALITY 
    DEFAULT_PITCH FF_SWISS or 
    z" Arial"   \ Nom de la police 
    CreateFontA to hFont 
  ; 
 
: lpString s" This is a test string..."  ; 
 
: TXTout  ( -- )     
    selectFontArial 
    hdc hFontArial16 SelectObject drop 
    hdc 10 10 lpString TextOutA  drop 
;

Legal: site web personnel sans commerce / personal site without seling