DEFAULT ICON (for example using inputbox)

[esgici]

Please clarify : it seems that this DEFAULT ICON not only for InputBox

TIA

[trmpluym]

Correct, when you do not define a icon for a window, this icon is used.

Here the help from HMG MiniGui

The main icon defined by user could be used as default icon to all other windows.

SYNTAX

SET DEFAULT ICON TO <cIconName>

[Pablo César]

I did not tested this upto now.

Thank you Claudio !

I made like this:

SET DEFAULT ICON TO "youtube.ico"

And I got this:

Tela01.png (30.83 KiB) Viewed 2827 times

But MsgInfo and C_MsgBox are display other default icon. I guess this is from API ?

Is this normal ?

[bpd2000]

But MsgInfo and C_MsgBox are display other default icon. I guess this is from API ?

Is this normal ?

+1

[srvet_claudio]

But MsgInfo and C_MsgBox are display other default icon. I guess this is from API ?

Is this normal ?

Yes, is normal,
but ...

Code: Select all

#include "hmg.ch"

Function main()

   SET DEFAULT ICON TO "DefaultIcon.ICO"

	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 640 ;
		HEIGHT 480 ;
		MAIN ;

		@ 50 ,100 BUTTON Button_1 ;
			CAPTION "Press" ;
			ACTION MsgInfo ("Text","Title")


	END WINDOW

   CREATE EVENT PROCNAME SetDialogBoxIcon() STOREINDEX nIndex
   EventProcessAllHookMessage ( nIndex, .T. )

	CENTER WINDOW Form_1

	ACTIVATE WINDOW Form_1

Return



FUNCTION SetDialogBoxIcon
STATIC hIcon := 0, Old_hWnd := 0
LOCAL hWnd := EventHWND()

   IF Old_hWnd <> hWnd .AND. GetClassName ( hWnd ) == "#32770"
      Old_hWnd := hWnd

      IF hIcon == 0
         hIcon := HMG_LOADICON ( _HMG_DefaultIconName )
      ENDIF

      IF hIcon <> 0
         #define GCLP_HICON   (-14)
         SetClassLongPtr (hWnd, GCLP_HICON, hIcon) 
      ENDIF
   ENDIF

RETURN NIL



#pragma BEGINDUMP

#include "SET_COMPILE_HMG_UNICODE.ch"
#include "HMG_UNICODE.h"


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


HB_FUNC ( HMG_LOADICON )
{
   TCHAR *cIconName = (TCHAR *) HMG_parc (1);
   HICON hIcon = NULL;
   if ( cIconName != NULL )
   {    hIcon = LoadImage (GetModuleHandle (NULL), cIconName, IMAGE_ICON, 0, 0, LR_DEFAULTSIZE | LR_LOADTRANSPARENT);
        if ( hIcon == NULL )
             hIcon = LoadImage (NULL, cIconName, IMAGE_ICON, 0, 0, LR_DEFAULTSIZE | LR_LOADTRANSPARENT | LR_LOADFROMFILE);
   }
   HMG_retnl ((LONG_PTR) hIcon);
}

#pragma ENDDUMP

[Pablo César]

Yeahhh !

Thank you Claudio.

[serge_girard]

Thanks Grigory and Claudio !

Serge

[bpd2000]

But MsgInfo and C_MsgBox are display other default icon. I guess this is from API ?

Is this normal ?

Yes, is normal,
but ...

Thank you