COMO CAMBIAR BMP EN EL SORT DEL HEADER DE XBROWSE

Posts: 182

Joined: Wed Nov 08, 2006 11:44 PM

COMO CAMBIAR BMP EN EL SORT DEL HEADER DE XBROWSE
Posted: Sun Aug 13, 2017 03:41 PM

Hola amigos
Tenía necesidad de cambiar el pequeño bmp que aparece por defecto en el header de las columnas indexadas del xBrowse
Hice esta pequeña funcion que quiza a alguien le pueda servir, aqui se las dejo

/
PARAMETROS: n = 0 (por defecto) pone el bmp por defecto en FWH si no bmp seleccionado de resources
xBrw = el xBrowse sobre el que se aplica el cambio
cBmpAsc y cBmpDes los bitmaps a aplicar al Sort Ascendente y Descendente
/

//................................................................
FUNCTION CambiaBmpSort(n,xBrw,cBmpAsc,cBmpDes)

local hBmp
DEFAULT n:=0

xBrw:aSortBmp := {}
hBmp := if( n = 0, FWbmpAsc(),LoadBitMap(GetResources(), cBmpAsc ) )
AAdd( xBrw:aSortBmp, { hBmp, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), nil, .F. } )
hBmp := if( n = 0, FWbmpDes(),LoadBitMap(GetResources(), cBmpDes ) )
AAdd( xBrw:aSortBmp, { hBmp, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), nil, .F. } )

RETU .T.

Es conveniente usar bitmaps de 16 x 16 pixels
Saludos a todos

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Re: COMO CAMBIAR BMP EN EL SORT DEL HEADER DE XBROWSE
Posted: Mon Aug 14, 2017 10:53 PM

Gracias...

Funciona Perfecto

Desde Chile
Saludos
Adolfo

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: COMO CAMBIAR BMP EN EL SORT DEL HEADER DE XBROWSE
Posted: Wed Aug 16, 2017 10:33 PM

Funciona perfecto.

Muchas Gracias

Saludos,

Adhemar C.

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: COMO CAMBIAR BMP EN EL SORT DEL HEADER DE XBROWSE
Posted: Wed Aug 16, 2017 11:17 PM

Muchas gracias por el aporte. Funciona perfectamente

Saludos

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: COMO CAMBIAR BMP EN EL SORT DEL HEADER DE XBROWSE
Posted: Sun Aug 20, 2017 11:30 PM

rterraz wrote:Hola amigos
Tenía necesidad de cambiar el pequeño bmp que aparece por defecto en el header de las columnas indexadas del xBrowse
Hice esta pequeña funcion que quiza a alguien le pueda servir, aqui se las dejo

/*
PARAMETROS: n = 0 (por defecto) pone el bmp por defecto en FWH si no bmp seleccionado de resources
xBrw = el xBrowse sobre el que se aplica el cambio
cBmpAsc y cBmpDes los bitmaps a aplicar al Sort Ascendente y Descendente
*/

//................................................................
FUNCTION CambiaBmpSort(n,xBrw,cBmpAsc,cBmpDes)

local hBmp
DEFAULT n:=0

xBrw:aSortBmp := {}
hBmp := if( n = 0, FWbmpAsc(),LoadBitMap(GetResources(), cBmpAsc ) )
AAdd( xBrw:aSortBmp, { hBmp, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), nil, .F. } )
hBmp := if( n = 0, FWbmpDes(),LoadBitMap(GetResources(), cBmpDes ) )
AAdd( xBrw:aSortBmp, { hBmp, 0, nBmpWidth( hBmp ), nBmpHeight( hBmp ), nil, .F. } )

RETU .T.

Es conveniente usar bitmaps de 16 x 16 pixels
Saludos a todos

Muy bien, pero
has comprobado si esos bitmaps son liberados ?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

rterraz

Posts: 182

Joined: Wed Nov 08, 2006 11:44 PM

Re: COMO CAMBIAR BMP EN EL SORT DEL HEADER DE XBROWSE
Posted: Mon Aug 21, 2017 10:05 AM

Hola
No entiendo a que bmp te refieres ?
Fwbmpasc () y fwbmpdesc () son las dos flechitas que trae por defecto fwh pueden ser cambiados por cualquier bmp que tengas

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: COMO CAMBIAR BMP EN EL SORT DEL HEADER DE XBROWSE
Posted: Mon Aug 21, 2017 10:59 AM

rterraz wrote:Hola
No entiendo a que bmp te refieres ?
Fwbmpasc () y fwbmpdesc () son las dos flechitas que trae por defecto fwh pueden ser cambiados por cualquier bmp que tengas

Pon al principio de tu Main(), pero utiliza otros bitmaps que no sean los que utiliza por defecto que son a los que te refieres

Code (fw): Select all Collapse

Function Main()

   SetResDebug( .T. )

// y antes del return de la function Main

   CheckRes()

Return nil

Usa la aplicacion, utiliza ese browse y sal de la aplicacion
Con el notepad mira el fichero CHECKRES.TXT que te haya podido generar y asi ves si quedan recursos pendientes de destruir
Si no aparecen entradas en ese fichero, está todo correcto

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FiveTech Support Forums

Continue the discussion