HMGforum.com

Code: Select all

#include <hmg.ch>

Function Main
define window dummy at 0,0 width 0 height 0 main nocaption nosysmenu on init startmain() 
end window
activate window dummy
Return

function startmain
?"Now starting the program."
wait 
select printer default preview
start printdoc
start printpage
@ 20,20 print "This is a test print"
end printpage
end printdoc
?"Now ending the program"
wait
endmain()
return nil


function endmain
release window dummy
return nil

Code: Select all

#include <hmg.ch>

// here is our main window
function Main()
   define window winMain at 0, 0 width 100 height 100 main noshow ;
      on init ConsoleMain()
   end window
   activate window winMain
   return nil
   
   
// here comes our old clipper / harbour console codes 
function ConsoleMain()
   
   clear screen
   @ 1, 1 to maxrow()-1, maxcol()-1 double
       
   @ maxrow()-2, 1 say "Press any key to start print preview in console mode ..."
   inkey(0)
   
   PrintTest()
   
   clear screen
   @ maxrow()-2, 1 say "Print test done. Press any key to quit ..."
   inkey (0)
   
   thiswindow.release()
    
   retur nil
   
   
// here comes print test   
Function PrintTest()
   SELECT PRINTER DEFAULT PREVIEW
   
   START PRINTDOC NAME "Print from HMG Console Mode"
   START PRINTPAGE
   
   @ 100, 100 print "This is print test from HMG Console Mode" 
   
   END PRINTPAGE
   END PRINTDOC
   
   return nil
   

Code: Select all

#include "minigui.ch"

Function Main

    SET STATIONNAME TO "MAINPROC"
    _HMG_Commpath:= GetCurrentFolder()+"\"

    DEFINE WINDOW Form_1 ;
        AT 0,0 ;
        WIDTH 640 HEIGHT 480 ;
        TITLE 'Harbour MiniGUI Demo' ;
        MAIN ;
        FONT 'Arial' SIZE 10
        
        DEFINE LABEL Label1
            ROW 10
            COL 10
            VALUE "Good morning"   
        END LABEL 

        DEFINE GETBOX Box11
            ROW 10
            COL 100
            VALUE 2.5
            PICTURE '999,999,999,999.9999'
        END GETBOX 

        DEFINE BUTTON Btn1
            ROW 50
            COL 10
            CAPTION 'DOS 1'
            ACTION THIS.CAPTION:=ALLTRIM(STR(GETDATA(FN1())))
        END BUTTON

        DEFINE BUTTON Btn2
            ROW 100
            COL 10
            CAPTION 'Message'
            ACTION  FN2(3)
        END BUTTON

        DEFINE BUTTON Btn4
            ROW 150
            COL 10
            CAPTION 'EXIT'
            ACTION Form_1.release
        END BUTTON

    END WINDOW

    HideConsole()
    Form_1.Center()
    Form_1.Activate()
Return Nil

FUNCTION FN1()
LOCAL r1 := 0
LOCAL r2 := 0
MEMVAR GetList
    HIDE WINDOW Form_1
    ShowConsole()
    CLEAR SCREEN

    @ 10,10 SAY ' S1 ' GET r1 pict '9999'
    @ 12,10 SAY ' S2 ' GET r2 pict '9999'
    READ
    SENDDATA("MAINPROC",R2)
    HideConsole()
    RESTORE WINDOW Form_1
RETURN NIL


FUNCTION FN2(n)
LOCAL i
    HIDE WINDOW Form_1
    ShowConsole()
    CLEAR SCREEN
    FOR i:=1 TO n
        ?i
    NEXT 
    WAIT
    HideConsole()
    RESTORE WINDOW Form_1
    MsgBox('bla'+TRANSFORM(n,'99'),'Title')
RETURN NIL


#pragma BEGINDUMP

#include <windows.h>
#include "hbapi.h"
#include "hbapiitm.h"

HB_FUNC( HIDECONSOLE )
{
    ShowWindow(( HWND) FindWindow( NULL, "demo" ), SW_MINIMIZE);
}

HB_FUNC( SHOWCONSOLE )
{
    ShowWindow(( HWND) FindWindow( NULL, "demo" ), SW_RESTORE);
}

#pragma ENDDUMP