Event ON CHANGE Control TAB

Discuss anything else that does not suite other forums.

Moderator: Rathinagiri

Post Reply
jouhmg
Posts: 26
Joined: Thu Jul 31, 2008 3:22 am

Event ON CHANGE Control TAB

Post by jouhmg »

English(poor)

Using HMG 2.6.0.
With the following code I have not had any problems
up to version 2.6.0:

DEFINE TAB Tab01 OF Win01 AT nRow, nCol;
WIDTH 652 HEIGHT 310;
FONT "Tahoma" SIZE 9 BOLD;
NOTABSTOP;
VALUE nPage;
ON CHANGE (|| InicializarPage ())

But, starting with Version 2.6.1, application crashes.

With the following code will work, but I did not serve
I can not use the Event ON CHANGE:

DEFINE TAB Tab01 OF Win01 AT nRow, nCol;
WIDTH 652 HEIGHT 310;
FONT "Tahoma" SIZE 9 BOLD;
NOTABSTOP;
VALUE nPage

Just in Version 2.6.1 was performed on a Fixed
the Event (ON CHANGE)

Español

Uso HMG 2.6.0.
Con el siguiente código no he tenido problemas
hasta la versión 2.6.0:

DEFINE TAB Tab01 OF Win01 AT nRow, nCol;
WIDTH 652 HEIGHT 310;
FONT "Tahoma" SIZE 9 BOLD;
NOTABSTOP;
VALUE nPage;
ON CHANGE {|| InicializarPage() }

Pero, a partir de la Versión 2.6.1, la aplicación se cuelga.

Con el siguiente código se soluciona, pero no me sirve
ya que no puedo usar el Evento ON CHANGE:

DEFINE TAB Tab01 OF Win01 AT nRow, nCol;
WIDTH 652 HEIGHT 310;
FONT "Tahoma" SIZE 9 BOLD;
NOTABSTOP;
VALUE nPage

Justamente en la Versión 2.6.1 se realizó un Fixed en
dicho Evento (ON CHANGE del TAB)

Gracias y Saludos
jouhmg
User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Re: Event ON CHANGE Control TAB

Post by esgici »

jouhmg wrote: ...
Using HMG 2.6.0. With the following code I have not had any problems
up to version 2.6.0:
...
But, starting with Version 2.6.1, application crashes.
...
Hola jouhmg

Sorry, I can't simulate your "crashe" situation.

Could you change / modify following working sample to demonstrate the problem ?

Code: Select all

#include "minigui.ch"

PROC Main()

   DEFINE WINDOW Test AT 0,0 WIDTH 680 HEIGHT 360 MAIN

      DEFINE TAB Tab01 ; 
         AT 10, 10 ; 
         WIDTH 652 HEIGHT 310 ; 
         FONT "Tahoma" SIZE 9 BOLD ;
         VALUE 1 ;
         NOTABSTOP; 
         ON CHANGE MsgExclamation( "Changed" )
         
        PAGE 'Page &1' 

           @ 100,250 BUTTON Button_1 CAPTION "Test" WIDTH 50 HEIGHT 50 ACTION MsgInfo('Test!')

        END PAGE

        PAGE 'Page &2' 

           DEFINE RADIOGROUP R1
              ROW   100
              COL   100
              OPTIONS   { '1','2','3' }
              VALUE 1
           END RADIOGROUP

        END PAGE
         
      END TAB // Tab01
      
   END WINDOW // MAIN

   Test.CENTER
   Test.ACTIVATE
   
RETU // Main()
Saludos

--

Esgici
Viva INTERNATIONAL HMG :D
User avatar
luisvasquezcl
Posts: 1258
Joined: Thu Jul 31, 2008 3:23 am
Location: Chile
Contact:

Re: Event ON CHANGE Control TAB

Post by luisvasquezcl »

Hola,
por que no te ahorras el problema y en vez de pasarle un bloque de codigo le pasas solo la funcion?
no entiendo cual es el motivo de pasarle un bloque de codigo.
Simplemente, ON CHANGE InicializarPage()
Saludos,
jouhmg
Posts: 26
Joined: Thu Jul 31, 2008 3:22 am

Re: Event ON CHANGE Control TAB

Post by jouhmg »

English(poor)

Hi:

Today I was able to fix it.
Removing Win.Tab.Value: = nTabPage inside the InicializarPage() Function.

Thanks for your help.(Esgici and Luis)

Español

Hola:

Hoy he podido solucionarlo.
Quitando Win.Tab.Value := nTabPage dentro de la Function InicializarPage().

Gracias por vuestra ayuda a Esgici y Luis.
Post Reply