FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Como Coloco dos lineas en titulo de xbrowse
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Como Coloco dos lineas en titulo de xbrowse
Posted: Wed Oct 08, 2008 04: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"


     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);
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 189
Joined: Sun Jul 08, 2007 01:46 AM
Como Coloco dos lineas en titulo de xbrowse
Posted: Wed Oct 08, 2008 11:01 PM

Ruben DArio:

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

Saludos

Ruben Fernandez

Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Como Coloco dos lineas en titulo de xbrowse
Posted: Wed Oct 08, 2008 11:32 PM
oBrw:nHeaderLines = n
donde "n" es el numero de lineas que desees
 oBrw:aCols[ 5 ]:cHeader := "Doc.Trans"+CRLF+"Anulacion"

Continue the discussion