FiveTech Software tech support forums

Code: Select all

#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