COMO CAMBIAR BMP EN EL SORT DEL HEADER DE XBROWSE

COMO CAMBIAR BMP EN EL SORT DEL HEADER DE XBROWSE

Postby rterraz » Sun Aug 13, 2017 3: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
User avatar
rterraz
 
Posts: 182
Joined: Wed Nov 08, 2006 11:44 pm
Location: Argentina

Re: COMO CAMBIAR BMP EN EL SORT DEL HEADER DE XBROWSE

Postby Adolfo » 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, 1 TB NVME M.2, 1 TB SSD, GTX 1650
User avatar
Adolfo
 
Posts: 846
Joined: Tue Oct 11, 2005 11:57 am
Location: Chile

Re: COMO CAMBIAR BMP EN EL SORT DEL HEADER DE XBROWSE

Postby acuellar » Wed Aug 16, 2017 10:33 pm

Funciona perfecto.

Muchas Gracias
Saludos,

Adhemar C.
User avatar
acuellar
 
Posts: 1589
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia

Re: COMO CAMBIAR BMP EN EL SORT DEL HEADER DE XBROWSE

Postby horacio » Wed Aug 16, 2017 11:17 pm

Muchas gracias por el aporte. Funciona perfectamente

Saludos
horacio
 
Posts: 1358
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: COMO CAMBIAR BMP EN EL SORT DEL HEADER DE XBROWSE

Postby cnavarro » 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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: COMO CAMBIAR BMP EN EL SORT DEL HEADER DE XBROWSE

Postby rterraz » 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
User avatar
rterraz
 
Posts: 182
Joined: Wed Nov 08, 2006 11:44 pm
Location: Argentina

Re: COMO CAMBIAR BMP EN EL SORT DEL HEADER DE XBROWSE

Postby cnavarro » 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: Select all  Expand view

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
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 13 guests