DEFAULT ICON (for example using inputbox)

[trmpluym]

I use the latest HMG build and also HMGMiniGui.

When i use for example the function inputbox it uses the default icon. There is no parameter to change the icon or disable the sysmenu (left corner).

In MiniGui i can use

SET DEFAULT ICON TO <cIconName>

The inputbox now also uses this default icon. In HMG i cannot find the 'SET DEFAULT ICON TO' option. Is there another way of changing this behavior ?

[gfilatov]

I use the latest HMG build and also HMGMiniGui.

In HMG i cannot find the 'SET DEFAULT ICON TO' option. Is there another way of changing this behavior ?

Hi,

You are right! SET DEFAULT ICON TO option is available in HMG Extended Edition only.
There is not the above feature in HMG Official.

[bpd2000]

You are right! SET DEFAULT ICON TO option is available in HMG Extended Edition only.
There is not the above feature in HMG Official.

Dear Gfilatov
Can you give hint how to adopt said command in HMG

[gfilatov]

Can you give hint how to adopt said command in HMG

Hi,

It is a simple modification.

I've added a new public variable _HMG_DefaultIconName := Nil at Minigui initialization.

Then added the following code in the function _DefineWindow():

Code: Select all

   IF ValType ( icon ) == 'U' .AND. ValType ( _HMG_DefaultIconName ) != 'U'
      icon := _HMG_DefaultIconName
   ENDIF
...
      BrushHandle := RegisterWindow( icon, FormName, aRGB )

After that I've created this command in an include file i_window.ch:

Code: Select all

#command SET DEFAULT ICON TO <iconname> ;
   =>;
   _HMG_DefaultIconName := <iconname>

That's all

[bpd2000]

Can you give hint how to adopt said command in HMG

Hi,

It is a simple modification.

I've added a new public variable _HMG_DefaultIconName := Nil at Minigui initialization.

Then added the following code in the function _DefineWindow():

Code: Select all

   IF ValType ( icon ) == 'U' .AND. ValType ( _HMG_DefaultIconName ) != 'U'
      icon := _HMG_DefaultIconName
   ENDIF
...
      BrushHandle := RegisterWindow( icon, FormName, aRGB )

After that I've created this command in an include file i_window.ch:

Code: Select all

#command SET DEFAULT ICON TO <iconname> ;
   =>;
   _HMG_DefaultIconName := <iconname>

That's all

Excellent, Thank you Mr. Gfilatov

[Clip2Mania]

Just for my understanding:

I've added a new public variable _HMG_DefaultIconName := Nil at Minigui initialization.

In what file is that? In your own program?

Then added the following code in the function _DefineWindow():

That's in h_windows.prg, right ?

Thanks for clarifying!

[gfilatov]

Just for my understanding:

I've added a new public variable _HMG_DefaultIconName := Nil at Minigui initialization.

In what file is that? In your own program?

Then added the following code in the function _DefineWindow():

That's in h_windows.prg, right ?

Thanks for clarifying!

Hi,

Thanks for your interest!

1) look at your source\h_init.prg

2) the functions _DefineWindow() and _DefineModalWindow() are placed in source\h_windows.prg

Good luck!

[Clip2Mania]

Thanks very much!
Erik

[srvet_claudio]

Can you give hint how to adopt said command in HMG

Hi,

It is a simple modification.

I've added a new public variable _HMG_DefaultIconName := Nil at Minigui initialization.

Then added the following code in the function _DefineWindow():

Code: Select all

   IF ValType ( icon ) == 'U' .AND. ValType ( _HMG_DefaultIconName ) != 'U'
      icon := _HMG_DefaultIconName
   ENDIF
...
      BrushHandle := RegisterWindow( icon, FormName, aRGB )

After that I've created this command in an include file i_window.ch:

Code: Select all

#command SET DEFAULT ICON TO <iconname> ;
   =>;
   _HMG_DefaultIconName := <iconname>

That's all

Done.
Many thanks Grigory !!!

[trmpluym]

Wow ! In one day this feature is implemented. Thanks !

Is this change part of the next release ?

Many thanks again!