FiveTech Software tech support forums

... := .t. * :lBmpStretch := .f. :nwidth := 120 :nDataStrAlign := AL_CENTER :nHeadStrAlign := AL_CENTER :nDataStrAlign := oBrowse:aCols[ 7]:DefStyle(AL_LEFT,.f.) :nEditType := EDIT_BUTTON :bEditBlock := { |r,c,o,k|(XbrGetDate( o,"Seleziona una data",,1 ),oBrowse:refresh()) } END ...

... oBrowse:aCols[2]:nHeadStrAlign := AL_CENTER oBrowse:aCols[2]:nFootStrAlign := AL_RIGHT oBrowse:aCols[2]:nDataStrAlign := oBrowse:aCols[2]:DefStyle(AL_LEFT,.f.) oBrowse:aCols[2]:cHeader := 'Vencimento' oBrowse:aCols[2]:nBtnWidth := 30 oBrowse:aCols[2]:nWidth := 160 oBrowse:aCols[2]:cEditPicture ...

... oBrowse:aCols[2]:nHeadStrAlign := AL_CENTER oBrowse:aCols[2]:nFootStrAlign := AL_RIGHT oBrowse:aCols[2]:nDataStrAlign := oBrowse:aCols[2]:DefStyle(AL_LEFT,.f.) oBrowse:aCols[2]:cHeader := 'Vencimento' oBrowse:aCols[2]:nBtnWidth := 30 oBrowse:aCols[2]:nWidth := 160 oBrowse:aCols[2]:cEditPicture ...

... oCol:cHeader := "" oCol:bBmpData := { || iif( TEMP072->MARCADO, 1, 2) } oCol:bStrData := nil oCol:nDataStyle := oCol:DefStyle( AL_LEFT, .T.) oCol := oBrw:AddCol() oCol:bStrData := { || TEMP072->BOLETO} oCol:cHeader := "Nº BOLETO" ........ For x = 1 to ...

... have the sources of 6.12. I can not tell you the exact lines to make the modification. But I try to guide you. In xbrowse.prg, search for METHOD DefStyle( ... ) In the method you may see a line of code which looks something like nStyle := nOr( DT_MODIFYSTRING,....) Please add DT_NOPREFIX also ...

... PaintHeader( nRow, nCol, nHeight, lInvert, hDC, nGrpWidth, aBitmap ) CLASS TXBrwColumn ---/... Line 9728 ( En la version 13.08 ) nStyle := ::DefStyle( AL_CENTER, ! ( CRLF $ cHeader ) ) y cambiar por and change by nStyle := ::DefStyle( ::nHGrpAlign, ! ( CRLF $ cHeader ) ) Seria posible? Would ...

... in @ 2, 2 SAY oSay PROMPT "Test & Test" The appersand (&) is not showed. I remember that in xbrowse we had to change a line in Defstyle : nStyle := nOr( DT_MODIFYSTRING, DT_EDITCONTROL, DT_NOPREFIX ) I tryed this on a say object without succes. Frank

... THEN if i MODIFY THE METHOS PAINTHEADER OF XBROWSE lines 8714- 8729 // nStyle := ::DefStyle( ::nHeadStrAlign, ! ( CRLF $ cHeader ) ) nStyle := ::DefStyle( ::nHeadStrAlign, ! ( CRLF $ IfNil( cHeader, "" ) ) ) nBmpNo := ::nHeadBmpNo ...

Dear All,

XBrowse an array with 200 characters as one of the element. I tried oCol:DefStyle( AL_LEFT, .F. ) but still cannot make another line using CTRL+ENTER


Any hint?


Regards,
Frances

... oCol:cHeader := "" oCol:bBmpData := { || iif( _FIELD->MARK, 1, 2) } oCol:bStrData := nil oCol:nDataStyle := oCol:DefStyle( AL_LEFT, .T.) * here i need to press key M and execute the function listed below Static Function Seleciona() ******** my others codes ********* ...

... := { || iif( oProject:prjstart, "Yes", "No ")} oCol:bEditValue := { || oProject:prjstart } oCol:nDataStyle := oCol:DefStyle( AL_RIGHT, .T.) oCol:nEditType := EDIT_LISTBOX oCol:aEditListTxt := { "Yes", "No"} oCol:aEditListBound := { TRUE, FALSE ...

Hola Daniel.

Ya funciona. He usado:

oCol:nDataStyle := oCol:DefStyle( AL_LEFT, .F. )

en lugar de:

ocol:nDataStrAlign := AL_LEFT

Muchas gracias.
Alvaro

Alvaro...

Recibi correo he realizado algunas pruebas y no logro generar el error q nos comentas, el texto me sale alineado perfectamente, te envio a tu email el test...

trata de usar esta via sin necesidad de cambiar la clase

oCol:nDataStyle = oCol:DefStyle( AL_LEFT, .F. )

... := { || (oDCli)->ATTIVITA} oCol:cHeader := "Tipo" oCol:bEditValue := { || (oDCli)->ATTIVITA } oCol:nDataStyle := oCol:DefStyle( AL_LEFT, .T.) oCol:bBmpData := { || (oDCli)->Attivita} oCol:nWidth :=40 oCol:= oApp():oGrid:AddCol() oCol:AddResource("sort1") ...

Otto,

Try it this way:

oCol = oBrw:aCols[ o:nPos ]
oCol:nDataStrAlign := AL_RIGHT
oCol:nDataStyle := oCol:DefStyle( oCol:nDataStrAlign, ( oCol:oBrw:nDataLines == 1 ) )