HMGforum.com

Posted: **Sun Jun 28, 2020 5:02 pm**

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

Posted: **Sun Apr 11, 2021 7:42 pm**

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

Posted: **Mon Apr 12, 2021 7:24 pm**

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

Posted: **Mon Apr 12, 2021 8:02 pm**

Sadly, yes

Posted: **Tue Apr 13, 2021 8:00 am**

apais wrote: ↑Mon Apr 12, 2021 7:24 pm Someone is actually only ONE person.
HMG is in practice Locked Out.

Is there any other solution
Dummy HMG ?
Unofficial HMG

Posted: **Tue Apr 13, 2021 8:10 am**

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

Posted: **Mon Dec 18, 2023 6:44 pm**

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?

Posted: **Tue Dec 19, 2023 7:01 am**

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

Posted: **Tue Dec 19, 2023 9:59 am**

mol wrote: ↑Mon Dec 18, 2023 6:44 pm 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 )

Posted: **Tue Dec 19, 2023 1:17 pm**

Thank you Edward!

HMGforum.com

HMG 3.4.4

Re: HMG 3.4.4

Re: HMG 3.4.4

Re: HMG 3.4.4

Re: HMG 3.4.4

Re: HMG 3.4.4

Re: HMG 3.4.4

Re: HMG 3.4.4

Re: HMG 3.4.4

Re: HMG 3.4.4

Re: HMG 3.4.4