HMGforum.com

Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
  1. HMG General Help • Hyperlink file:// error
    Thank you Theo. Its a argentinean popular drink. After the wine, of course and mates https://en.wikipedia.org/wiki/Mate_(beverage)

    Statistics: Posted by Pablo César — Sat Mar 25, 2017 6:22 pm


  2. HMG General Help • Re: Hyperlink file:// error
    and now I drunk Fernet+Coke
    Cheers Pablo !

    Statistics: Posted by trmpluym — Sat Mar 25, 2017 5:03 pm


  3. HMG General Help • Hyperlink file:// error
    trmpluym wrote:
    Sat Mar 25, 2017 1:19 pm
    I modified it to include the used form so i can use it as a universal replacement of the current HYPERLINK control.
    Good ! I will check your code later. After my weekly pedaling (I love to ride my bicycle) and now I drunk Fernet+Coke which I can confess that I have no concentration right now... :)
    trmpluym wrote:
    Sat Mar 25, 2017 1:19 pm
    How can i also make the syntax below possible ?

    DEFINE MyHYPERLINK hplBrochure
    Why you do not try to make by label control. See my i_UsrInit.ch file and try to compose yours. Hyperlink its uses labels.
    Otherwise you will need to create your own control.

    Statistics: Posted by Pablo César — Sat Mar 25, 2017 3:10 pm


  4. HMG General Help • Re: Hyperlink file:// error
    Hi Pablo,

    I finaly found the time to dig into your code. I modified it to include the used form so i can use it as a universal replacement of the current HYPERLINK control.

    Here the modified parts:

    CODE:

    *---------------------------------------------------------------------------------------------------------------------------------------------------------------*Function MySetAddressControlProcedure(cForm, cCtrl, cURL) LOCAL bCode, nIndex:=GetControlIndex(cCtrl, cForm )If ("@" $ cURL )   bCode := {||ShellExecute(0, "open", "rundll32.exe", "url.dll,FileProtocolHandler mailto:" + cURL, ,1),ChangeColor(cForm,cCtrl,.F.)}Else   bCode := {||ShellExecute(0, "open", "rundll32.exe", "url.dll,FileProtocolHandler " + cURL, ,1),ChangeColor(cForm,cCtrl,.F.)}Endif_HMG_SYSDATA [ 6 ][nIndex] := bCode_HMG_SYSDATA [ 8 ][nIndex] := cURLReturn Nil*---------------------------------------------------------------------------------------------------------------------------------------------------------------*STATIC Function ChangeColor(cForm,cCtrlName,lOn)LOCAL nColor:=1LOCAL aColorNow:={ {{000,000,255} , {102,000,153}} ,; // Conventional                     {{000,000,102} , {153,153,204}} ,; // Blue                     {{000,102,102} , {153,255,255}} ,; // Cyan                     {{080,080,080} , {153,153,153}} ,; // Gray                     {{000,153,000} , {000,051,000}} ,; // Green                     {{204,000,204} , {102,051,102}} ,; // Margenta                     {{204,000,000} , {153,051,051}} ,; // Red                     {{255,255,000} , {153,153,000}} }  // YellowSetProperty(cForm, cCtrlName, "FONTCOLOR", aColorNow[nColor,If(lOn,1,2)])Return Nil*---------------------------------------------------------------------------------------------------------------------------------------------------------------*
    Offcause many thanks again for helping me out !

    I learned a lot from your example, for example the use of the i_UsrInit.ch file:

    http://harbourminigui.com/hmgguide/user-components.htm

    But i have an additional question.

    For now i have to use the syntax below:

    CODE:

    @ 365,105 MyHYPERLINK hplBrochure VALUE "open" WIDTH 30 ADDRESS ""   
    How can i also make the syntax below possible ?

    CODE:

    DEFINE MyHYPERLINK hplBrochureROW    365COL    105VALUE "open"WIDTH  30ADDRESS ""END MyHYPERLINK
    Theo

    Statistics: Posted by trmpluym — Sat Mar 25, 2017 1:19 pm


  5. HMG General Help • Re: Application Internal Error
    Hi Pablo, still running as administrator. It always asks 'run as adm?' ans I say Yes and the it works of course.

    Serge

    Statistics: Posted by serge_girard — Sat Mar 25, 2017 8:41 am