Results 1 to 4 of 4

Thread: Popup calculator for Windows apps. Updated for 19.1

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Join Date
    Feb 2009
    Location
    Queens, NY, NY
    Posts
    6,471

    Default Popup calculator for Windows apps. Updated for 19.1

    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

    Code:
      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

    Code:
    
    
    Code:
           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
    Michael Mullan.
    Danes Bridge Enterprises.

    ++++++++++++++++++++++++++++
    There is just today. Tomorrow is a concept
    that is mostly theoretical. -- GM Wylie
    ++++++++++++++++++++++++++++

  2. #2
    Join Date
    Feb 2009
    Location
    Castlegar, BC Canada
    Posts
    3,661

    Default Re: Popup calculator for Windows apps. Updated for 19.1

    Thanks Michael

  3. #3
    Join Date
    Oct 2019
    Posts
    1

    Default Re: Popup calculator for Windows apps. Updated for 19.1

    Hi Michael,

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

    Code:
        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

  4. #4
    Join Date
    Feb 2009
    Location
    Queens, NY, NY
    Posts
    6,471

    Default Re: Popup calculator for Windows apps. Updated for 19.1

    Thanks.

    MM
    Michael Mullan.
    Danes Bridge Enterprises.

    ++++++++++++++++++++++++++++
    There is just today. Tomorrow is a concept
    that is mostly theoretical. -- GM Wylie
    ++++++++++++++++++++++++++++

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •