HMGforum.com

Code: Select all

#include "hmg.ch"

REQUEST HB_GT_WIN_DEFAULT

MEMVAR _HMG_SYSDATA

FUNCTION Main()

  DEFINE WINDOW MainForm;
    WIDTH  700;
    HEIGHT 500;
    MAIN;
    ON INIT  MainFormOnInit();
    ON PAINT RedrawWindow(GetConsoleWindow())

    DEFINE BUTTON WriteButton
      ROW     430
      COL     10
      WIDTH   130
      HEIGHT  25
      CAPTION "Write in console"
      ACTION  WriteInConsole()
    END BUTTON
  END WINDOW

  MainForm.CENTER
  MainForm.ACTIVATE

RETURN NIL

FUNCTION MainFormOnInit()
  LOCAL nHWndConsole := GetConsoleWindow()

  IF nHWndConsole != 0
    IF SetParent(nHWndConsole, MainForm.HANDLE) != 0
      SetMode(25, 80)
      SetWindowPos(nHWndConsole, 0, 10, 10, 0, 0, 0x15 /*SWP_NOACTIVATE|SWP_NOZORDER|SWP_NOSIZE*/)
      RedrawWindow(nHWndConsole)
    ENDIF

    MainForm.WriteButton.SETFOCUS

    ? "0"
  ENDIF

RETURN NIL

FUNCTION WriteInConsole()
  STATIC n := 0

  IF GetConsoleWindow() != 0
    ? HB_Ntos(++n)
  ENDIF

RETURN NIL

#pragma BEGINDUMP
#include <windows.h>
#include "hbapi.h"
#include "SET_COMPILE_HMG_UNICODE.ch"
#include "HMG_UNICODE.h"

HB_FUNC( GETCONSOLEWINDOW )
{
  HMG_retnl((LONG_PTR) GetConsoleWindow());
}
#pragma ENDDUMP