DESPLAZAR BTNBMP EN TIEMPO DE EJECUCION...

Posts: 8

Joined: Tue Aug 01, 2006 05:16 AM

DESPLAZAR BTNBMP EN TIEMPO DE EJECUCION...
Posted: Mon Aug 07, 2006 05:23 PM

Hola foro.

¿Se puede desplazar un btbbmp en tiempo de ejecucion?... lo he intentado con el siguiente codigo pero esto de ser novato...

Code: Select all Collapse

#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.

jmartial

Posts: 458

Joined: Tue Mar 14, 2006 07:26 PM

DESPLAZAR BTNBMP EN TIEMPO DE EJECUCION...
Posted: Mon Aug 07, 2006 05:28 PM

Juan,

Esto es incorrecto

 obtn:new(fil, col, 83, 34) 
 obtn:paint()

Para mover un control generalmente se usa el método move() y estos son sus parámetros

obtn:Move( nTop, nLeft, nWidth, nHeight, lRepaint )

Un Saludo,
Joaquín

Un Saludo,

Joaquín Martínez

Juan Zapata

Posts: 8

Joined: Tue Aug 01, 2006 05:16 AM

ok
Posted: Mon Aug 07, 2006 05:50 PM

Muchas gracias Joaquin. Todo correcto. :wink:

Nota: He estado buscando por todo manual, en la clase btnbmp... etc, ¿existe algun manual mas a fondo de todas estas funciones dentro de estos comandos...? Gracias, nuevamente.