I have Harbour and last fwh with bcc7
where are the errors ?
the test
- Code: Select all Expand view
#include "fivewin.ch"
Function SalvaImage(oImg)
Local nType
local oBmp := GdiBmp():New()
local cFile := cGetFile( "Bitmap (*.bmp)| *.bmp|" + ;
"JPEG (*.jpg)| *.jpg|" + ;
"GIF (*.gif)| *.gif|" + ;
"TIFF (*.tif)| *.tif|" + ;
"PNG (*.png)| *.png" ;
,"Salva con il nome", hb_CurDrive() , .t. )
// oBmp:hBmp := GDIP_FROMHBITMAP( oImg:GetHBitmap(), oImg:aPalBmp[ 1 ], .T. )
oBmp:hBmp := oImg:aPalBmp[ 1 ]
IF .NOT. EMPTY( cFile )
nType := NGETFILEFILTER()
DO CASE
CASE nType == 1
cExt := "bmp"
CASE nType == 2
cExt := "jpg"
CASE nType == 3
cExt := "gif"
CASE nType == 4
cExt := "tif"
CASE nType == 5
cExt := "png"
ENDCASE
cFile := cFilePath( cFile ) + cFileNoExt( cFile ) + "." + cExt
IF oImagePreview:nZoom == 1 .and. oImagePreview:nRotate == 0
oImagePreview:SaveImage( cFile )
ELSE
SaveImgMod( oImagePreview, cFile,,oBmp )
ENDIF
MsgInfo( "saved as: "+ cFile)
ENDIF
RETURN NIL
//------------------------------------------------------------------//
Function SaveImgMod( oImg, cFile, lDimImg,oBmp )
local lRet := .F.
// local oBmp
local oRect
DEFAULT lDimImg := .F.
if !Empty( cFile )
oRect := if( lDimImg, oImg:oRect, oImg:GetCliRect() )
// oBmp := GdiBmp():New()
oBmp:hBmp := GDIPLUSCAPTURERECTWND( oImg:hWnd, ;
oRect:nTop + if( oImg:lBorder, 1, 0 ), ;
oRect:nLeft + if( oImg:lBorder, 1, 0 ), ;
oRect:nRight - oRect:nLeft - 1 - if( oImg:lBorder, 1, 0 ), ;
oRect:nBottom - oRect:nTop - 1 - if( oImg:lBorder, 1, 0 ) )
lRet := oBmp:Save( cFile )
oBmp:End()
else
MsgInfo( "Name File Empty", "Attention" )
endif
Return lRet
//------------------------------------------------------------------/
the errors
- Code: Select all Expand view
- Progetto: test, Ambiente: bcc7Harbor:
[1]:Harbour.Exe test2.prg /m /n0 /gc1 /es2 /a /iC:\Work\fwh\include /iC:\work\HARBOUR\Include /jI18n\Main.hil /iinclude;c:\work\fwh\include;C:\work\HARBOUR\include /oObj\test2.c
Harbour 3.2.0dev (r1703231115)
Copyright (c) 1999-2016, http://harbour-project.org/
Compiling 'test2.prg'...
test2.prg(5) Error E0030 Syntax error "syntax error at ' '"
test2.prg(11) Error E0030 Syntax error "syntax error at ' '"
test2.prg(14) Error E0030 Syntax error "syntax error at ' '"
test2.prg(15) Error E0030 Syntax error "syntax error at ' '"
test2.prg(17) Error E0030 Syntax error "syntax error at ' '"
test2.prg(18) Error E0030 Syntax error "syntax error at ' '"
test2.prg(20) Error E0030 Syntax error "syntax error at ' '"
test2.prg(21) Error E0030 Syntax error "syntax error at ' '"
test2.prg(22) Error E0030 Syntax error "syntax error at ' '"
test2.prg(23) Error E0030 Syntax error "syntax error at ' '"
test2.prg(24) Error E0030 Syntax error "syntax error at ' '"
test2.prg(25) Error E0030 Syntax error "syntax error at ' '"
test2.prg(26) Error E0030 Syntax error "syntax error at ' '"
test2.prg(27) Error E0030 Syntax error "syntax error at ' '"
test2.prg(28) Error E0030 Syntax error "syntax error at ' '"
test2.prg(29) Error E0030 Syntax error "syntax error at ' '"
test2.prg(30) Error E0030 Syntax error "syntax error at ' '"
test2.prg(31) Error E0030 Syntax error "syntax error at ' '"
test2.prg(43) Error E0010 ENDIF does not match IF
test2.prg(51) Error E0030 Syntax error "syntax error at ' '"
test2.prg(52) Error E0030 Syntax error "syntax error at ' '"
test2.prg(53) Error E0030 Syntax error "syntax error at ' '"
test2.prg(54) Error E0030 Syntax error "syntax error at ' '"
test2.prg(55) Error E0030 Syntax error "syntax error at ' '"
test2.prg(56) Error E0030 Syntax error "syntax error at ' '"
test2.prg(57) Error E0030 Syntax error "syntax error at ' '"
test2.prg(62) Error E0030 Syntax error "syntax error at ' '"
test2.prg(63) Error E0030 Syntax error "syntax error at ' '"
test2.prg(64) Error E0030 Syntax error "syntax error at ' '"
test2.prg(65) Error E0030 Syntax error "syntax error at ' '"
test2.prg(66) Error E0030 Syntax error "syntax error at ' '"
test2.prg(67) Error E0030 Syntax error "syntax error at ' '"
32 errors
No code generated.
