JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
 | | Sujet: Print_Locate Mer 16 Déc 2020 - 9:56 | |
| Écriture sur un 2D_TARGET (Picture, etc.) PRINT_LOCATE X,Y pointe sur le coin haut/gauche de l'enveloppe du 1er caractère du texte. On a parfois besoin de donner en paramètre la ligne de base des caractères (je pensais au remplissage de documents pré-imprimés... attestations...). Ça permet également de mettre sur une même ligne des polices de tailles différentes. Je constate par expérience que la ligne de base se trouve en général au 1/5ème de la hauteur du caractère en partant du bas, donc c'est très simple: - Code:
-
DIM txt$,x,y
PICTURE 1: FULL_SPACE 1: 2D_TARGET_IS 1: PRINT_TARGET_IS 1
FONT_NAME 1,"Arial": FONT_SIZE 1,64
FONT_ITALIC 1
txt$ = "Au clair"
x = 50: y = 200
PrintTextBase(txt$,x,y)
FONT_SIZE 1,16: x = 400
PrintTextBase(txt$,x,y)
2D_LINE 0,y,500,y: ' ligne de base imposée
END
SUB PrintTextBase(txt$,x,y)
' Print de txt$ en x,y sur le Print_Target courant
' Le paramètre y pointe sur la ligne de base des caractères du texte
' (et non haut/gauche comme dans PRINT_LOCATE)
DIM_LOCAL pt,h
pt = NUMBER_PRINT_TARGET
h = TEXT_HEIGHT("Aq",pt): ' hauteur totale des caractères
y = y-4*h/5: ' nouveau sommet des caractères (décalage vers le haut)
PRINT_LOCATE x,y: PRINT txt$
END_SUB  | |
|
Marc
Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: Print_Locate Mer 16 Déc 2020 - 10:38 | |
| Bonjour à tous ! Merci JL35 pour ton partage ! Dans ton source, une petite erreur s’est glissée dans le nom de la sub.Tu as rectifié de toi même avant la parution de mon message  Bonne journée ! | |
|
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Print_Locate Mer 16 Déc 2020 - 10:44 | |
| Merci Marc, bonne journée à toi aussi !
Et à tous pendant que j'y suis ! | |
|
jjn4
Nombre de messages : 2747
Date d'inscription : 13/09/2009
| | Sujet: Re: Print_Locate Mer 16 Déc 2020 - 15:21 | |
| - JL35 a écrit:
- Et à tous pendant que j'y suis
Merci, et de même. Et merci pour cette particularité, toujours intéressant à mettre en réserve !  | |
|
papydall
Nombre de messages : 7017
Age : 74
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: Print_Locate Mer 16 Déc 2020 - 23:10 | |
| Intéressant! Merci JLTrente-Cinq. Tu as toujours 35 trucs en avance | |
|
JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Print_Locate Jeu 17 Déc 2020 - 12:11 | |
| - papydall a écrit:
- Tu as toujours 35 trucs en avance
n'exagère pas tout de même... quoique... | |
|
Calendrier