test.hbp
- Code: Select all Expand view
- -gui
-Ic:\fwh\include
test.prg
-Lc:\fwh\lib
-lFiveH32
-lFiveHC32
-lgdiplus
-lole32
-lOleDlg
-lversion
xhb.hbc
hbct.hbc
hbwin.hbc
hbmzip.hbc
hbziparc.hbc
hbfoxpro.hbc
-ldflag=/NODEFAULTLIB:msvcrt
test.rc
go32.bat
- Code: Select all Expand view
- call "%ProgramFiles%\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" x86
c:\harbour\bin\hbmk2 test.hbp -comp=msvc
test.exe
test.prg
- Code: Select all Expand view
- #include "FiveWin.ch"
function Main()
local oBmpTiled, oWnd, oMsgBar
DEFINE BITMAP oBmpTiled RESOURCE "background"
DEFINE WINDOW oWnd MENU BuildMenu() TITLE "My app"
BuildBar( oWnd )
DEFINE MSGBAR oMsgBar OF oWnd PROMPT "My app" NOINSET
ACTIVATE WINDOW oWnd MAXIMIZED ;
ON PAINT DrawTiled( hDC, oWnd, oBmpTiled )
oBmpTiled:End()
return nil
function BuildMenu()
local oMenu
MENU oMenu
MENUITEM "&Files"
ENDMENU
return oMenu
function BuildBar( oWnd )
local oBar
DEFINE BUTTONBAR oBar OF oWnd 3D SIZE 70, 70
return nil
test.rc
- Code: Select all Expand view
- background BITMAP c:\fwh\bitmaps\backgrnd\iosbg.bmp