FiveTech Software tech support forums

by **nageswaragunupudi** » Wed Jul 08, 2015 1:48 am

Mr Manuel

To get hBitmap from hIcon, this may be shorter and faster:

Code: Select all Expand view: HB_FUNC (HICO2HBMP) // HICO2HBMP( hIcon ) --> hBitmap { ICONINFO iconinfo; GetIconInfo( (HICON) hb_parnl( 1 ), &iconinfo ); hb_retnl( (LONG) iconinfo.hbmColor ); }

The new logic of ICON_EXEREAD is working great.
(does not appear to be compatible with bcc582 )

by **mastintin** » Wed Jul 08, 2015 7:00 am

Nages . the same code (no resize image ) ....
with

DeleteObject( oImage:hBitmap )
oImage:hBitmap = HICO2HBMP( hIcon )
oImage:HasAlpha()
oImage:Refresh()

with

DeleteObject( oImage:hBitmap )
oGBmp:hBmp:= GDIPLUSIMAGEFROMICO( hIcon )
oImage:hBitmap:= oGBmp:GetGDIHbitmap()
oImage:HasAlpha()
oImage:Refresh()

by **mastintin** » Wed Jul 08, 2015 7:53 am

change in ICON_EXEREAD for bcc582 compatiblility ... :-)

Code: Select all Expand view: #include <commctrl.h> #include <commoncontrols.h> STDAPI SHGetImageList(int iImageList, REFIID riid, void **ppvObj); HB_FUNC( ICON_EXEREAD ) { HICON hico ; SHFILEINFO sfi = { 0 }; LPCTSTR pName = ( LPCTSTR ) hb_parc( 1 ) ; SHGetFileInfo( pName , -1, &sfi, sizeof(sfi), SHGFI_SYSICONINDEX ); HIMAGELIST* imageList; HRESULT hResult = SHGetImageList( hb_parni( 2 ) , __uuidof(IImageList), (void**)&imageList ); if(hResult == S_OK) { ((IImageList*)imageList)->GetIcon(sfi.iIcon,ILD_NORMAL|ILD_TRANSPARENT , &hico); } #ifndef _WIN64 hb_retnl( ( LONG ) hico ); #else hb_retnll( ( LONGLONG ) hico ); #endif }

by **nageswaragunupudi** » Wed Jul 08, 2015 7:59 am

Excellant.
Suggestion: Default 2nd parameter to 0, if the caller omits the 2nd parameter

by **Silvio.Falconi** » Sat Jul 11, 2015 5:42 pm

Dear Mastintin,
I had problems with my elderly mother and I was in the hospital with her Institute for the time. the return I saw the new sources that you did and I found this evening to compile. But I have problems as you can see

Code: Select all Expand view: Progetto: TEST2, Ambiente: xFive_Pelles: [1]:Harbour.Exe TEST2.PRG /m /n0 /gc1 /es2 /iC:\Work\fwh\include /ic:\work\xHarbour\Include /jI18n\Main.hil /iinclude;c:\work\fwh\include;c:\work\xHarbour\include /oObj\TEST2.c xHarbour 1.2.3 Intl. (SimpLex) (Build 20140725) Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/ Compiling 'TEST2.PRG'... Generating international list to 'I18n\Main.hil'... Generating C source output to 'Obj\TEST2.c'... Done. Lines 41, Functions/Procedures 3, pCodes 248 [1]:Bcc32.Exe -M -c -O2 -tW -v- -X -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_OS_WIN_32 -IC:\Work\fwh\include -IC:\Work\bcc582\Include;c:\work\xHarbour\Include -nObj Obj\TEST2.c Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland Obj\TEST2.c: [1]:Harbour.Exe tgdiplus.prg /m /n0 /gc1 /es2 /iC:\Work\fwh\include /ic:\work\xHarbour\Include /jI18n\Main.hil /iinclude;c:\work\fwh\include;c:\work\xHarbour\include /oObj\tgdiplus.c xHarbour 1.2.3 Intl. (SimpLex) (Build 20140725) Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/ Compiling 'tgdiplus.prg'... Generating international list to 'I18n\Main.hil'... Generating C source output to 'Obj\tgdiplus.c'... Done. Lines 792, Functions/Procedures 39, pCodes 2855 [1]:Bcc32.Exe -M -c -O2 -tW -v- -X -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_OS_WIN_32 -IC:\Work\fwh\include -IC:\Work\bcc582\Include;c:\work\xHarbour\Include -nObj Obj\tgdiplus.c Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland Obj\tgdiplus.c: [1]:Bcc32.Exe -M -c -O2 -tW -v- -X -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_OS_WIN_32 -IC:\Work\fwh\include -IC:\Work\bcc582\Include;c:\work\xHarbour\Include -nObj gdiplus.cpp Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland gdiplus.cpp: Error E2209 C:\Work\bcc582\Include\gdiplus.h 21: Unable to open include file 'algorithm' Error E2316 C:\Work\bcc582\Include\gdiplus.h 22: 'min' is not a member of 'std' Error E2272 C:\Work\bcc582\Include\gdiplus.h 22: Identifier expected Error E2316 C:\Work\bcc582\Include\gdiplus.h 23: 'max' is not a member of 'std' Error E2272 C:\Work\bcc582\Include\gdiplus.h 23: Identifier expected Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 459: Call to undefined function 'min' in function RectF::Intersect(RectF &,const RectF &,const RectF &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 461: Call to undefined function 'max' in function RectF::Intersect(RectF &,const RectF &,const RectF &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 483: Call to undefined function 'max' in function RectF::Union(RectF &,const RectF &,const RectF &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 484: Call to undefined function 'max' in function RectF::Union(RectF &,const RectF &,const RectF &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 485: Call to undefined function 'min' in function RectF::Union(RectF &,const RectF &,const RectF &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 486: Call to undefined function 'min' in function RectF::Union(RectF &,const RectF &,const RectF &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 647: Call to undefined function 'min' in function Rect::Intersect(Rect &,const Rect &,const Rect &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 648: Call to undefined function 'min' in function Rect::Intersect(Rect &,const Rect &,const Rect &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 649: Call to undefined function 'max' in function Rect::Intersect(Rect &,const Rect &,const Rect &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 650: Call to undefined function 'max' in function Rect::Intersect(Rect &,const Rect &,const Rect &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 671: Call to undefined function 'max' in function Rect::Union(Rect &,const Rect &,const Rect &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 672: Call to undefined function 'max' in function Rect::Union(Rect &,const Rect &,const Rect &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 673: Call to undefined function 'min' in function Rect::Union(Rect &,const Rect &,const Rect &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 674: Call to undefined function 'min' in function Rect::Union(Rect &,const Rect &,const Rect &) Error E2268 gdiplus.cpp 1115: Call to undefined function 'SHGetImageList' in function HB_FUN_ICON_EXEREAD() Error E2451 gdiplus.cpp 1115: Undefined symbol 'IID_IImageList2' in function HB_FUN_ICON_EXEREAD() *** 21 errors in Compile ***

by **mastintin** » Sat Jul 11, 2015 6:24 pm

I hope your mother gets better.
It seems a problem with the headers.
You should have declared these cvabeceras in gdiplus.cpp file.

Code: Select all Expand view: #define STRICT #include <windows.h> #include <algorithm> using std::min; using std::max; #include <hbapi.h> #include <windows.h> #include <gdiplus.h> #include <hbapiitm.h> #include <string> #include <commctrl.h> #include <commoncontrols.h> #ifndef __GNUC__ #include <gdiplusimaging.h> #else #include <gdiplus/gdiplusimaging.h> #endif extern "C" { LPWSTR UTF8toUTF16( LPCSTR utf8 ); } STDAPI SHGetImageList(int iImageList, REFIID riid, void **ppvObj);

by **Silvio.Falconi** » Mon Jul 13, 2015 10:44 pm

Sorry,
I write only now because I have to be in hospital with my mother who is under observation for an illness colon

I add the header and it make this error

Code: Select all Expand view: Done. Lines 792, Functions/Procedures 39, pCodes 2855 [1]:Bcc32.Exe -M -c -O2 -tW -v- -X -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_OS_WIN_32 -IC:\Work\fwh\include -IC:\Work\bcc582\Include;c:\work\xHarbour\Include -nObj Obj\tgdiplus.c Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland Obj\tgdiplus.c: [1]:Bcc32.Exe -M -c -O2 -tW -v- -X -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_OS_WIN_32 -IC:\Work\fwh\include -IC:\Work\bcc582\Include;c:\work\xHarbour\Include -nObj gdiplus.cpp Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland gdiplus.cpp: Error E2209 gdiplus.cpp 11: Unable to open include file 'algorithm' Error E2316 gdiplus.cpp 12: 'min' is not a member of 'std' Error E2272 gdiplus.cpp 12: Identifier expected Error E2316 gdiplus.cpp 13: 'max' is not a member of 'std' Error E2272 gdiplus.cpp 13: Identifier expected Error E2209 C:\Work\bcc582\Include\gdiplus.h 21: Unable to open include file 'algorithm' Error E2316 C:\Work\bcc582\Include\gdiplus.h 22: 'min' is not a member of 'std' Error E2272 C:\Work\bcc582\Include\gdiplus.h 22: Identifier expected Error E2316 C:\Work\bcc582\Include\gdiplus.h 23: 'max' is not a member of 'std' Error E2272 C:\Work\bcc582\Include\gdiplus.h 23: Identifier expected Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 459: Call to undefined function 'min' in function RectF::Intersect(RectF &,const RectF &,const RectF &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 461: Call to undefined function 'max' in function RectF::Intersect(RectF &,const RectF &,const RectF &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 483: Call to undefined function 'max' in function RectF::Union(RectF &,const RectF &,const RectF &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 484: Call to undefined function 'max' in function RectF::Union(RectF &,const RectF &,const RectF &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 485: Call to undefined function 'min' in function RectF::Union(RectF &,const RectF &,const RectF &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 486: Call to undefined function 'min' in function RectF::Union(RectF &,const RectF &,const RectF &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 647: Call to undefined function 'min' in function Rect::Intersect(Rect &,const Rect &,const Rect &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 648: Call to undefined function 'min' in function Rect::Intersect(Rect &,const Rect &,const Rect &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 649: Call to undefined function 'max' in function Rect::Intersect(Rect &,const Rect &,const Rect &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 650: Call to undefined function 'max' in function Rect::Intersect(Rect &,const Rect &,const Rect &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 671: Call to undefined function 'max' in function Rect::Union(Rect &,const Rect &,const Rect &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 672: Call to undefined function 'max' in function Rect::Union(Rect &,const Rect &,const Rect &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 673: Call to undefined function 'min' in function Rect::Union(Rect &,const Rect &,const Rect &) Error E2268 C:\Work\bcc582\Include\GdiplusTypes.h 674: Call to undefined function 'min' in function Rect::Union(Rect &,const Rect &,const Rect &) Error E2209 gdiplus.cpp 19: Unable to open include file 'string' Error E2228 gdiplus.cpp 19: Too many error or warning messages *** 26 errors in Compile ***

by **mastintin** » Tue Jul 14, 2015 7:06 am

Silvio .
You have algorithm in c:\bcc582\include\dinkumware ?
if you are this file . Add the path c:\bcc582\include\dinkumware -I%bcdir%\include\dinkumware

Code: Select all Expand view: Bcc32.Exe -M -c -O2 -tW -v- -X -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_OS_WIN_32 -IC:\Work\fwh\include -IC:\Work\bcc582\Include;c:\Work\bcc582\include\dinkumware;c:\work\xHarbour\Include -nObj gdiplus.cpp

by **Silvio.Falconi** » Tue Jul 14, 2015 1:50 pm

Manuel ,
now I can compile the test
open the test and select a file ( test.pdf)
it create the bitmap and make this error

Code: Select all Expand view: Application =========== Path and name: C:\Work\Errori\GDIPLUS\TEST2.Exe (32 bits) Size: 2,649,088 bytes Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20140725) FiveWin Version: FWHX 15.01 Windows version: 6.1, Build 7600 Time from start: 0 hours 0 mins 34 secs Error occurred at: 07/14/15, 15:49:11 Error description: Warning BASE/1004 Message not found: GDIBMP:END Stack Calls =========== Called from: source\rtl\tobject.prg => GDIBMP:ERROR( 0 ) Called from: source\rtl\tobject.prg => GDIBMP:MSGNOTFOUND( 0 ) Called from: source\rtl\tobject.prg => GDIBMP:END( 0 ) Called from: TEST2.PRG => GDIBMPFROMHICON( 37 ) Called from: TEST2.PRG => IMAGENFROMICO( 24 ) Called from: TEST2.PRG => (b)MAIN( 9 ) Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK( 175 ) Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1687 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3450 ) Called from: => SENDMESSAGE( 0 ) Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1207 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3450 ) Called from: => WINRUN( 0 ) Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1152 ) Called from: TEST2.PRG => MAIN( 15 )

by **Silvio.Falconi** » Tue Jul 14, 2015 2:05 pm

Manuel the test run ok now I rem *ogbmp:end()

a problem the test fit the image good

I insert the new code into my app and I not found the right resize
I use a image control into a Tpanel control ( i tried 64x64 128x128)

your test good

my app ( with image control into a tpanel )

how I resolve ?

by **mastintin** » Tue Jul 14, 2015 2:22 pm

2 questions.

1.-
look in the function gdiplus.cpp if you have GDIPLUSIMAGEDISPOSE .if not exist add it.

Code: Select all Expand view: HB_FUNC( GDIPLUSIMAGEDISPOSE ) { Bitmap * newImage = ( Bitmap * ) hb_parnl( 1 ); delete newImage; }

change
ogdibmp:end()

for

GDIPLUSIMAGEDISPOSE( ogdibmp:hbmp)

2.-

GDIBmpFromHIcon( ico, oImage , oImage:Super:nWidth(), oImage:Super:nHeight() )

change oImage:Super:nWidth() and oImage:Super:nHeight() for 64*64 or your prefered size .

by **Silvio.Falconi** » Tue Jul 14, 2015 2:30 pm

First question I coorect GDIPLUSIMAGEDISPOSE( ogdibmp:hbmp)
make error

Code: Select all Expand view: Application =========== Path and name: C:\Work\Prg\Allegati\Allegati.Exe (32 bits) Size: 2,974,720 bytes Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20140725) FiveWin Version: FWHX 15.01 Windows version: 6.1, Build 7600 Time from start: 0 hours 0 mins 5 secs Error occurred at: 07/14/15, 16:27:21 Error description: Error BASE/1003 Variable does not exist: OGDIBMP Stack Calls =========== Called from: source\test.prg => GDIBMPFROMHICON( 456 ) Called from: source\test.prg => IMAGENFROMICO( 430 ) Called from: source\test.prg => SETFILE( 356 ) Called from: source\test.prg => DROP( 240 ) Called from: source\test.prg => (b)CREALISTVIEW( 295 ) Called from: .\source\classes\WINDOW.PRG => TLISTVIEW:DROPFILES( 1363 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\CONTROL.PRG => TLISTVIEW:HANDLEEVENT( 1733 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3450 ) Called from: => DIALOGBOXINDIRECT( 0 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 ) Called from: source\test.prg => ALLEGATI( 110 )

for the second question I tried 64x64 and it is not clear
please see it ( 64X64)

by **mastintin** » Tue Jul 14, 2015 2:41 pm

1.-
silvio put your code for GDIBmpFromHIcon.

2.- The original measure icon is 256 * 256

ICON_EXEREAD function has 2 parameters name file , and Size ..
0->LARGE 32x32
1->SMALL 16x16
2->48x48
3-> These images are the size specified by GetSystemMetrics called with SM_CXSMICON and GetSystemMetrics called with SM_CYSMICON.
4-> Windows Vista and later. The image is normally 256x256 pixels.

by **Silvio.Falconi** » Tue Jul 14, 2015 6:20 pm

Code: Select all Expand view: IF lFileImage oImagePreview:LoadBmp(cFileImage) oImagePreview:setpos(0,0) oImagePreview:nWidth:=oPanelPreview:nWidth oImagePreview:nHeight:=oPanelPreview:nHeight oImagePreview:lStretch:= .t. oImagePreview:nZoom:= 1 oImagePreview:refresh() else ico := ICON_EXEREAD( cFile, 4 ) GDIBmpFromHIcon( ico, oImagePreview ,256,256 ) endif .... Function GDIBmpFromHIcon( hIcon , oImagePreview , nWidth, nHeight ) local ogbmp := GdiBmp():new() ogbmp:hBmp:= GDIPLUSIMAGEFROMICO( hicon ) ogbmp:resize( nWidth,nHeight) DeleteObject( oImagePreview:hBitmap ) oImagePreview:hBitmap := oGBmp:GetGDIHbitmap() oImagePreview:HasAlpha() oImagePreview:Refresh() *ogbmp:end() *GDIPLUSIMAGEDISPOSE( ogdibmp) Return nil

THE PROBLEM IS :

on your test you use a BTIMAP control
@ 3, 38 BITMAP oimage FILE "" size 220,220 of oWnd

on my application I use a oImage control

@ 0, 0 IMAGE oImagePreview SIZE oPanelPreview:nRight, oPanelPreview:nbottom OF oPanelPreview NOBORDER

on Image control gdi not run ok

I need to use oImage control because I select any files ( image or document file )

Image ==> *.bmp;*.gif;*.jpg;*.png;*.tif
document files == >*.pdf *.doc,*.xls,*.ppt,*.docx,*.xlsx,*.pptx *.odt,*.ods,*.odp, *.sxw, *.sxc,*. sxi

I think it is the problem
I made also a test change your control Bitmap into Image control and gdi not run

the code test

Code: Select all Expand view: #include "FiveWin.ch" #include "constant.ch" Function Main () local ownd local oimage Local nBottom := 33 Local nRight := 75 Local nWidth := Max( nRight * DLG_CHARPIX_W, 180 ) Local nHeight := nBottom * DLG_CHARPIX_H DEFINE DIALOG oWnd ; //OF oParent TITLE "test" ; SIZE nWidth, nHeight TRANSPARENT PIXEL oWnd:nStyle := nOr( WS_OVERLAPPED,WS_THICKFRAME,WS_SYSMENU,WS_MAXIMIZEBOX, 0 ) @ 20,2 button "crear" size 40,20 pixel Action imagenfromico(oimage ) @ 20 ,130 Button "salir" Action ownd:end() size 40,20 pixel @ 3, 38 Image oimage FILE "" size 220,220 of oWnd ACTIVATE dialog oWnd Return (nil) Function imagenfromico(oImage ) local cFile:= cGetfile("coge","*.*") local ico := ICON_EXEREAD( cFile, 4 ) // for ico, dll and exe files GDIBmpFromHIcon( ico, oImage , oImage:Super:nWidth(), oImage:Super:nHeight() ) Return nil Function GDIBmpFromHIcon( hIcon , oImage , nWidth, nHeight ) local ogbmp := GdiBmp():new() ogbmp:hBmp:= GDIPLUSIMAGEFROMICO( hicon ) ogbmp:resize( nWidth,nHeight) DeleteObject( oImage:hBitmap ) oImage:hBitmap := oGBmp:GetGDIHbitmap() oImage:HasAlpha() oImage:Refresh() *ogbmp:end() Return nil

when you select the file then not show any image into Image control

by **mastintin** » Wed Jul 15, 2015 5:45 am

ok. Silvio ,I would look like with a control image....
in your code change GDIPLUSIMAGEDISPOSE( ogdibmp) to GDIPLUSIMAGEDISPOSE( ogbmp:hbmp) .

----------------edito -------------------------------------

Silvio in your test is placing the image control within the dialogue out of sight .

Change to
@ 3, 8 Image oimage FILE "" size 220,220 of oWnd and and run ... is fine for me.

FiveTech Software tech support forums

bmpfromico

Re: bmpfromico

Re: bmpfromico

Re: bmpfromico

Re: bmpfromico

Re: bmpfromico

Re: bmpfromico

Re: bmpfromico

Re: bmpfromico

Re: bmpfromico

Re: bmpfromico

Re: bmpfromico

Re: bmpfromico

Re: bmpfromico

Re: bmpfromico

Re: bmpfromico

Who is online