HMG 3.4.4

[franco]

Actually, everything you touch on the screen is like a mouse click.

[mol]

Can somebody integrate new gcc 10.3 and hb 3.2 compiled with this one to the new version of hmg?

[apais]

Someone is actually only ONE person.
HMG is in practice Locked Out.

[serge_girard]

Sadly, yes

[bpd2000]

Someone is actually only ONE person.
HMG is in practice Locked Out.

Is there any other solution
Dummy HMG ?
Unofficial HMG

[mol]

It's a pity there is no way to develop official HMG. It's not needed to create another fork

[mol]

I've placed hyperlink control in my form.
It's address starts with "https" protocol.
And the problem is that my application starts mail application not internet browser.
When I change "https" to "http", default browser is correctly opened.
The problem is that I need https address...
How to solve it?

[mol]

My solution for now is label with action RunHttpsLink("https://molsystemy.pl")
where function RunHttpsLink is defined like below:

Code: Select all

Function RunHttpsLink(cAddress)
Execute file cAddress
Return

[edk]

I've placed hyperlink control in my form.
It's address starts with "https" protocol.
And the problem is that my application starts mail application not internet browser.
When I change "https" to "http", default browser is correctly opened.
The problem is that I need https address...
How to solve it?

Zmień w h_label.prg w funkcji _DefineLabel wiersz:

Code: Select all

	_HMG_SYSDATA [  6 ]  [k] :=  if ( valtype ( ProcedureName ) = 'C' , if ( HMG_LOWER ( HB_ULEFT ( ProcedureName , 7 ) ) == 'http://' , {||ShellExecute(0, "open", "rundll32.exe", "url.dll,FileProtocolHandler " + ProcedureName , ,1)} , {||ShellExecute(0, "open", "rundll32.exe", "url.dll,FileProtocolHandler mailto:" + ProcedureName , ,1)} ) , ProcedureName )

na

Code: Select all

	_HMG_SYSDATA [  6 ]  [k] :=  if ( valtype ( ProcedureName ) = 'C' , if ( HMG_LOWER ( HB_ULEFT ( ProcedureName , 7 ) ) == 'http://'  .Or.  HMG_LOWER ( HB_ULEFT ( ProcedureName , 8 ) ) == 'https://' , {||ShellExecute(0, "open", "rundll32.exe", "url.dll,FileProtocolHandler " + ProcedureName , ,1)} , {||ShellExecute(0, "open", "rundll32.exe", "url.dll,FileProtocolHandler mailto:" + ProcedureName , ,1)} ) , ProcedureName )

[mol]

Thank you Edward!