FiveTech Software tech support forums

ok, voy a intentar ver cual es el problema, para ello necesitaria si me pueden decir que me da esta sentencia :

Code: Select all  Expand view

oPrn:GetTextWidth(cLin,oFont)

gracias

david

Estimados se podrian fijar porque está rutina para imprimir justificado no funciona: /* Rutina para imprimir campos memo en forma justificada a ambos lados. cTxt - dato tipo memo, en relidad basta con que sea texto oPrn - objeto TPrinter nRow - renglon nCol - columna nWid - ancho m ximo de texo ...

Lo encontré, pero con letra ARIAL no funciona....

Code: Select all  Expand view

Imp_MemoW(cTxt,oPrn,nRow,nCol,nWid,oFont,nSkp,nClr)

david
argentina

Justificacion completa con la Clase tprinter

Se puede hacer una Justificación Completa con la clase tprinter imprimiendo campos MEMO

gracias

david
argentina

... El problema era que tenia incorporado al proyecto el prg REPORT.PRG, que habia copiado de Sources para hacerle la modificacion, por el problema de justificacion a la derecha de campos numericos en oReport:Say Por lo que NO HABRIA QUE TOCAR nada en el producto FW y FWH....., ya que elimine este ...

... 6) Nueva varaible ::aHJustify. Funciona igual que ::aJustify, es decir, un // array cuyos elementos asumen valores, que idicaran a la clase la // justificacion de la columna para Cabeceras (Headers). En caso de no // definirse, o enviarse menor cantidad de elementos, se toma por defecto // los ...

Holas,

quisiera saber si esposible cambiar la justificacion de un GET definido desde recurso en tiempo de ejecucion RIGTH, LEFT o CENTER

alguna idea?

saludos

Marcelo

Hola amigos Ya estoy "liao" con harbour, me salían muchos errores de declaración de variables que he corregido, pero ahora me sale el siguiente error: ********************* Size: 1,738,752 bytes Time from start: 0 hours 0 mins 1 secs Error occurred at: 01/11/06, 12:07:45 Error description: Error BAS...

... Ctl3dLook(oGt[2]:hWnd) Ctl3dLook(oGt[3]:hWnd) SysRefresh() RETURN NIL * Como ves, a cada vez que pulso sobre el boton un boton de justificacion destruyo los GET's y los vuelvo a crear. Es la única solución que encontré, y me va de maravilla. Espero que te sirva la ayuda. Un saludo.

... la izq oGets[j]:NPAGINA:=0 // color negro oGets[j]:lRounded:=.F. oGets[j]:Refresh() ELSE letras:=int(val(acos[j6+2])/letrapixel) // depende de la justificacion njustyf:= val(acos[j6+8]) Do case case njustyf=0 // Izquierda aGets[j] :=acos[j6+5]+space(letras-len(acos[j6+5]) ) lCenter:=.f. ;lRight:=.f. ...