FiveTech Software tech support forums

... "Cód.","Locatario","Cód","Domicilio","Importe" ; ID _CLV_Lbx ; FONT oTipLet ; OF oDlg oLbx:aJustify = {.t.,.f.,.t.,.f.,.t.} Si uso la letra oFONT me da el error del mensaje anterior y aun cuando le cambio los tamaños continua el error. Si ...

... "Cód.","Locatario","Cód","Domicilio","Importe" ; ID _CLV_Lbx ; FONT oTipLet ; OF oDlg oLbx:aJustify = {.t.,.f.,.t.,.f.,.t.} Si uso la letra oFONT me da el error del mensaje anterior y aun cuando le cambio los tamaños continua el error. Si ...

... ; ID _CLV_Lbx ; FIELDSIZES {50,50} ; HEADERS "Loc.","Prop" ; Font oLetra ; UPDATE ; OF oDlg oLbx:aJustify = {.t.,.t.} al ejecutarlo me sale el siguiente error: Error Base/1081 Argument error: + Application =========== Path and name: C:\AFuentes\AdmProp\Sistema.exe ...

... = CreateSolidBrush( CLR_BRWHS ) FillRect( hDC, { nTop, nLeft, nBottom, nRight }, hBrush ) DeleteObject( hBrush ) SetBkColor( hDC, CLR_BRWHS ) if aJustify != nil .and. aJustify[ n ] SetTextAlign( hDC, TA_RIGHT ) ExtTextOut( hDC, nTop, nRight - 2, { nTop, nLeft, nBottom, nRight }, cValToChar( aValues[ ...

... oBrw:nClrForeHead := 0 oBrw:nClrBackHead := 8778750 &&..Cream //oBrw:bLDblClick:= {|| oBrw:ShowSizes() } oBrw:nLineStyle:= 3 oBrw:aJustify := { .F.,.F., .F., .T., .T. } oBrw:bGoTop := { || nItem := 1 } oBrw:bGoBottom := { || nItem := Len(aAcc_No) } oBrw:SetArray( aAcc_No, aAcc_Desc, ...

oLbx:aJustify := { .f., .t., .f., .f., ........... }
where .t. means right justify
and .f. means left justify

Hola Antonio Nada, olvida todo lo dicho. El error lo estaba provocando ajustify. Empece a eliminar instrucciones antiguas y funciona perfectamente. Ahora con lo que me encuentro, es que con el siguiente codigo: FUNCTION facturar( nAlb, cClient, cAltera ) LOCAL ...

¿Cómo hago para alinear los textos de las cabeceras igual que el contenido de sus correspondientes columnas?
Para las columnas uso :aJustify:={.t.,.f.,2,.t. ...}

... INLINE ::l2007 := .F., ::l2007 // Desactiva el look 2007 en las cabeceras Implementado también el centrado de columnas si es nil el parámetro de aJustify. Os añado la clase para que la probéis y un prg de ejemplo, que sólo necesita la tabla customer.dbf del directorio \samples\ de FW. https://dl.dropboxusercontent.com/u/8604183/FWHforos/DemoBrowseEx.prg ...

... IsAppThemed(), ::l2007 METHOD setLookOff() INLINE ::l2007 := .F., ::l2007 I mplementado también el centrado de columnas si es nil el parámetro de aJustify.

... 60, 40, 50, 80, 60, 170, 70, 190, 70, 70, 80; ON DBLCLICK ( EditList(.F.,oWPpal), oLbx:Refresh() ); LINES ; ID 120 OF oFld1:aDialogs[ 1 ] oLbx:aJustify := {.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,.T.,.T.,.T.} oLbx:bKeyDown := {|nKey| iif(nKey=13, ( EditList(.F.,oWPpal), oLbx:Refresh() ),; iif(nKey=46 ...

Very good conductor, you hit on the fly.

However, if you want to change the original class (wBrowse) will not error when the programmer does not count the columns of the listbox and aJustify.

Thanks.

Oscar,

Have you checked that the length of aJustify and the number of columns is the same ?

thanks

Linares, I changed the class wbrowse.prg, wbrwline() function, because it was giving error. if aJustify != nil .and. n<=Len(aJustify) .and. aJustify[ n ]=.T. // changed because it was giving error in the price list electronics. Was: if aJustify != nil .and. aJustify[ ...

... FIELDSIZES 50, 170, 90, 380, 60, 60, 60, 60, 60, 60; ON DBLCLICK (EditList(.F.,oWPpal), oLbx:Refresh() ); LINES ; ID 172 OF oDlg oLbx:aJustify := {.F.,.F.,.F.,.F.,.T.,.T.,.T.} oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROWMS oLbx:bClrRowFocus := { || { CLR_WHITE, RGB( 0,150,193 ) } } oLbx:aCols[01]:cSortOrder ...