
¿Se puede desplazar un btbbmp en tiempo de ejecucion?... lo he intentado con el siguiente codigo pero esto de ser novato...
Code: Select all | Expand
#include "FWCE.ch"#INCLUDE "WINAPI.CH"#define bk_left 37#define bk_right 39#define bk_down 40#define bk_up 38static ownd, bandera_up, contadorfunction Main() local obmp, oBtn local fil, col if bandera_up = nil fil :=141 col := 10 contador:=0 endif DEFINE WINDOW oWnd TITLE "BOTON BITMAP" @ fil, col BTNBMP obtn filename curdir() + "\rcod8.bmp" adjust noborder size 83,34 @ 0,0 bitmap obmp filename curdir() + "\fondocli.bmp" pixel adjust noborder ownd:bkeydown = { | nkey | comprueba(nkey, fil, col, obtn) } ACTIVATE WINDOW oWnd ; ON CLICK MsgInfo( "click!" )return nilfunction comprueba(nkey, fil, col, obtn) if nkey = bk_up contador++ fil := fil + contador bandera_up:=1 obtn:new(fil, col, 83, 34) obtn:paint()// msginfo('la fila es:'+str(fil)+'y el contador->'+str(contador)) endifreturn
Un saludo y muchas gracias.