Problème avec 'text_height()'.

Nombre de messages : 1561 Date d'inscription : 19/01/2014

Bonjour.

Je ne comprends pas pourquoi text_height(1) indique une police de 13, alors que font_size est définie à 20 !!

Code:: dim hnd%, res%, x%, y%

dll_on "kgf"

label fermer, lire

on_click 0,fermer

list 1
left 1,200
top 1,200
width 1,300
font_size 1,20:font_bold 1
item_add 1,"essai de texte."

on_mouse_move 1,lire

hnd%=handle(1)

end

lire:
   res%=dll_call3("GetMousePosition",hnd%,adr(x%),adr(y%))
   caption 0,str$(x%)+","+str$(y%)+": "+str$(text_height("essai",1))
return

fermer:
   terminate
return

Sujet: Re: Problème avec 'text_height()'. Mer 6 Nov 2019 - 15:33

Ca n'a jamais marché,essaye ce code:

Code:: dim ret%
dim LB_GETITEMHEIGHT%

LB_GETITEMHEIGHT% = 417

list 1

left 1,400
' remplir un list avec la liste des polices
font_names_add 1
font_name 1,"system"
font_size 1,20

dll_on "user32"

' retrouve la hauteur d'un element
ret%=dll_call4("SendMessageA",handle(1),LB_GETITEMHEIGHT% ,0,0)
print_locate 0,16
print "hauteur en pixels d'un élément : ",ret%," pixels"

dll_off

Nombre de messages : 1561 Date d'inscription : 19/01/2014

J'ai testé ton code Silverman, mais il m'indique une hauteur de 32 pixels, alors que font_size est fixée à 20 !

Sujet: Re: Problème avec 'text_height()'. Mer 6 Nov 2019 - 19:00

J'ignore pourquoi FONT_SIZE et TEXT_HEIGHT ne sont pas corrélées, il faudrait que jack code la fonction réciproque de FONT_SIZE.