topic-32587

Posts: 470

Joined: Fri Feb 05, 2010 11:30 AM

MsgCalc en REDEFINE GET
Posted: Wed Jun 15, 2016 02:09 PM

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

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: MsgCalc en REDEFINE GET
Posted: Wed Jun 15, 2016 02:21 PM

Code (fw): Select all Collapse

   /*
   @ 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....." ) )

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: MsgCalc en REDEFINE GET
Posted: Wed Jun 15, 2016 04:01 PM

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

with Options language values and skin

with Amort calc

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: MsgCalc en REDEFINE GET
Posted: Wed Jun 15, 2016 05:45 PM

Very nice Silvio.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: MsgCalc en REDEFINE GET
Posted: Wed Jun 15, 2016 06:13 PM

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"

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: MsgCalc en REDEFINE GET
Posted: Thu Jun 16, 2016 03:42 PM

karinha wrote: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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: MsgCalc en REDEFINE GET
Posted: Thu Jun 16, 2016 03:43 PM

one my old release is on tsbutton class samples for fwppc

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: MsgCalc en REDEFINE GET
Posted: Thu Jun 16, 2016 04:06 PM

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

Gracias, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion