From: Thomas, T. B <tim...@lm...> - 2001-01-23 16:32:42
|
Sean - Thanks! That was my next step, but didn't yet have the time to research how to go about doing it. Didn't know it was so easy to = implement a custom cursor like that. Your code works perfectly. Deviating from Win32-GUI somewhat: Next step is to figure out how to mimik a "mailto:" for the e-mail link. Should be easy, once we figure out how to determine what the = default e-mail program is. Not sure what assication is set for that. .html for = the browser is easy, but what about e-mail's? maybe .msg? Here's the ftype = info for .msg on my NT system, using outlook for e-mail.=20 C:\>assoc .msg .msg=3Dmsgfile C:\>ftype msgfile msgfile=3D"C:\Program Files\Microsoft Office\Office\OUTLOOK.EXE" /f = "%1" Someone else see what it is on theirs, inparticular if you use Netscape Messenger. I'm not sure that's as much of a standard as .html. Thanks again Sean! Tim ------------------------------------------------------------------------= ---- --------------------- Tim Thomas Unix Systems Administrator Lockheed Martin EIS =B7 Denver Data Center 303-430-2281 mailto:tim...@lm... ------------------------------------------------------------------------= ---- --------------------- -----Original Message----- From: Sean Healy [mailto:jal...@ho...] Sent: Monday, January 22, 2001 6:21 PM To: per...@li... Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About Window >Here's the code that you all helped me to figure out. You can use this = to >implement a clickable URL in your About Window, or whereever you like. = The >code may not be very clean, let me know if you have suggestions to = improve >this. This example runs as-is. This is great! I've been playing with it a bit, and I added some stuff = so=20 you can change the cursor when it's over the link. You put this code=20 somewhere before the label with the URL: $linkCursor =3D new Win32::GUI::Cursor('harrow.cur'); $urlClass =3D new Win32::GUI::Class( -name =3D> "UrlLabelClass", -extends =3D> "STATIC", -cursor =3D> $linkCursor, ); Then you add '-class =3D> $urlClass' to the label. The cursor = 'harrow.cur' is included with the Win32-GUI samples. (I think) STATIC is what Windows=20 actually calls labels. _________________________________________________________________ Get your FREE download of MSN Explorer at http://explorer.msn.com _______________________________________________ Perl-Win32-GUI-Users mailing list Per...@li... http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users |