FiveTech Software tech support forums

Is that what you mean ?

GetTextWidth(NIL, "calculate", oFont:hFont)

Dear Marc,

FWH provides function GetTextWidth( hDC, szText [,hFont], [@nHeight] ) --> nPixelsWidth

... He intentado esto : Imprimir el codigo : oPrn:cmSay( linea,3.6,alltrim((cpptod)->codigo),oFontnegrita) Averiguar el ancho con nsize:=oPrn:GetTextWidth(alltrim((cpptod)->codigo),oFontnegrita) pero me lo da en pixeles y lo paso a cm así : nancho:=oPrn:Cmtr2Pix(nsize, 0) y despues imprimo ...

Buscando, buscando......

oWnd:GetWidth(cTexto,oFont)

Buenas tardes

Utilizo la función GetTextWidth(), para conocer el tamaño que va a ocupar una cadena de texto en una impresión.

Existe una función similar pero para el texto mostrado en pantalla ?

Gracias a todos.

... ::oPrn:hDCOut, nClrText ) #ELSE SetTextCol( ::oPrn:hDCOut, nClrText ) #ENDIF ENDIF DO CASE CASE nPad == 1 // right nCol := Max( 0, nCol - ::GetTextWidth( cText, oFont ) ) CASE nPad == 2 // center nCol := Max( 0, nCol - ( ::GetTextWidth( cText, oFont ) / 2 ) ) ENDCASE TextOut( ::oPrn:hDCOut, ...

Hola a todos ¿ no sería mejor hacer el refresh después de establecer el nuevo ancho ? ANTES AEval(aoSay,{|o,n| o:Refresh() ,o:nWidth := GetTextWidth( 0, Alltrim(o:cCaption), o:oFont:hFont ) + if(alBorder[n],6,0) }) AHORA AEval(aoSay,{|o,n| o:nWidth := GetTextWidth( 0, Alltrim(o:cCaption), ...

DEFINE FONT oFont6 NAME "TAHOMA" SIZE 0,-14 BOLD @ 200,160 SAY oSay1 Var Profe->Nom_Pro SIZE GetTextWidth(0,Profe->Nom_Pro,oFont6:hFont),20 PIXEL OF oDlg2 PICTURE "@!" COLOR RGB(0,0,128), RGB(159,233,255) Antonio, así debería funcionarte:  @ 105,160 ...

Hola Amigos Necesito obtener el ancho real de una variable en PIXELES, para colorear el fondo de un SAY en un DEFINE DIALOG. Estou usando : GetTextWidth(0,Profe->Nom_Pro, oFont6). El problema es que el calculo, me corta el contenido de la variable, aun cuando no le ponga en oFont6, el contenido ...

In Class TSAY I added Line 93 // DEFAULT nWidth := SAY_CHARPIX_W * Len( ::cCaption ) - 4 DEFAULT nWidth := GetTextWidth( 0, ::cCaption, If( oFont != nil, oFont:hFont,; If( oWnd:oFont != nil, oWnd:oFont:hFont,) ) ) + 5 because NO textwidth and height is defined ( DEFAULT-values ...

saludos, tengo un: DEFINE MSGITEM oFecha OF Principal:oMsgBar; PROMPT FormaFecha(gdFecTra); SIZE GetTextWidth(0,FormaFecha(gdFecTra))+2; COLOR COLOR_AZUL,COLOR_SVERDE; TOOLTIP Ota('Fecha de operación') necesito que cada que cambie la fecha, en la barra de mensajes se actualize ...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

oPrn:gettextwidth(ctext, oFont) is useful for this

Have you tried to change the width of the column ?

oBrw:aCols[ ... ]:nWidth := GetTextWidth( 0, "textwithdesiredwidth", oBrw:hFont )

... TRcolum (RColum.prg), en los metodos SayTitle y SayData. Si te fijas bien, en el metodo SayData está esta linea: //nWidth := ::oReport:oDevice:GetTextWidth(cText, oFont) // To Review: Why is this line here? No lo he probado, pero que tal si modificas el metodo SayTitle: ... ... ::nCurLine := ...