HMG 3.4.4
Moderator: Rathinagiri
Re: HMG 3.4.4
Actually, everything you touch on the screen is like a mouse click.
All The Best,
Franco
Canada
Franco
Canada
Re: HMG 3.4.4
Can somebody integrate new gcc 10.3 and hb 3.2 compiled with this one to the new version of hmg?
Re: HMG 3.4.4
Someone is actually only ONE person.
HMG is in practice Locked Out.
HMG is in practice Locked Out.
Angel Pais
Web Apps consultant/architect/developer.
Web Apps consultant/architect/developer.
- serge_girard
- Posts: 3223
- Joined: Sun Nov 25, 2012 2:44 pm
- DBs Used: 1 MySQL - MariaDB
2 DBF - Location: Belgium
- Contact:
Re: HMG 3.4.4
It's a pity there is no way to develop official HMG. It's not needed to create another fork
Re: HMG 3.4.4
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?
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?
Re: HMG 3.4.4
My solution for now is label with action RunHttpsLink("https://molsystemy.pl")
where function RunHttpsLink is defined like below:
where function RunHttpsLink is defined like below:
Code: Select all
Function RunHttpsLink(cAddress)
Execute file cAddress
Return
Re: HMG 3.4.4
Zmień w h_label.prg w funkcji _DefineLabel wiersz: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?
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 )
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 )