topic-26543

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

ACTION con BITMAP
Posted: Tue Jun 11, 2013 08:17 PM

Amigos

Porque la variable llega vacía cuando se da click sobre la imagen del BITMAP, con Intro y F3 funciona

 @05,148 GET oGet1 VAR vQue OF oBtnBar PIXEL SIZE 120,21 PICTURE '@!' FONT oFont BITMAP "F3-BUSCA" ACTION (oBrw:SetFocus(),vQue:=oGet1:oGet:Buffer,BuscaCadena(vQue,oBrw) )
      
   oGet1:lAdjustBtn:=.T.;oGet1:cToolTip:="F3 siguiente"; oGet1:bKeyDown:={ |nKey| if( nKey=VK_F3 .or. nKey=13,Eval( oGet1:bAction ), Nil ) }

Function BuscaCadena(vQue,oBrw)
   ?vQue //Si doy click sobre la imagen llega vacia 
Return

Gracias por la ayuda.

Saludos,

Adhemar

Saludos,

Adhemar C.

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: ACTION con BITMAP
Posted: Wed Jun 12, 2013 12:33 PM

Se compilas en \samples\TESTGET3.PRG funciona?

salu2

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: ACTION con BITMAP
Posted: Wed Jun 12, 2013 06:05 PM

Gracias Karinha

Efectivamente funciona el TestGet3

En mi caso NO, me parece que es porque esta en un BUTTONBAR

Saludos,

Adhemar

Saludos,

Adhemar C.

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: ACTION con BITMAP
Posted: Thu Jun 13, 2013 01:30 AM

Adhemar,
He probado tu codigo en una BUTTONBAR y funciona bien si le omites "vQue:=oGet1:oGet:Buffer"

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: ACTION con BITMAP
Posted: Thu Jun 13, 2013 04:58 PM

Gracias Francisco, por ahí iba el problema.

Lo coloque ahí porque no me daba el INTRO ahora lo baje y funciona de las 3 maneras.

Code (fw): Select all Collapse

 oGet1:lAdjustBtn:=.T.;oGet1:cToolTip:="F3 siguiente"; oGet1:bKeyDown:={ |nKey| if( nKey=VK_F3 .or. nKey=13,(vQue:=oGet1:oGet:Buffer,Eval( oGet1:bAction )), Nil ) }

Saludos,

Adhemar

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion