Calculator

[Otto]

The power of macros -one line of code and a powerful calculator is ready.
Best regards,
Otto









prg-file

Code: Select all  Expand view

#Include "FiveWin.Ch"

Function Main()
   Local oDlg
   Local oGet
   local cVar := space( 100 )

   DEFINE DIALOG oDlg from 0,0 to 400,400 pixel

   @ 15,15 get oGet var cVar picture "@!"  bitmap "..\bitmaps\chkyes.bmp" action( calc( @cVar ), oGet:refresh() );
      size 120,12 of oDlg pixel
   oGet:lAdjustBtn := .t.

   ACTIVATE DIALOG oDlg

return nil


function calc( cVar )
   local cTempCalc := cVar
   Try
   cVar := ALLTRIM( str( &cTempCalc ) ) + space( 100 )
   CATCH
   msginfo( "Wrong input" )
   End

return nil

rc-file

Code: Select all  Expand view

// Add this to your resources RC file

#ifdef __FLAT__
   1 24 ".\winxp\WindowsXP.Manifest"
#endif

#ifdef __64__
   1 24 "WinXP/WindowsXP.Manifest64"
#endif
 

[James Bott]

Otto,

Great contribution. Thanks.

I have a similar one somewhere for dates. You can do, +7 (same day next week), +1 (tomorrow), etc.

Regards,
James

[MdaSolution]

nice too