MsgCalc en REDEFINE GET

[TOTOVIOTTI]

Amigos, por ahí les pregunto algo muy simple pero que no lo
puedo resolver...
Como harían esto con un REDEFINE GET...

@ 10,10 GET nVal PICTURE "999,999,999.99" SIZE 80,12 PIXEL OF oDlg ;
RIGHT ACTION ( ::cText := MsgCalc( nVal ) ) ;
BITMAP "d:\fwh\bitmaps\16x16\calc.bmp"

Gracias!
Roberto

[karinha]

Code: Select all  Expand view

   /*
   @ 10,10 GET nVal PICTURE "999,999,999.99" SIZE 80,12 PIXEL OF oDlg ;
   RIGHT ACTION ( ::cText := MsgCalc( nVal ) ) ;
   BITMAP "d:\fwh\bitmaps\16x16\calc.bmp"
   */

   LOCAL oGet1


   // CALC.BMP en el archivo de recursos(resources) .RC o .RES
   REDEFINE GET oGet1 VAR nVal  ID 101 BITMAP "CALC" UPDATE OF oDlg ;
            COLORS CLR_BLACK. CLR_WHITE FONT oFont TRANSPARENT       ;
            ACTION( msginfo( "YOUR ACTION....." ) )
 



[Silvio.Falconi]

On www.eoeo.it you can download my calc with ribbon simulation


with Options language values and skin


with Amort calc

[karinha]

Very nice Silvio.

[FranciscoA]

Hola, intentalo asi:
REDEFINE GET oGet VAR nVal PICTURE "999,999,999.99" ID 4000 OF oDlg ;
ACTION ( oGet:VarPut( MsgCalc( nVal )) , oGet:Refresh() ) ;
BITMAP "d:\fwh\bitmaps\16x16\calc.bmp"

[Silvio.Falconi]

Very nice Silvio.

I sent msgcalc.prg corrected to Antonio last 4 years ago because Msgcalc have problem on new windows system ( from vista)
then I saw on the last fwh Packages Antonio not change msgcalc.prg

[Silvio.Falconi]

one my old release is on tsbutton class samples for fwppc

[karinha]

Maestro Antonio, donde está la version de MsgCalc.prg cambiado por Silvio Falconi?

Gracias, saludos.