FiveTech Software tech support forums

... := .F. oLbx:bLine := {|| { AUDITOR->USUARIO, AUDITOR->NIVEL, CVALTOCHAR(AUDITOR->FECHA), AUDITOR->HORA, AUDITOR->ACCION} } oLbx:aHeaders := { "Usuario","Privilegio","Fecha","Hora","Acción Realizada" } oLbx:aHJustify := {2,2,2,2,2} oLbx:nClrPane := {|| IIF( (oLbx:cAlias)->(OrdKeyNo())%2=0, ...

... ; [ ALIAS <cAlias> ] ; [ <sizes:FIELDSIZES, SIZES, COLSIZES> <aColSizes,...> ] ; [ <head:HEAD,HEADER,HEADERS> <aHeaders,...> ] ; [ SIZE <nWidth>, <nHeigth> ] ; [ <dlg:OF,DIALOG> <oWnd> ] ; [ SELECT <cField> FOR <uValue1> ...

... id 108 ON DBLCLICK cambio(oLbx,.f.,oProex) of odlg oLbx:aheaders:= {"Proveedor","F. Factura","Factura","Importe","u$s","Remito","Fecha","Cobranza","Despacho"} oLbx:aJustify := {HA_LEFT,HA_RIGHT,HA_LEFT,HA_RIGHT,HA_RIGHT,HA_RIGHT,HA_RIGHT,HA_RIGHT,HA_RIGHT} ...

... {|| CLR_HBLUE} tcobRW1:nClrNFBack := {|| CLR_HBBLUE} tcobRW1:nHeaderHeight:= 19 tcobRW1:nLineHeight := 18 tcobRW1:nFreeze := 3 tcobRW1:aHeaders := {"Cód.","Descrição","Qtde"} tcobRW1:nClrPane := {|| IF(tcobRW1:nat % 2 == 0,CLR_LGRAY,CLR_LGREEN)} tcobRW1:bLine := {|| If( Len(aProdtch)<1 ...

... to count // on indexed filters DATA lHitTop, lHitBottom, lCaptured, lMChange DATA lAutoEdit, lAutoSkip DATA lCellStyle AS LOGICAL INIT .f. DATA aHeaders, aColSizes DATA nClrBackHead, nClrForeHead DATA nClrBackFocus, nClrForeFocus DATA aJustify, aActions DATA oGet DATA nLineStyle DATA lIconView, ...

METHOD Report( cTitle, lPreview, aHeaders, aFooters, cCaption,lModal ) CLASS TXBrowse Local oRpt ,nCols := Len( ::acols ), oldbskip:=::bskip local odevice,cmsg:={"Print","Date","time","Page"} oDevice := TPrinter():New(cmsg[1],.t.) if odevice:hdc==0; ...

... ; [ ALIAS <cAlias> ] ; [ <sizes:FIELDSIZES, SIZES, COLSIZES> <aColSizes,...> ] ; [ <head:HEAD,HEADER,HEADERS,TITLE> <aHeaders,...> ] ; [ SIZE <nWidth>, <nHeigth> ] ; [ <dlg:OF,DIALOG> <oDlg> ] ; [ SELECT <cField> FOR <uValue1> ...

... +++++++++++++++++++++++++++++++++++++++++++++ func index_mrez(n,oLbX) *-------------------------------------------- select lager if n = 1 oLbx:aHeaders:={ "-> Bezeichnung", "|| Kategorie","Kartenpreis","Wareneinsatz","Nettorohaufschlag","|| Artikel-NR" } set order to 5 elseif n = 2 oLbx:aHeaders:={ ...

... oBCliente:aColSizes := {80,260} oBCliente:bLDblClick:={|| Sol_Datos(.F.)} oBCliente:bKeyDown:={|nKey| Val_nKey(nKey,oBCliente)} oBCliente:aHeaders := cHCli oBCliente:bLine := cLCli oBCliente:SetFocus() oDlg:lHelpIcon := .f. SACS_ONOMASTICO_REL DIALOG DISCARDABLE -4, 9, 315, 218 STYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU ...

driessen wrote:But can anyone tell me how I can change the headers of this listbox ?

oLst:aHeaders:={"Header1","Header2",...}

--
Sincerely,

Patrick Mast,
xHarbour.com Inc.
http://www.xHarbour.com

... tienes que tener en cuenta lo siguiente. 1) bLine devuelva un arreglo en funcion del nro de columnas que sean necesarias mostrar. 2) Ajustar ::aHeaders y ::aFooters en el momento del cambio de agregar o quitar columnas 3) Ajustar ::aColSizes que nos define los anchos en pixeles de la columna. ...

Elías,

oBrowse:aHeaders[ n ] = cTexto
oBrowse:Refresh()

y en cTexto usa algún caracter que lo indique (*,+,#,etc.)

... := {|nAt| nAt:= oBrw:nAt,; if ( lFlag,; Array(4),; { STR( oRs21:Get('codcli'),6,0 ),; oRs21:Get('nombre'),; oRs21:Get('domici'),; " " } ) } aHeaders := { 'Cod.', 'Nombre', 'Domicilio', " " } aTamanio := { 50,200,180,,15 } aJusto := { .T.,.F.,.F.,.F. } 2. y despues the magic : TWBrowse():lHScroll:= ...

Alguien tiene alguna idea de como se podria poner en un header algo parecido a esto ?


::oBrw:aHeaders[nColpres]:=FwBmpAsc()+"ok"


Quiero poner un pequeño bitmap con y despues el texto del header-

Un saludo y gracias

METHOD SetMySQL(oQuery) METHOD Report( cTitle, lPreview, aheaders,afooters,oFont, nLang, cCaption, lModal ) METHOD RPTSKIP() METHOD NTOTAL() METHOD SAVE() METHOD end() INLINE ::Destroy() METHOD SetMySQL(oquery,ledit) CLASS TXBrowse ::nMarqueeStyle := ...