The Hammer » VDF Splat

//TH-Header

//*****************************************************************************************

// Copyright (c)  2004 Debug Project

// All rights reserved.

//

// $FileName    : cOutputWindow package

// $ProjectName : DebugAssistent

// $Authors     : Wil van Antwerpen

// $Created     : 27.07.2004  09:51

// $Type        : (C)opyright 2004 Antwise Solutions

//

// Contents:

//

//*****************************************************************************************

//TH-RevisionStart

//TH-RevisionEnd

// Use cOutputWindow.h

Use cWinFunc.pkg

Use cVirtualKeys.pkg

Use FindWindows.pkg

Integer ghoOutputWindow

Define IDC_EDIT1 For 1002   // == $3EA

Define IDC_EDIT2 For 1003   // == $3EA

Define IDC_EDIT3 For 1004   // == $3EA

Class cOutputWindow Is a dfObject

  Procedure Construct_Object

    Forward Send Construct_Object

    Property String  psCaption         Public "Output Window"

    Property Integer phWndOutputWindow Public 0

    Property Integer phWndEditBox      Public 0

    Property Integer phWndCloseButton  Public 0

    Property Integer phWndClearButton  Public 0

  End_Procedure // Construct_Object

  // This function will find the current output window of this

  // application and set all the window handles to the

  // current outputwindow

  // If there is no output window

  Function OutputWindowConnected Returns Boolean

    Integer hDlg         // Variable that stores the output dialog handle

    Handle  hWndEdit     // Variable that stores the edit window handle

    Handle  hWndCloseBtn

    Handle  hWndClearBtn //

    Handle  hWndChild

    DWORD   dwStyle      // Variable to manipulate the window style

    Integer bTest        // Variable to test the results

    Boolean bOk

    String  sCaption

    Get psCaption To sCaption

    Move (False) To bOk

    // Get handle of output window dialog.

    Move ( FindWindow("", sCaption) ) To hDlg

    If (hDlg=0) Begin

      // no output window, create it.

      Showln ""

    End

    Move ( FindWindow("", sCaption) ) To hDlg

    If (hDlg <> 0) Begin

      Get FindNextChildWindowByClass hDlg 0 'Button' To hWndChild

      Move hWndChild To hWndCloseBtn

      Get FindNextChildWindowByClass hDlg hWndChild 'Button' To hWndChild

      Move hWndChild To hWndClearBtn

      Get FindNextChildWindowByClass hDlg hWndChild 'Edit' To hWndChild

      Move hWndChild To hWndEdit

      Move (True) To bOk

      Set phWndOutputWindow To hDlg

      Set phWndEditBox      To hWndEdit

      Set phWndCloseButton  To hWndCloseBtn

      Set phWndClearButton  To hWndClearBtn

    End

    Else Begin

      Set phWndOutputWindow To 0

      Set phWndEditBox      To 0

      Set phWndCloseButton  To 0

      Set phWndClearButton  To 0

    End

    Function_Return (bOk)

  End_Function // OutputWindowConnected

  // Clears the output window

  Procedure Clear

    Handle  hWnd

    Handle  hWndClearBtn

    Integer iVoid

    If (OutputWindowConnected(Self)) Begin

      Get phWndOutputWindow To hWnd

      Get phWndClearButton  To hWndClearBtn

      Move (SetForegroundWindow(hWnd)) To iVoid

      Move (SetFocus(hWndClearBtn)) To iVoid

      If (ghoVirtualKeyboard) Begin

        //  VK_RETURN

        Send KeyStroke Of ghoVirtualKeyboard VK_LBUTTON 0 1

        Send KeyStroke Of ghoVirtualKeyboard VK_LBUTTON 1 1

      End

    End

  End_Procedure // Clear

  Procedure Beginning_Of_Data

    If (OutputWindowConnected(Self)) Begin

      Send SetToForegroundWindow

      If (ghoVirtualKeyboard) Begin

        //Send KeyStroke Of ghoVirtualKeyboard VK_CONTROL 0 1

        //Send KeyStroke Of ghoVirtualKeyboard VK_HOME 0 1

        //Send KeyStroke Of ghoVirtualKeyboard VK_HOME 1 1

        //Send KeyStroke Of ghoVirtualKeyboard VK_CONTROL 1 1

        Send Key Of ghoVirtualKeyboard (Key_Ctrl+Key_Home)

      End

    End

  End_Procedure // Beginning_Of_Data

  Procedure End_Of_Data

    If (OutputWindowConnected(Self)) Begin

      Send SetToForegroundWindow

      If (ghoVirtualKeyboard) Begin

        //Send KeyStroke Of ghoVirtualKeyboard VK_CONTROL 0 1

        //Send KeyStroke Of ghoVirtualKeyboard VK_HOME 0 1

        //Send KeyStroke Of ghoVirtualKeyboard VK_HOME 1 1

        //Send KeyStroke Of ghoVirtualKeyboard VK_CONTROL 1 1

        Send Key Of ghoVirtualKeyboard (Key_Ctrl+Key_End)

      End

    End

  End_Procedure // End_Of_Data

  Function Line_Count Returns Integer

    Integer iCount

    Handle  hWndEdit

    If (OutputWindowConnected(Self)) Begin

      Get phWndEditBox To hWndEdit

      If (hWndEdit) Begin

        //Get Windows_Message iMsg wParam lParam

        Move (SendMessage(hWndEdit,EM_GETLINECOUNT,0,0)) To iCount

        Decrement iCount

      End

    End

    Function_Return iCount

  End_Function // Line_Count

  Procedure Close_Panel

    Handle  hWnd

    Integer iVoid

    Get phWndOutputWindow To hWnd

    If (hWnd) Begin

      Move (SendMessage(hWnd,WM_CLOSE,0,0)) To iVoid

    End

  End_Procedure // Close_Panel

  // Switch to multibyte character set

  // This can be used for for ex. displaying the Euro sign

  Procedure MultiByteCharacterSet

    Handle  hWndEdit     // Variable that stores the edit window handle

    DWORD   dwStyle      // Variable to manipulate the window style

    Integer iVoid        // Variable to test the results

    If (OutputWindowConnected(Self)) Begin

      Get phWndEditBox To hWndEdit

      If (hWndEdit <> 0) Begin

        // Change the style - remove ES_OEMCONVERT!

        Move (GetWindowLong(hWndEdit, GWL_STYLE)) To dwStyle

        If (dwStyle Iand ES_OEMCONVERT);

            Move (dwStyle - ES_OEMCONVERT) To dwStyle

        Move (SetWindowLong(hWndEdit, GWL_STYLE, dwStyle)) To iVoid

      End

    End

  End_Procedure // MultiByteCharacterSet

  // Property Oem_Translate_State (can only be set)

  // Default: True

  // If set to true the text is converted from the Windows

  // Character Set To the OEM Character Set And then back

  // To the Windows Character Set.

  //

  // Set the OEM_Translate_State To False if you want to display

  // multibyte characters such as the EURO

  Procedure Set Oem_Translate_State Boolean bState

    Handle  hWndEdit     // Variable that stores the edit window handle

    DWORD   dwStyle      // Variable to manipulate the window style

    Integer iVoid        // Variable to test the results

    If (OutputWindowConnected(Self)) Begin

      Get phWndEditBox To hWndEdit

      If (hWndEdit <> 0) Begin

        // Change the style - remove ES_OEMCONVERT!

        Move (GetWindowLong(hWndEdit, GWL_STYLE)) To dwStyle

        If (bState) Begin

          Move (dwStyle Ior ES_OEMCONVERT) To dwStyle

        End

        Else Begin

          If (dwStyle Iand ES_OEMCONVERT);

              Move (dwStyle - ES_OEMCONVERT) To dwStyle

        End

        Move (SetWindowLong(hWndEdit, GWL_STYLE, dwStyle)) To iVoid

      End

    End

  End_Procedure // Oem_Translate_State

  // Property OnTopState, can only be set

  // If set to true the outputwindow will put itself on top of

  // all the the other windows, including other programs.

  // If set to false the topmost setting will be reset and the

  // output window will behave as any other window.

  Procedure Set OnTopState Boolean bState

    Integer iVoid

    Integer tmMode

    Handle  hWnd

    If (OutputWindowConnected(Self)) Begin

      Get phWndOutputWindow To hWnd

      If bState Move HWND_TOPMOST To tmMode

      Else Move HWND_NOTOPMOST To tmMode

      //Set MyTopMost_State To State                              x  y  cx cy

      Move (SetWindowPos(hWnd, tmMode, 0, 0, 0, 0, (SWP_NOMOVE Ior SWP_NOSIZE))) To iVoid

    End

  End_Procedure // Set OnTopState

  // Brings the outputwindow to the foreground, the focus is put on

  // the editbox

  Procedure SetToForegroundWindow

    Integer iVoid

    Handle  hWnd

    Handle  hWndEdit

    If (OutputWindowConnected(Self)) Begin

      Get phWndOutputWindow To hWnd

      Get phWndEditBox      To hWndEdit

      Move (SetForegroundWindow(hWnd)) To iVoid

      Move (SetFocus(hWndEdit)) To iVoid

    End

  End_Procedure // SetToForegroundWindow

  Procedure SetOutputWindowToMultiByteCharacterSet

    Integer hDlg         // Variable that stores the output dialog handle

    Handle  hWndEdit     // Variable that stores the edit window handle

    Handle  hWndCloseBtn

    Handle  hWndClearBtn //

    Handle  hWndChild

    DWORD   dwStyle      // Variable to manipulate the window style

    Integer bTest        // Variable to test the results

    // Get handle of output window dialog.

    Move ( FindWindow("", "Output Window") ) To hDlg

    If (hDlg <> 0) Begin

        Showln "The windows dialog = "(IntToHex(hDlg))

        //// Get handle of edit control that displays output.

        Move (GetDlgItem(hDlg, IDC_EDIT1)) To hWndEdit

        Showln "The correct EDIT handle is " (IntToHex(hWndEdit))

        //If (hWndEdit <> 0) Begin

        //    // Change the style - remove ES_OEMCONVERT!

        //    Move (GetWindowLong(hWndEdit, GWL_STYLE)) To dwStyle

        //    If (dwStyle Iand ES_OEMCONVERT);

        //        Move (dwStyle - ES_OEMCONVERT) To dwStyle

        //    Move (SetWindowLong(hWndEdit, GWL_STYLE, dwStyle)) To bTest

        //End

        Get FindNextChildWindowByClass hDlg 0 'Button' To hWndChild

        Move hWndChild To hWndCloseBtn

        Get FindNextChildWindowByClass hDlg hWndChild 'Button' To hWndChild

        Move hWndChild To hWndClearBtn

        Get FindNextChildWindowByClass hDlg hWndChild 'Edit' To hWndChild

        Move hWndChild To hWndEdit

        Showln "EDIT2 = " (IntToHex(hWndEdit))

        //Move (GetDlgItem(hDlg, IDC_EDIT2)) To hWndCloseBtn

        Showln "CLOSE = " (IntToHex(hWndCloseBtn))

       // Move (GetDlgItem(hDlg, IDC_EDIT3)) To hWndClearBtn

        Showln "CLEAR = " (IntToHex(hWndClearBtn))

    End

    //Showln "The handle of the dialog is " hDlg

    //Showln "The handle of the edit is " hWndEdit

          //If State Move HWND_TOPMOST To tmMode

          //Else Move HWND_NOTOPMOST To tmMode

          //Set MyTopMost_State To State                              x  y  cx cy

          //Move (SetWindowPos(Window_Handle(Current_Object), tmMode, 0, 0, 0, 0, (SWP_NOMOVE Ior SWP_NOSIZE))) To retval

          //Move (SetWindowPos(hDlg, HWND_TOPMOST, 300, 50, 0, 0, (SWP_NOSIZE))) To bTest

          If (hWndEdit) Begin

            Move (SetForegroundWindow(hDlg)) To bTest

            Move (SetFocus(hWndEdit)) To bTest

          End

  End_Procedure // SetOutputWindowToMultiByteCharacterSet

End_Class // cOutputWindow

Object oOutputWindow Is a cOutputWindow

  Move Self To ghoOutputWindow

End_Object // oOutputWindow

Procedure CallDebugger

  Integer hDlg       // Variable that stores the output dialog handle

  Integer hWndEdit   // Variable that stores the edit window handle

  DWORD   dwStyle    // Variable to manipulate the window style

  Integer bTest      // Variable to test the results

  // Get handle of output window dialog.

  Move ( FindWindow("RHBUG", "") ) To hDlg

  If (hDlg <> 0) Begin

      // Get handle of edit control that displays output.

      //Move (GetDlgItem(hDlg, IDC_EDIT1)) To hWndEdit

      //If (hWndEdit <> 0) Begin

      //  Showln "DEbug EDIT gevonden"

          // Change the style - remove ES_OEMCONVERT!

          //Move (GetWindowLong(hWndEdit, GWL_STYLE)) To dwStyle

          //If (dwStyle Iand ES_OEMCONVERT);

          //    Move (dwStyle - ES_OEMCONVERT) To dwStyle

          //Move (SetWindowLong(hWndEdit, GWL_STYLE, dwStyle)) To bTest

      //End

      Showln "Debugger gevonden"

      //Move (SetWindowPos(hDlg, HWND_TOPMOST, 0, 0, 0, 0, (SWP_NOMOVE Ior SWP_NOSIZE))) To bTest

      Move (SetForegroundWindow(hDlg)) To bTest

  End

End_Procedure // CallDebugger