topic-27670

Posts: 418

Joined: Wed Nov 26, 2008 06:33 PM

Longitud exacta de un tsay?
Posted: Sat Nov 16, 2013 02:27 PM

Hola foro.

Como puedo hacer para que al desplegar un dato con tsay, este use exactamente la longitud en pixeles de acuerdo al texto a desplegar y fuente usada, he tratado con esto:

function DatosPres()
local oFontp,cTitulo1:='Presupuesto inicial del periodo',cTitulo2:='...', etc

DEFINE FONT oFontp NAME "ARIAL NARROW" SIZE 0,-14 BOLD // pantallas

TSay():New(10,20,{||cTitulo1'},oVENTANA,,oFontp,.F.,.F.,.F.,.T.,COLOR_NEGRO,COLOR_DIALOGO,;
GetTextWidth(0,cTitulo1,oFontp),;
18,.F.,.F.,.F.,.F.,.F.)

En este caso, despliego el cTitulo1, el asunto es: porque me pone en el despliegue de pantalla el titulo con espacios en blanco
al final del mismo. Estoy usando el GetTextWidth(0,cTitulo1,oFontp)

Esto lógico, se sobre-encima con otros datos contiguos en la misma pantalla.

Alguna sugerencia porfa.

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Longitud exacta de un tsay?
Posted: Sun Nov 17, 2013 10:06 AM

Has probado asi ?

Code (fw): Select all Collapse

@ 10, 20 SAY cTitulo1 OF oVentana FONT oFontp ; 
   SIZE GetTextWidth(0,cTitulo1,oFontp), 18 ;
   COLOR COLOR_NEGRO,COLOR_DIALOGO

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion