FiveTech Software tech support forums

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

Gracias...

Funciona Perfecto


Desde Chile
Saludos
Adolfo

Funciona perfecto.

Muchas Gracias

Muchas gracias por el aporte. Funciona perfectamente

Saludos

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 ?

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

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