Popup calculator for Windows apps. Updated for 19.1

[Michael Mullan]

This is a popup calculator originally written by Finn Kristensen in 2000.

It's been patched up a bit over the years, and I've cleaned it up for DF 19.1

  on_key KEY_CTRL+KEY_L send activate_fkCalc

allows you to start with a hot_key

or you can us it as a prompt

       Object oDealBill_PPG_charged is a dbForm
            Entry_Item DealBill.PPG_charged
            Set Location to 19 242
            Set Size to 13 78
            Set Label to "Dlr Price PG:"
            Set Label_Justification_Mode to JMode_Top
            Set Label_Col_Offset to 0
            Set Prompt_Button_Mode to PB_PromptOn
            Set Prompt_Object to ghocalculator
        End_Object

FKCALC.PKG
MM

[Mike Cooper]

Thanks Michael

[AnnaM]

Hi Michael,

in the code of pkg is missed a parameter in the bt_paste button.

    Object btn_paste is a Button
        Set Label    to fkCalc_close_txt // Luk
        Set Size     to 14 52
        Set Location to 46 31
        Set peAnchors to anBottomLeft
        Procedure onClick
            Integer iDelMod iItem iFile
            Get Delegation_Mode of (piObj(Self)) to iDelMod
            Set Delegation_Mode of (piObj(Self)) to no_delegate_or_error
            Get Current_Item of (piObj(Self)) to iItem
            Get data_file of (piObj(Self))  iItem to iFile
            If (iFile) Begin
                Set Changed_Value of (piObj(Self))  iItem to (Value(Num,0))
            End
            Else Begin
                Set Value         of (piObj(Self))  iItem to (Value(Num,0))
            End
            Set Delegation_Mode of (piObj(Self)) to iDelMod
            Send Close_Panel
        End_Procedure
    End_Object

Best Regards

AnnaM

[Michael Mullan]

Thanks.

MM