FiveTech Software tech support forums

... 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" ........ ...

... hDC ) nFontHt := GetTextHeight( oCol:oBrw:hWnd, hDC ) DRAWTEXTEX( hDC, cLine, { nRow, nLeft, nRow + nFontHt + 4, nRight }, 1 ) //oCol:nDataStyle ) oBold:DeActivate( hDC ) nRow += nFontHt + 4 cLine := SubStr( cText, nAt + 2 ) ELSE cLine := cText ENDIF IF oBrw1:KeyNo() = 2 .or. oBrw1:KeyNo() ...

... WndWidth( oCol:oBrw:hWnd ) - 21, aRect[ 3 ] + 2, 2, 2,; RGB( 0, 0, 0 ), 1 ) endif endif SetTextColor( hDC, 0 ) DrawTextEx( hDC, cData, aRect, oCol:nDataStyle ) return nil

... WndWidth( oCol:oBrw:hWnd ) - 21, aRect[ 3 ] + 2, 2, 2,; RGB( 125, 162, 206 ), 1 ) endif SetTextColor( hDC, 0 ) DrawTextEx( hDC, cData, aRect, oCol:nDataStyle ) return nil

... oCol:AddResource("CHECKOFF") 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 ...

... WndWidth( oCol:oBrw:hWnd ) - 21, aRect[ 3 ] + 2, 2, 2,; RGB( 125, 162, 206 ), 1 ) endif SetTextColor( hDC, 0 ) DrawTextEx( hDC, cData, aRect, oCol:nDataStyle ) return nil

... WndWidth( oCol:oBrw:hWnd ) - 21, aRect[ 3 ] + 2, 2, 2,; RGB( 125, 162, 206 ), 1 ) End SetTextColor( hDC, 0 ) DrawTextEx( hDC, cData, aRect, oCol:nDataStyle ) Return NIL 2.- PAra solucionar el segundo problema me comentabas que añadiera esta liena al xBrowse: oBrw:nStretchCol = STRETCHCOL_LAST ...

... WndWidth( oCol:oBrw:hWnd ) - 21, aRect[ 3 ] + 2, 2, 2,; RGB( 125, 162, 206 ), 1 ) endif SetTextColor( hDC, 0 ) DrawTextEx( hDC, cData, aRect, oCol:nDataStyle ) Return nil Un saludo JLL

... WndWidth( oCol:oBrw:hWnd ) - 21, aRect[ 3 ] + 2, 2, 2,; RGB( 125, 162, 206 ), 1 ) endif SetTextColor( hDC, 0 ) DrawTextEx( hDC, cData, aRect, oCol:nDataStyle ) return nil Saludo JLL

... 1, 2) } oCol:bStrData := { || 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 ...

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. )

... oCol:bStrData := { || (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") ...

... hDC ) nFontHt := GetTextHeight( oCol:oBrw:hWnd, hDC ) DrawTextEx( hDC, ALLTRIM(odb1:ctitle), { nRow, nLeft, nRow + nFontHt + 4, nRight }, oCol:nDataStyle ) ofont1:DeActivate( hDC ) SetTextColor( hDC, CLR_BLACK) nRow += nFontHt + 4 ofont2:Activate( hDC ) DrawTextEx( hDC, odb1:descrip, { nRow, ...

... SetBkColor( hDC, aColors[ 2 ] ) DrawTextEx( hDC, cLine ,; {nRow, nCol, nRow + oFont1:nHeight(), Min( nCol + nWidth, ::oBrw:BrwWidth() - 5 ) },; ::nDataStyle ) oFont1:Deactivate( hDC ) cLine = Alltrim(SubStr(cData, nFrom )) oFont:Activate( hDC ) SetTextColor( hDC, aColors[ 1 ] ) SetBkColor( hDC, ...