Cancelar con BTNBMP

Cancelar con BTNBMP

Postby jmartial » Mon Dec 14, 2015 8:12 pm

Hola Antonio,

Para que no evalúe los valids de los controles de un diálogo, en el botón de salir se pone la clausula CANCEL.

Pero al sustituir un TBUTTON por un TBTNBMP para poder usar colores, me encuento que no existe la clausula CANCEL y además no sé como hacer la misma funcionalidad.


¿Se te ocurre como puedo cancelar con un TBTNBMP?
Un Saludo,
Joaquín Martínez
jmartial
 
Posts: 458
Joined: Tue Mar 14, 2006 7:26 pm

Re: Cancelar con BTNBMP

Postby Antonio Linares » Mon Dec 14, 2015 8:31 pm

Joaquín,

Este ejemplo basado en el que te mostré para probar los BTNBMPs funciona bien:

Code: Select all  Expand view
#include "fwce.ch"

function Main()

   local oDlg, oBtn
   local cVar := "This is a test"

   DEFINE DIALOG oDlg RESOURCE "Test"

   REDEFINE GET oGet VAR cVar ID 110 OF oDlg VALID .F.

   REDEFINE BTNBMP oBtn ID 1 OF oDlg PROMPT "Ok" ;
      ACTION ( MsgBeep(), oDlg:End() )

   ACTIVATE DIALOG oDlg ;
      ON INIT oBtn:SetColor( CLR_WHITE, CLR_BLUE )

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42097
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Cancelar con BTNBMP

Postby jmartial » Mon Dec 14, 2015 11:04 pm

Antonio,

Pero no es el cancel para todos los gets del diàlogo,
que cada uno tiene un valid diferente.

He visto el fuente de Tbutton y la data lcancel. Eso falta en la clase tbtnbmp y sería muy fàcil implementarlo.

Yo podría modificar la clase, peeo lo suyo sería que esa modificaciòn fuera dentro de la librería.
Un Saludo,
Joaquín Martínez
jmartial
 
Posts: 458
Joined: Tue Mar 14, 2006 7:26 pm

Re: Cancelar con BTNBMP

Postby Antonio Linares » Tue Dec 15, 2015 5:41 am

Joaquín,

Si eres tan amable, modifica la clase y me la envias y la incluyo en FWPPC.

Hay muy pocos usuarios de FWPPC y no hay tiempo para todo, gracias :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42097
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Cancelar con BTNBMP

Postby jmartial » Tue Dec 15, 2015 11:42 am

Antonio,

Ya he implementado la clausula CANCEL en FWCE.ch y en BTNBMP.prg

Funciona de lujo.

DIme como te lo hago llegar para que lo incluyas en la LIB.
Un Saludo,
Joaquín Martínez
jmartial
 
Posts: 458
Joined: Tue Mar 14, 2006 7:26 pm

Re: Cancelar con BTNBMP

Postby Antonio Linares » Tue Dec 15, 2015 9:54 pm

Joaquín,

Por favor envíame por email los PRGs y CH modificados y los incluiré en el repositorio de FWPPC

La próxima versión que se publique de FWPPC incluirá tus cambios.

Muchas gracias :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42097
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Pocket PC

Who is online

Users browsing this forum: No registered users and 8 guests