Hyperlinks

[Brian]

Evening,

I'd like to put a couple of hyperlinks in a dialog box. Is there an easy enough way to do it?
I have had a look through my hundreds of files, and can't see anything

Thanks,

Brian

[LarryMc]

Code Select Expand

/*'==================================================================================================
HyperLink Example
'==================================================================================================*/
$include "windowssdk.inc"
dialog about


int sh,cid,chng
CREATEDIALOG about,0,0,300,260,0x80C00080,0,"About",&Do_About
CONTROL about,@STATIC,"IWBasic Version 2.0",14,170,274,14,0x50000101,11
CONTROL about,@BUTTON,"OK",120,225,60,20,0x50010001,20
domodal about

global SUB Do_About(),int
SELECT @CLASS
CASE @IDINITDIALOG
CENTERWINDOW about
SETCONTROLCOLOR about,20,RGB(0,0,0),RGB(0,192,192)
        SetControlColor about,11,0xFF0000,Getsyscolor(15)
cid=0:chng=0
      sh = GetControlHandle(about,11)
CASE @IDCONTROL
SELECT @CONTROLID
case 11
if @notifycode=0
System "http://www.ionicwind.com/"
SendMessage (about,WM_SetCursor,0,sh)
endif
CASE 20
if @notifycode=0
CLOSEDIALOG about,@IDOK
endif
ENDSELECT
  Case WM_SetCursor
      cid = GetDlgCtrlID(@Code)
if (cid = 11) AND (chng = 0)
SetFont about,"",8,400,@SFUnderLine,11
SetControlColor about,11,0x0000FF,Getsyscolor(15)
chng = 1
Else
If (cid <> 11)AND (chng = 1)
SetFont about,"",8,400,0,11 
SetControlColor about,11,0xFF0000,Getsyscolor(15)
chng = 0
EndIf
endif
ENDSELECT
RETURN 0
ENDSUB


[Brian]

Great! Fitted and working

Thanks, Larry

BTW: How are you feeling?

[LarryMc]

Thanks for asking.
Still sore. Got 14 of my 28 staples out yesterday but the rest weren't ready. Bile is still coming out of my drain.  I have an extra bile duct that is leaking.  Just got back from scheduling another procedure for this coming Tuesday.  They going to go in through my mouth and put a stent in the main bile duct to block off the one that is leaking.
Best case is I come home same day.  Worse case is they have to cut me open again.

At least I'm not staring at grass roots everyday.
But I am pretty weak right now; so I check the forums in spurts.

[Brian]

Abort, abort! I have fixed the focus problem by having two variables - chng1 and chng2,
instead of the single chng. Works OK now

Larry,

Am I doing it right? I have two hyperlinks that I want to select from in my dialog box,
and I notice that it doesn't always relinquish the focus from one to the other

Here's the code:

INT sh1,sh2,cid,chng
ISTRING theYear[5],theMonth[4]

SUB HelpDlg(),INT
   SELECT @CLASS
CASE @IDINITDIALOG
   CENTERWINDOW help
   SETFONT help,"MS Sans Serif",8,700,0,20
   SETCONTROLCOLOR help,20,RGB(255,255,255),RGB(32,37,138)
   SETCONTROLCOLOR help,22,0xFF0000,GetSysColor(15)
   SETCONTROLCOLOR help,24,0xFF0000,GetSysColor(15)
   cid=0
   chng=0
   sh1=GETCONTROLHANDLE(help,22)
   sh2=GETCONTROLHANDLE(help,24)
   theMonth=MID$(DATE$("ddd',' MMM dd yyyy"),6,3)
   theYear=MID$(DATE$("ddd',' MMM dd yyyy"),13,4)
CASE @IDCONTROL
   SELECT @CONTROLID
CASE 22
   SYSTEM "e:\\Compilers"
'   SYSTEM "Q:\\Archive"
   SENDMESSAGE(help,WM_SETCURSOR,0,sh1)
CASE 24
   SYSTEM "e:\\Downloads"
'   SYSTEM "K:\\MemberDatabaseFolders\\Letters\\Data\\AF\\"+theYear+"\\"+theMonth
   SENDMESSAGE(help,WM_SETCURSOR,0,sh2)
CASE 30
IF @NOTIFYCODE=0
   CLOSEDIALOG help,@IDOK
ENDIF
ENDSELECT
CASE WM_SETCURSOR
   cid=GetDlgCtrlID(@CODE)
IF (cid=22) AND (chng=0)
   SETFONT help,"",8,400,@SFUNDERLINE,22
   SETCONTROLCOLOR help,22,0x008000,GetSysColor(15)
   chng=1
ELSE
IF (cid<>22) AND (chng=1)
   SETFONT help,"",8,400,0,22
   SETCONTROLCOLOR help,22,0xFF0000,GetSysColor(15)
   chng=0
ENDIF
ENDIF
IF (cid=24) AND (chng=0)
   SETFONT help,"",8,400,@SFUNDERLINE,24
   SETCONTROLCOLOR help,24,0x008000,GetSysColor(15)
   chng=1
ELSE
IF (cid<>24) AND (chng=1)
   SETFONT help,"",8,400,0,24
   SETCONTROLCOLOR help,24,0xFF0000,GetSysColor(15)
   chng=0
ENDIF
ENDIF
ENDSELECT
RETURN 0
ENDSUB