FiveTech Software tech support forums

Saludos Alavaro

Creo que si era un problema minimo

si mal no recuerdo esta era la solucion...

en el metodo aJustify cambiar la linea
j := Min( 3, Max( 1, j ) )
por esta
j := Min( 3, Max( 0, j ) )

solo cambiar un "1" por un "0"

... FIELDSIZES 100,100,150,200,150,150,250,150,150 ; ON LEFT DBLCLICK EMAE2( oLbx, .F.); ID 101 OF oDlg oLbx:bRClicked = { || oLbx:ShowSizes() } oLbx:aJustify := {.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.} oLbx:NCLRPANE:={||IIF((ORDKEYNO())%2==0,RGB(230,230,230),RGB(190,215,190))} REDEFINE BUTTON ID 102 ...

... oBrw:bLine := bFields oBrw:aHeaders := aHeaders if aSize # NIL oBrw:aColSizes := aSize endif if nFreeze # NIL oBrw:nFreeze := nFreeze endif oBrw:aJustify := aJusto REDEFINE SAY oSay VAR oBrw:cBuffer ID 64 OF oDlg FONT oFONT UPDATE oBrw:bSeek := {|| oBrw:DbfSeek(.T.,,,, oBrw:cBuffer ) } oBrw:bUpdateBuffer:= ...

... oLbx:nClrForeFocus := CBRWFORE oLbx:nClrBackFocus := CBRWBACK oLbx:nClrBackHead := CHEADBACK oLbx:nClrForehead := CHEADFRONT oLbx:aJustify := eval(bAdjust) oLbx:nLineStyle := 1 oLbx:nLineHeight := 22 oLbx:nFreeze := 11 oLbx:lCellStyle = TRUE oLbx:lAutoEdit = TRUE Regards Colin

... SIZE 615, 200 OF oWnd ; oLbx:bkeydown:={|nKey,nFlag|DOKEY1(nKey,nFlag,oLbx)} oLbx:nClrpane = { || SelColor( RECNO() ) } oLbx:nLineStyle = 1 oLbx:aJustify = { 0, 0, 0, 0 } oLbx:Setfocus() METHOD FUNCTION DOKEY1(nKey,nFlag,oLbx) local cKEY, nSeekrec, ckey2 local nRecNo8 := RecNo() DO CASE CASE ...

... "empresas", "empleado") ; ON DBLCLICK A_agencia ("Modificar", oLbx, cTitu, cOpcion) oLbx:aJustify ={.f.,.f.,.f.} oLbx:nClrPane:={|| IIF((oLbx:cAlias)->(OrdKeyNo())%2==0, CELE, GRIS)} oLbx:nClrForeHead := AZUL

... ; aDatos[nAt,2] } ) } oLbx:SetArray( aDatos) oLbx:aColSizes:= {90, 220 } oLbx:aHeaders := { "Codigo", "Nombre" } oLbx:aJustify := { .t., .f. } .... tus definiciones. Pd. aDatos -> tu array Salu2, Ariel.

... o asi oBrwX:aCols[ 1 ]:nDataStrAlign:= AL_LEFT o correjir el problemita, que pienso yo, tiene la clase... en el metodo aJustify cambiar la linea j := Min( 3, Max( 1, j ) ) por esta j := Min( 3, Max( 0, j ) ) solo cambiar un "1" por un "0"

... ) ; FONT oFntArial03 ; FIELDSIZES IMPNCD*11, 70, 35, 280, 70, 110 ; ID 300 OF oDlgFPC oLbxVenta:aJustify := {.F.,.T.,.F.,.F.,.T.,.T.} REDEFINE SAY oSayLineas ID 1001 PROMPT nLineas PICTURE MA40 OF oDlgFPC FONT oFntArial02 REDEFINE SAY oSayMaxDoc ...

... ) ; FONT oFntArial03 ; FIELDSIZES IMPNCD*11, 70, 35, 280, 70, 110 ; ID 300 OF oDlgFPC oLbxVenta:aJustify := {.F.,.T.,.F.,.F.,.T.,.T.} REDEFINE SAY oSayLineas ID 1001 PROMPT nLineas PICTURE MA40 OF oDlgFPC FONT oFntArial02 REDEFINE SAY oSayMaxDoc ...

... // for array in append mode DATA aIcons AS ARRAY INIT {} // array with icons names DATA aImages AS ARRAY INIT {} // array with bitmaps names DATA aJustify // compatibility with TWBrowse DATA aLine // bLine as array DATA aMsg AS ARRAY INIT {} // multi languaje feature DATA aKeyRemap AS ARRAY INIT ...

... Courier is not a proportional font. Try this. DEFINE FONT oFont NAME "Courier" SIZE -0,10 If you are referring to TWBrowse, try setting oBrw:aJustify. It's an array containing a series of logical values, one for each column. True value means right alignment (good for numbers). -------------------------------------------------------------------------------- ...

... puede pintar los datos de cualquier manera que prefiera dentro de las coordinadas proporcionadas, usando el hDC. Nuevo: Se proporciona el método aJustify SETGET. Se mantiene xbrjustify por compatibilidad con versiones anteriores. * Nuevo: Nuevas construcciones de Harbour y xHarbour, actualizadas ...

... UPDATE oPreccos:SetBrowse( oLbx ) oLbx:nLineHeight := 16 oLbx:nHeaderHeight := 16 //oLbx:nFreeze := 4 oLbx:aHJustify:={2,2,2,2,2} oLbx:aJustify:={.t.,.f.,.t.,.t.,.t.} oLbx:bRClicked := { | nRow, nCol | menutomenuop( nRow, nCol ) } /////////////////////////////////// static function ...

... UPDATE oPreccos:SetBrowse( oLbx ) oLbx:nLineHeight := 16 oLbx:nHeaderHeight := 16 //oLbx:nFreeze := 4 oLbx:aHJustify:={2,2,2,2,2} oLbx:aJustify:={.t.,.f.,.t.,.t.,.t.} oLbx:lDrawFooters :=.T. //oLbx:aActions := Array( 6 ) //oLbx:aActions[1] := { || OrdenArEq( 3, 3 , oPreccos, oLbx,oWndFact01,aGets ...