Como Coloco dos lineas en titulo de xbrowse

Como Coloco dos lineas en titulo de xbrowse

Postby ruben Dario » Wed Oct 08, 2008 4:53 pm

Buen dia como coloco dos lineas en titulo de browse, actualmente lo hago asi y no hace el saldo de linea. Lo hago asi.
oBrw:aCols[ 5 ]:cHeader := "Doc.Trans"+CHR(10)+"Anulacion"


Code: Select all  Expand view  RUN
     oBrw := TXBrowse():New( oDlg28 )     
             oBrw:CreateFromResource( 4002 )  //-----------------------------> Chamada ao Resource Browse.
             par_broArra("3",oBrw,aContl[20],0,oRecordSet[nRecordSet])

             oBrw:SetArray( aArray, .T. )
             //     
        oBrw:bKeyDown:={|nKey| IIF(nKey=VK_RETURN.OR.(aContl[1]+aContl[2])>0,;
                             (Vble_enrt(),lAtvBtn:=.T.,vTarefa:= "A"),.t. ) }
             oBrw:bLDblClick := { || IIF(aContl[1]+aContl[2]>0,(Vble_enrt(),lAtvBtn:=.T.,vTarefa:= "A"),.t.) }
    //
             *****--- Colunas ---*****     
//           oBrw:aColSizes   :={5,20,80,50,50,50,30}
//           oBrw:SetSize( 20, 80 )
             oBrw:aCols[ 1 ]:AddResource("CUT")
        oBrw:aCols[ 1 ]:cHeader := "St"
             oBrw:aCols[ 1 ]:nDataStrAlign := AL_RIGHT
             oBrw:aCols[ 1 ]:nHeadStrAlign := AL_CENTER
             oBrw:aCols[ 1 ]:nWidth := 25
             oBrw:aCols[ 1 ]:bBmpData  := { || iif(aArray[ oBrw:nArrayAt, 1 ]="*", 1,0) }

       //
             oBrw:aCols[ 2 ]:cHeader := "Codigo" 
             oBrw:aCols[ 2 ]:nDataStrAlign := AL_LEFT
             oBrw:aCols[ 2 ]:nHeadStrAlign := AL_LEFT 
             oBrw:aCols[ 2 ]:nWidth := 60

...
             //
             //
             oBrw:aCols[ 5 ]:cHeader := "Doc.Trans"+CHR(10)+"Anulacion"
            oBrw:aCols[ 5 ]:nDataStrAlign := AL_LEFT
             oBrw:aCols[ 5 ]:nHeadStrAlign := AL_LEFT
             oBrw:aCols[ 5 ]:nWidth := 100

             //
             oBrw:aCols[ 6 ]:cHeader := "Cuenta.CxP"
        oBrw:aCols[ 6 ]:nDataStrAlign := AL_LEFT
             oBrw:aCols[ 6 ]:nHeadStrAlign := AL_LEFT
             oBrw:aCols[ 6 ]:nWidth := 100
             //
             oBrw:aCols[ 7 ]:AddResource("CHECK_SI")
             oBrw:aCols[ 7 ]:AddResource("CHECK_NO")
             oBrw:aCols[ 7 ]:cHeader := "Status"
        oBrw:aCols[ 7 ]:nDataStrAlign := AL_LEFT 
             oBrw:aCols[ 7 ]:nHeadStrAlign := AL_LEFT
             oBrw:aCols[ 7 ]:nWidth := 50

             oBrw:aCols[ 7 ]:bBmpData  := { || iif(aArray[ oBrw:nArrayAt, 7 ], 1, 2) }
             oBrw:aCols[ 7 ]:bStrData  := { || iif(aArray[ oBrw:nArrayAt, 7 ],"Si","No") }
             //
             oBrw:aCols[ 8 ]:cHeader := " "
        oBrw:aCols[ 8 ]:nDataStrAlign := AL_LEFT
             oBrw:aCols[ 8 ]:nHeadStrAlign := AL_LEFT
             oBrw:aCols[ 8 ]:nWidth := 10

             //
              FOR nFor := 1 to Len( aCols )
                 oBrw:aCols[ nFor ]:lAllowSizing := .F.                     
                 oBrw:aCols[ nFor ]:bRClickHeader = { || nil }                               
             NEXT
   ACTIVATE DIALOG oDlg28 CENTERED VALID (lExit) ON INIT (ShowMenu(MatValid,@aContl,oBar12,oDlg28);
User avatar
ruben Dario
 
Posts: 1070
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia

Postby Ruben D. Fernandez » Wed Oct 08, 2008 11:01 pm

Ruben DArio:

Asi lo hago:
oCol:cHeader:= "Número Usuario"+CHR(10)+"Nombre Usuario"

Saludos

Ruben Fernandez
Ruben D. Fernandez
 
Posts: 189
Joined: Sun Jul 08, 2007 1:46 am
Location: Uruguay

Postby Daniel Garcia-Gil » Wed Oct 08, 2008 11:32 pm

oBrw:nHeaderLines = n
donde "n" es el numero de lineas que desees
Code: Select all  Expand view  RUN
oBrw:aCols[ 5 ]:cHeader := "Doc.Trans"+CRLF+"Anulacion"
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 46 guests