FiveTech Support Forums

 

    // Testing GETs

    #include "FiveWin.ch"
    #define WM_SYSCOMMAND 0x0112
    #define SC_CLOSE 0xF060

    function Main()
       LOCAL oDlg, oGet
       local oGet1, oGet2
       LOCAL cCad := "Testing    " // pad("Testing Gets",40)
       LOCAL nNum := 0
       LOCAL dDat := Date()

       Set century On
       Set Date Ansi
       Set Date format "mm/dd/yyyy"

       SET _3DLOOK ON

      DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION

       @ 1,    2 SAY "Text..:" OF oDlg
       @ 1,    6 GET oGet VAR cCad OF oDlg SIZE 60, 10 COLOR "W/G" PICTURE "@K"

       @ 1.8,  2 SAY "Number:" OF oDlg
       @ 2,    6 GET oGet1 VAR nNum OF oDlg SIZE 60, 10 PICTURE "9999999.99"

       @ 2.6,  2 SAY "Date:" OF oDlg
       @ 3,    6 GET oGet2 VAR dDat PICTURE "@E" OF oDlg SIZE 60, 10  // "@D"
       
       @ 3,    7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION .T. //oDlg:End()
       @ 3,   16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL
       
       // TGet():SetColorFocus( nRGB( 200, 120, 120 ) )

       ACTIVATE DIALOG oDlg CENTERED VALID ( HideInputPanel(), .T. ) ON INIT ControlsDlg( oDlg )

    return nil

    //------------------------------------------------------------------------//

    FUNCTION ShowInputPanel( oDlg )
    Local hWndInputPanel
    //hWndInputPanel:= FindWindow("IPTip_Main_Window")
    //if Empty( hWndInputPanel )
       ShellExecute( oDlg:hWnd, "open", "C:\\Program Files\\Common Files\\microsoft shared\\ink\\tabtip.exe")
    //endif
    RETURN NIL

    FUNCTION HideInputPanel()
    Local hWndInputPanel
    hWndInputPanel := FindWindow("IPTip_Main_Window")
    if !Empty( hWndInputPanel )
       PostMessage( hWndInputPanel, WM_SYSCOMMAND, SC_CLOSE, 0 )
    endif
    Return nil

    Function ControlsDlg( oDlg )
    Local x
    Local nLen := Len( oDlg:aControls )
    Local aObj := { "TGET" }
    For x = 1 to nLen
          if !Empty( Ascan( aObj, Upper( oDlg:aControls[x]:ClassName() ) ) )
             WITH OBJECT oDlg:aControls[x]
                :bGotFocus   := {   | o |  ShowInputPanel( oDlg ) }
                :bLostFocus  := {   | o |  HideInputPanel() }
            ENDWITH
          endif
    Next x
    Return nil

#include "common.ch"
#include "ot4xb.ch"
#define SW_NORMAL           1

* --------------------------------------- *

PROCEDURE Main()
   SHELLOPENFILE( "C:\WINDOWS\system32\" , "osk.exe")
RETURN

FUNCTION SHELLOPENFILE( cPath, cFile, cPara )
LOCAL lSuccess
LOCAL bSaveError
LOCAL oError
LOCAL Retvar := .F.

   DEFAULT cPath TO ""
   DEFAULT cFILE TO ""
   DEFAULT cPara TO ""

   IF Is64Bit()
      @ Kernel32:Wow64EnableWow64FsRedirection( .F. )     // disable bevor API Call
   ENDIF

   bSaveError := ERRORBLOCK( { | e | BREAK( e ) } )
   BEGIN SEQUENCE

      lSuccess := @SHELL32:ShellExecuteA( APPDESKTOP() :GetHWND(), ;
                                       "open", ;
                                       cPath + cFile, ;
                                       cPara, ;
                                       CURDIR(), ;
                                       SW_NORMAL )
      DO CASE
         CASE lSuccess > 32                                 // OK
            Retvar := .T.
      OTHERWISE
         BREAK
      ENDCASE

   RECOVER USING oError
      ERRORBLOCK( bSaveError )
      IF !EMPTY(oError)
         MSGBOX( DosErrorMessage( oError:osCode ), "Error osCode " + LTRIM( STR( oError:osCode ) ) )
      ELSE
         MSGBOX( "Error open "+ cPath + cFile, IF(Is64Bit(),"64 Bit", "32 Bit"))
      ENDIF
   END SEQUENCE
   ERRORBLOCK( bSaveError )

   IF Is64Bit()
      @ Kernel32:Wow64EnableWow64FsRedirection( .T. )      // enable again
   ENDIF

RETURN Retvar

FUNCTION Is64Bit()
RETURN IF( FILE( "C:\WINDOWS\SysWOW64\Format.COM" ), .T., .F. )