¿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 view RUN
#include "FWCE.ch"
#INCLUDE "WINAPI.CH"
#define bk_left 37
#define bk_right 39
#define bk_down 40
#define bk_up 38
static ownd, bandera_up, contador
function 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 nil
function 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))
endif
return
Un saludo y muchas gracias.
