FiveTech Support Forums

Saludotes:

Un asunto que habia dejado pero que no me funciona con los TSay

creo says para desplegar datos en pantalla normal, sin recursos, ejemplo sencillo:

function DespDatos()
local oFontS
local oDat1,cDat1:='Observaciones'
local oDat2,cDat2:='Datos de la cotización'

bPant es mi dialogo

DEFINE FONT oFontS NAME "ARIAL" SIZE 0,-20 BOLD

@ 1,10 SAY oDat1 VAR cDat1 PICTURE OF bPant FONT oFontS PIXEL SIZE GetTextWidth(0,cDat1,oFontS),20
@ 3,30 SAY oDat2 VAR cDat2 PICTURE OF bPant FONT oFontS PIXEL SIZE GetTextWidth(0,cDat2,oFontS),20
etc.....
....
...
return NIL

mi preguntota: Al desplegar los says en la pantalla, la longitud del say es casi el doble del la longitud en pixeles del dato desplegado, al suponer que el
GetTextWidth(0,cDat1,oFontS) me devuelve la longitud correcta.

Puedes probar esto ?

oWnd:GetWidth( cText, oFont ) -> Devuelve el ancho

Teniendo en cuenta que oWnd es el padre del TSAY, normalmente un objeto TDialog, TWindows o TPanel por ejemplo.

If you are using SAY on a dialog use GetTextWidth(...) / 2
If you are using SAY on window, or DIALOG ...TRUEPIXEL or ON INIT DIALOG or on folders, you can use GetTextWidth(...) without /2.