Porque no funciona F2 en BTNGET?

[acuellar]

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

[mmercado]

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: Select all

//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: Select all

#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

[acuellar]

Gracias Distinguido Manuel

El F2 Funciona Perfecto

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

Saludos

Adhemar

[mmercado]

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