ich muss die Leerzeichen vor einem Text berechnen um diesen in einer Box mit der Maßeinheit in Millimeter zu zentrieren.
Ich denke ich muss eine Presentation Space mit der entsprechenden Größe erstellen, Units auf RA_PU_LOMETRIC setzen, ein Font Object mit der Schrift erstellen und GraSetFont() zuordnen, und dann mit aBox := GraQueryTextBox( oPS, cText ) die Koordinaten ermitteln. Bei mir klappt es aber nicht, bei GraQueryTextBox() sind alle Werte 0.
Grüße
Rudolf
Code: Alles auswählen
function tcenter(cText)
******************************************************************
local aBox,nW,nH,oPS
local oFont := XbpFont():new():create( "10.Arial" )
oPS := XbpPresSpace():new()
oPS:setPageSize({1000,80},GRA_PU_LOMETRIC)
GraSetFont( oPS,oFont )
aBox := GraQueryTextBox( oPS, cText )
oPS := NIL
dc_arrayview(aBox)
return .t.