Necesito si o si utilizar unos jpg pero que en los BTNBMP no aparezcan Transparentes
Son un array de botonoes de 4 * 5, creo una funcion que los crea asi, uno por uno
Luego a travez de otra funcion le asigno el bitmap si es que lo tiene
Pero igual siguen siendo transparentes y eso no me sirve.
Alguna Idea o tip para usar.
Son puestos en una Window, que tiene un gradient. No tiene la clausula transparent.
Saludos
Desde Chile
Adolfo
Son un array de botonoes de 4 * 5, creo una funcion que los crea asi, uno por uno
@ nRow, nCol BTNBMP oBoton OF oWnd5 Prompt cPrompt SIZE nAnBoton,nAlBoton PIXEL NOBORDER FONT oFontBold CENTER
oBoton:lTRANSPARENT:=.F.
oBoton:cTooltip:=cPrompt
oBoton:bClrGrad = { | lMouseOver | If( ! lMouseOver,;
{{ 1, nRGB(210,210,210), nRGB(210,210,210) }, { 1, nRGB(250, 0, 0), nRGB(250, 0, 0) } }, ;
{{ 1, nRGB(210, 10, 10), nRGB(210, 10, 10) }, { 1, nRGB(250, 50, 50), nRGB(250, 50, 50) } } ) }Luego a travez de otra funcion le asigno el bitmap si es que lo tiene
aBoton[x,y]:FreeBitmaps()
aBoton[x,y]:lTRANSPARENT:=.F.
If Len(Alltrim(oDbPro:IMAGEN)) > 0
aBoton[x,y]:hBitmap1 := FILoadFromMemory( oDbPro:IMAGEN )
aBoton[x,y]:hPalette1 := 0
Endif
aBoton[x,y]:cCaption:=oDbPro:MINIDESC
aBoton[x,y]:cTooltip:=oDbPro:PRODUCTO
aBoton[x,y]:bAction:=bDo
aBoton[x,y]:refresh()Pero igual siguen siendo transparentes y eso no me sirve.
Alguna Idea o tip para usar.
Son puestos en una Window, que tiene un gradient. No tiene la clausula transparent.
Saludos
Desde Chile
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
http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650