Desaparece el boton en el get...

[Andrés González]

Quiero implementar el botón del get para activar la clausula ACTION en mi programa. Hice un sencillo ejemplo que funciona de maravilla al compilarlo con la misma versión FW 8.11. Pero me ocurre algo raro cuando lo incluyo en mi versión ya que dicho botón desaparece. Quiero decir que los dos están compilados con la misma versión y el mismo ejemplo sin cambiar nada lo incluyo en mi versión que es mas compleja y desaparece por completo el botón del get. Alguien sabe si alguna otra cosa influye para que desaparezca dicho botón en el get. Os dejo el ejemplo:

Code: Select all  Expand view

#include "FiveWin.ch"

Function Alta()

   Local oDlg, oGet, ;
         cVar  := Space( 10 )

   DEFINE DIALOG oDlg  ICON oIcon

   @ 1, 5  GET oGet VAR cVar OF oDlg ACTION msginfo("Action") SIZE 59, 10
   
   ACTIVATE DIALOG oDlg CENTERED

Return nil

 

¿Alguien puede hacer la prueba compilándolo primero solo y luego incluido en su aplicación compleja?
Me temo que algo influye para que no aparezca dicho botón.

[Pedro]

Hola Andres
No veo tu bitmap de botón en el ejemplo, yo lo tengo así

Code: Select all  Expand view

REDEFINE GET oGet[1] VAR aDatSer[1] ID 201  PICTURE "99999" ;
             BITMAP "BUSCAR1" ACTION (aDatSer[1]:= BusSCli(oDClie,oDlg),;
             oGet[1]:Refresh()  ) ;
             Valid CliSerN(oDlg,nEvent);
             OF oDlg UPDATE
 

(el bitmap BUSCAR1 lo tengo en recursos)

[Andrés González]

Pedro el BITMAP solo es para si quieres colocar uno determinado. Si pones la clausula ACTION ya te coloca por defecto un boton con tres puntos en el interior. Si compilas mi ejemplo veras que automáticamente te lo coloca sin nada mas. El problema es que algo mas le afecta cuando entra en juego el resto de código y no se a que se puede deber. Por eso pedía que alguien haga la prueb para ver que es lo que puede estar sucediendo ya que compilo con el mismo compilador el FW8.11 pero uno es simplemente esas lineas y el otro es uniéndolo al programa que tengo. Funciona correctamente igual que antes solo que no me saca el boton.
P.D.:Lo raro es que me compilara bien y no me generar ningún error, ya que el anterior tGet no tiene ni el ACTION ni el BITMAP...

[Andrés González]

Mil disculpas, el problema ha sido mio ya que desde mi aplicación compilaba directamente un tGet antiguo que tenia modificado para que cuando tiene el foco me tome el color amarillo. El cual no tiene la clausula ACTION implementada. Lo dicho anuladas las pruebas ya que todo se debe a un error mio.