Link de email ou url no status bar

[asimoes]

Caros,

Tem algum exemplo de colocar um email ou url no status bar , ao clicar invocar a url ou gerenciador de email ?

[Claudio Soto]

En HMG colocar en el Action del control:

...
Action URL_OPEN( URL_BLOG )
...


#xtranslate URL_BLOG => "http://srvet.blogspot.com"
#xtranslate URL_FORUM => "http://www.hmgforum.com"

#xtranslate URL_OPEN (<cURL>) => ShellExecute(0, "open", "rundll32.exe", "url.dll,FileProtocolHandler " + <cURL>, NIL, 1)

[Claudio Soto]

Este esta es la implementación de ShellExecute en HMG:

#pragma BEGINDUMP

#include <windows.h>
#include "hbapi.h"

HB_FUNC( SHELLEXECUTE )
{
CoInitializeEx (NULL, COINIT_APARTMENTTHREADED | COINIT_DISABLE_OLE1DDE);
HINSTANCE hInstance = ShellExecute( (HWND) hb_parnl(1), HB_ISNIL(2) ? NULL : (LPCTSTR) hb_parc(2),(LPCTSTR) hb_parc(3),HB_ISNIL(4) ? NULL : (LPCTSTR) hb_parc(4),HB_ISNIL(5) ? NULL : (LPCTSTR) hb_parc(5),hb_parni(6) );
hb_retnl ( hInstance );
}
#pragma ENDDUMP

[asimoes]

Obrigado Dr. Claudio

[Claudio Soto]

Para mail queda así:

cMail := "mymail@xxxxx.com"

ShellExecute(0, "open", "rundll32.exe", "url.dll,FileProtocolHandler mailto:" + cMail , NIL,1)

[Toledo]

Link em StatusBar com HwGui, acho que não tem como, mas pode usar:

@ <x>,<y> SAY [ <oSay> CAPTION ] <caption> ;
[ OF <oWnd> ] ;
LINK <cLink> ;
[ ID <nId> ] ;
[ SIZE <width>, <height> ] ;
[ COLOR <color> ] ;
[ BACKCOLOR <bcolor> ] ;
[ TRANSPARENT>] ;
[ ON INIT <bInit> ] ;
[ ON SIZE <bSize> ] ;
[ ON PAINT <bDraw> ] ;
[ ON CLICK <bClick> ] ;
[ STYLE <nStyle> ] ;
[ FONT <oFont> ] ;
[ TOOLTIP <ctoolt> ] ;
[ BITMAP <hbit> ] ;
[ VISITCOLOR <vcolor> ] ;
[ LINKCOLOR <lcolor> ] ;
[ HOVERCOLOR <hcolor> ]

Abraços,

[asimoes]

Dr. Claudio,

Funcionou 100%