Use Windows.pkg
Use MessageQueueHelpers.pkg
Use THDialog.pkg

Object oTextEncodingDialog is a ModalPanel
    Set Size to 76 138
    Set Label to "Change Text Encoding"
    Set piMinSize to 76 138
    Set Location to 44 47
    Set piMaxSize to 150 238
    //Set Locate_Mode to POPUP_LOCATE -- locate mode isn't smart enough
    Property Boolean pbCancel

    Set peAnchors to anAll
    Set Border_Style to Border_Thick

    Object oTextEncodingGroup is a RadioGroup
      Set Label to "Text Encoding"
      Set Size to 57 63
      Set Location to 10 8
      Set Status_Help to "Choose Text encoding to use"
      Set peAnchors to anTopLeftRight
   
      Object oUTF8 is a Radio
          Set Label to "UTF8"
          Set Location to 10 10
      End_Object
   
      Object oOEM is a Radio
          Set Label to "OEM"
          Set Location to 25 10
      End_Object
   
      Object oANSI is a Radio
          Set Label to "ANSI"
          Set Location to 40 10
      End_Object
   
    End_Object

    Object oConvertText_cb is a CheckBox
      Set Size to 10 50
      Set Location to 19 79
      Set Label to "Convert Text"
      Set psToolTip to "Also convert the text from the old to the new encoding"
      Set peAnchors to anTopRight
      Set Checked_State to True
    End_Object

    Object oOKBtn is a Button
      Set Label to "&OK"
      Set Location to 37 79
      Set Default_State to True
      Set peAnchors to anTopRight

      Procedure OnClick
        Send Close_Panel
      End_Procedure
    End_Object

    Object oCancelBtn is a Button
      Set Label    to "Cancel"
      Set Location to 53 79
      Set peAnchors to anTopRight

      Procedure OnClick
          Set pbCancel to True
          Send Close_Panel
      End_Procedure

    End_Object

    On_Key Key_Alt+Key_L Send Activate  of oLineFm
    On_Key Key_Alt+Key_O Send KeyAction of oOKBtn
    On_Key kCancel       Send KeyAction of oCancelBtn

    Procedure RequestEncodingDetails Integer ByRef iEncoding Boolean ByRef bConvertText
        Boolean bCancel
        Integer iRadio

        Set pbCancel    To False
        // iEncoding=1 "UTF8"
        // iEncoding=2 "OEM"
        // iEncoding=3 "ANSI"
        Set Current_Radio of oTextEncodingGroup to (iEncoding-1)
        Send Popup
        Get pbCancel to bCancel
        If (not(bCancel)) Begin
          Get Current_Radio Of oTextEncodingGroup To iRadio
          Move (iRadio+1) to iEncoding
          Get Checked_State of oConvertText_cb to bConvertText
        End
        Else Begin
          Move -1 to iEncoding
        End
    End_Procedure

//    #IFDEF TH_TRANSLATION
//    Procedure Translate
//        Set Label               to gILanguage[848]
//        Set Label of oLineFm    to gILanguage[849]
//        Set Label of oOKBtn     to gILanguage[850]
//        Set Label of oCancelBtn to gILanguage[851]
//    End_Procedure
//    #ENDIF

//    Procedure Activating
//        Forward Send Activating
//        #IFDEF TH_TRANSLATION
//        Send Translate
//        #ENDIF
//    End_Procedure

End_Object