topic-15055

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Porque no funciona F2 en BTNGET?
Posted: Fri Mar 27, 2009 10:26 PM

Hola a todos

Alguien me puede indicar porque no funciona el la tecla F2 para ejecutar una accion en un BTNGET, tengo la libreria BTNGETX
Estoy con xHarbour 1.1 y FiveWin 9.03

Saludos

Adhemar

Saludos,

Adhemar C.

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: Porque no funciona F2 en BTNGET?
Posted: Sat Mar 28, 2009 01:51 AM

acuellar wrote:Alguien me puede indicar porque no funciona el la tecla F2 para ejecutar una accion en un BTNGET, tengo la libreria BTNGETX

Hola Adhemar:

Creo que sería conveniente para tí (yo ya lo hice en mis aplicaciones), descontinuar el uso de TBtnGet ya que en las últimas versiones de FWH la clase TGet tiene la misma funcionalidad.

Aquí te muestro un pequeño ejemplo funcional de esta nueva facilidad de FWH en la clase TGet.

Code (fw): Select all Collapse

//TestActg.prg
#include "FiveWin.ch"

Function Main()

   Local oDlg, oGet, oIcon, ;
         cVar  := Space( 10 )
   
   SetBalloon( .T. ) 
   DEFINE ICON oIcon RESOURCE "test"
   DEFINE DIALOG oDlg RESOURCE "Test" ICON oIcon

   REDEFINE GET oGet VAR cVar ID 101 ACTION msginfo( "Action" ) ;
            BITMAP "help"

   oGet:bKeyDown := { |nKey| If( nKey == VK_F2, Eval( oGet:bAction ), Nil ) }
   oGet:cToolTip := "Presiona F2"

   ACTIVATE DIALOG oDlg CENTERED

Return Nil

El archivo TestActg.rc:

Code (fw): Select all Collapse

#include "..\include\winapi.ch"

#ifdef __FLAT__
   1 24 ".\winxp\WindowsXP.Manifest"
#endif

#ifdef __64__
   1 24 "WinXP/WindowsXP.Manifest64"
#endif 

test ICON "..\icons\fivewin.ico"
help BITMAP "..\bitmaps\helpsmal.bmp"

TEST DIALOG 61, 39, 194, 119
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Testing Action Gets"
FONT 8, "Tahoma"
{
 EDITTEXT 101, 44, 25, 106, 15, WS_BORDER | WS_TABSTOP
 DEFPUSHBUTTON "OK", IDOK, 42, 96, 50, 14
 PUSHBUTTON "Cancel", IDCANCEL, 102, 96, 50, 14
}

Ponlos en la carpeta FWH\Samples y pruébalo.

Un abrazo.

Manuel Mercado

manuelmercado at prodigy dot net dot mx

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Porque no funciona F2 en BTNGET?
Posted: Sat Mar 28, 2009 03:19 PM

Gracias Distinguido Manuel

El F2 Funciona Perfecto

No se porque no muestra la imagen. solo sale el cuadrito.

Saludos

Adhemar

Saludos,

Adhemar C.

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: Porque no funciona F2 en BTNGET?
Posted: Mon Mar 30, 2009 05:09 PM

acuellar wrote:No se porque no muestra la imagen. solo sale el cuadrito.

Hola Adhemar:

A mí el ejemplo me funciona perfectamente compilado en mi carpeta c:\fwh\samples con el Buildx.bat

Prueba poniendo la ruta completa del bitmap en TestActg.rc

help BITMAP "c:\fwh\bitmaps\helpsmal.bmp"

Un abrazo.

Manuel Mercado

manuelmercado at prodigy dot net dot mx

FiveTech Support Forums

Continue the discussion