HMGforum.com

Hello my friends,

Well, some time later... I create a calculator that can be added into my aplications with HMG. This calc can return the value of operation and/or return the same value to Clipboard.

For me it is very useful, i hope that be for you too.

The original source, was of Marcos Antonio Gambeta. I get it your sample and did a lot of new little functions, and update this for my needs.

In fisrt file "Calc Lib.RAR" you will find the source for recompile and create your lib. You can add the file "Calc.PRG" in you HMG project, if you not want use a lib for that.

In file "Calc.Rar", have a little project with HMG IDE for show this.

My best regards,

PS: Sorry my bad english

Super! Thanks Vanguarda.

Muito boa esta LIB.

Great Vanguarda! Thanks for sharing!!
It can turn out to be handy tool for our applications.
BTW, we are having one special thread where we are uploading our UDFs, this routine should be incorporated there also for future reference.

Regards,

Swapan

Super work! You saved a lot of my time! I've got such a calculator in my old dos programs, but no time to move it to windows. Now, it's ready. Best regards,

Marek

Hi all,

Thanks all friends for your kind words.

I´m so glad for this lib be usefull for you as was useful for me.

My best regards,

Hello Vanguarda
The calculator we needed to put in the applications
you report a mistake that I detected in the MC Button pointing
I think this part of source code.
*----------------------------------------------*
//---------------------------------------------------------------------------//
// This function clean the variable used for add value into memory
//---------------------------------------------------------------------------//
Static Function CancelMemo_Click
nMemo := 0
SetProperty("Form1","btnMS","FontBold",.F.)
Calc.ReadHide.SetFocus()
Return Nil
*-----------------------------------------------*
Also if you followed keyboard operations ie without
do it for the mouse all buttons work but want ciando
make no pretense mutiplicación this keyboard is
example 10 * 5 + = 10 when 50 would give
Regards

Hola Vanguarda
La calculadora nos hacia falta para poner en la aplicaciones
te reporto un error que he detectado en el Boton MC que apunta
yo creo a esta parte de codigo fuente.
Tambien si haces operaciones por teclado seguidas es decir sin
hacerlo por el raton todas las teclas funcionan pero ciando quieres
hacer una mutiplicación esta no finciona por teclado es decir
ejemplo 10 * 5 + = 10 cuando tendria de dar 50

Un cordial saludo

Mustafa

You all right my friend Mustafa.

It is my mistake, please so kind, make download of the new version in bellow, and recompile the library.

Thanks for the info.

My best regards

Hello friend Vanguarda
I too have made the correction in
this piece from the list changing "Form_1" by
"Calc" and seems to work.

//---------------------------------------------------------------------------//
// This function clean the variable used for add value into memory
//---------------------------------------------------------------------------//
Static Function CancelMemo_Click
nMemo := 0
SetProperty("Calc","btnMS","FontBold",.F.) // Error -- > Form1
Calc.ReadHide.SetFocus()
Return Nil

I have made an example to get the Calculator
simply from a menu.
Regards
*----------------------*
Hola amigo Vanguarda
Yo tambien he efectuado la correccion en
este trozo del listado cambiando "Form_1" por
"Calc" y parece que funciona.
He efectuado un ejemplo para llamar la Calculadora
sencillamente desde un menu.
Un cordial saludo

Mustafa

Hi Vanguarda! Thanks for very good and useful thing!