Page 1 of 1
TbuttonB de Rossine
Posted: Fri Jan 06, 2006 12:12 am
by Joel Andujo
Foro buenas tardes a todos y un Feliz Año a cada uno, espero que logren todo lo que se proponen y lo que no también jejeje
Bueno al grano, la TButtonb de Rossine trabaja con FWH24 y XHarbour ?
lo que pasa es que estoy intentando incorporarla a mis sistemas pero no
se deja por eso mi pregunta
Saludos y gracias
Joel Andujo
Re: TbuttonB de Rossine
Posted: Fri Jan 06, 2006 12:46 am
by Vikthor
Posted: Fri Jan 06, 2006 1:02 pm
by Marcelo Via Giglio
Una Consulta,
estos controles modificados se pueden utilizar desde recursos?, creo que solo eran para ser usados desde codigo fuente?
Y por ultimo de donde los puedo bajar
Gracias
Marcelo
Posted: Fri Jan 06, 2006 4:03 pm
by Marco A. Delgado
Hola Joel.
Anteriomente tambien tenia fwh 2.4 y trate de trabajar la clase que mecionas, pero sopresa no se podia trabajar con ella a lo cual Rossine me explico que era debido a que la habia hecho para fwh 2.6, la cual incorpora el doble buffer, pero Rossine me dijo que podia hacer dos cosas:
1.- Actualizar mi fwh (lo cual no lo podia hacer en ese momento) ó
2.- Suprimir el doble buffer en la clase la cual puedes identificar facilmente por que hay una variable definida asi:
aInfo := ::DispBegin() <-- esto lo tienes que poner como comentario
::DispEnd( aInfo ) <-- y esto tambien.
Y me funciono de perlas,claro ya actualize mi fwh, espero y te sirva
Saludos
Marco A. Delgado.
Posted: Fri Jan 06, 2006 4:06 pm
by Marco A. Delgado
Por supuesto que se pueden usar con recursos y ya viene incorporados en en la nueva version FWH
Saludos
Marco A. Delgado
Posted: Sat Jan 07, 2006 4:23 pm
by Joel Andujo
Gracias Vicktor y Marco, el detalle era el doble buffer como bien
lo explica Marco, ya funciona de perlas
Saludos
Joel Andujo
Posted: Sat Jan 07, 2006 6:15 pm
by Joel Andujo
Estoy agarrado con esto de los botones de Rossine, por cierto estupendo trabajo de su parte y felicitaciones.
Tengo una duda intento cambiar el bmp del botón en tiempo de ejecución
lo estoy haciendo de esta forma :
oBtn:cBitMap:='..\BMP\Cancelar.BMP '
oBtn:refresh()
incluso a si también :
oBtn:cBitMap:='..\BMP\Cancelar.BMP '
oBtn:Paint()
oBtn:refresh()
pero no logro que la imagen se cambie, ¿ alguna idea ?
Saludos
Joel Andujo
Posted: Sat Jan 07, 2006 7:05 pm
by astursoft
segun el codigo de buttonb en new
Code: Select all
if valtype( cBitmap ) == "C"
cBitmap := { cBitmap, cBitmap, cBitmap, cBitmap }
endif
obtn:cBitmap es un array de 4 posiciones y creo que debes cambiarlo asi:
Code: Select all
cBitmap:= '..\BMP\Cancelar.BMP '
oBtn:cBitMap:={ cBitmap, cBitmap, cBitmap, cBitmap }
Saudos
Posted: Sat Jan 07, 2006 8:17 pm
by Joel Andujo
Amigo Astursoft, tienes razón es un array, pero para evitar problemas me he permitido crear un nuevo methodo para cambiar la imagen
el botton en tiempo de ejecución, ahi se la dejo.
Saludos
Joel Andujo
*----------------------------*
METHOD SetBMP( cBitMap ) CLASS TButtonBmp
local hBitMap
if valtype( cBitMap )== 'C'
hBitMap:=if( file(cBitMap),ReadBitmap( 0, cBitMap), LoadBitmap( GetResources(), cBitmap))
::hBitmap:={hBitmap, hBitmap, hBitmap, hBitmap}
else
for i=1 to 4
if valtype(cBitMap)='U'; cBitMap:=cBitMap[1] ; endif
::cBitmap:=cBitMap
::hBitmap:=if( file(cBitMap), ReadBitmap(0, cBitmap), LoadBitmap( GetResources(), cBitmap ) )
next
endi
::Refresh()
return Nil