Larghezza testo in BUTTON/BTNBMP

[Romeo]

Salve,

ho avuto la poco brillante idea di fare scegliere all'utente il font da usare per i BUTTON o BTNBMP...

Ora succede che se scelgono un font troppo grande, sbrodola tutto e fa casino.

Domanda: Non e' possibile sapere quanto e' largo un testo che scrivo in un BUTTON o BTNBMP ?

Mi sto perdendo.....

Ho provato ad utilizzare questo esempio:

@10,10 BUTTON obtn prompt cvar of ownd size a,b font ofont pixel

xbutt:=obtn:nWidth
ybutt:=obtn:nHeight

xtesto:=GetTextWidth(0,cvar,ofont)
ytesto:=GetTextHeight(0,cvar,ofont)

E poi proseguo con i test x capire se ci stà il cvar nel button, ma canno da qualche parte !??!?

Grazie

Romeo/Zingoni

[Enrico Maria Giordano]

Romeo,

xtesto:=GetTextWidth(0,cvar,ofont)
ytesto:=GetTextHeight(0,cvar,ofont)

Code: Select all  Expand view  RUN

xtesto:=GetTextWidth(0,cvar,ofont:hFont)

Mentre non mi risulta una GetTextHeight() analoga alla GetTextWidth().

EMG