HyperLinks

[PaRaDoX-Vision]

Thema: HyperLinks

Wäre toll wenn das schon in XProfan eingebaut wäre:

Beispiel: (nicht anklicken)

http://beispiel.de

Ein Klick auf so einen Verweis sollte aber nicht nur die Möglichkeit
bieten eine Webseite oder das E-Mail Programm zu öffnen.
Vielmehr sollte es auch möglich sein dieses Mittel als
Navigation in eigenen XProfan Progammen einsetzen zu können.

Meine Proc 1
Meine Proc 2

Gruß

[Bangkok]

Du kannsr aber schon jetzt mit

Control("SysLink","a href=\qhttp://www.xprofan.com/\q>xprofan.com</a>",$50000000,10,10,80,25,%HWnd,9999,%hInstance,0)

einen Hyperlink erstellen.

Abgefragt wird mit hittest, aber es reagiert auch auf Getfocus() nicht auf CLicked().

[RGH]

... und wenn man unterschiedliche IDs verteilt (in meinem nachfolgenden Beispiel 9001 bis 9004), dann klappt es auch perfekt mit Clicked():

cls
var hDlg& = create("Dialog", %hWnd, "Test", 10,10,300,200)
var x& = Control("SysLink","<a href=\qhttp://www.xprofan.com/\q>xprofan.com</a>",$50000000,10,10,80,25,hDlg&,9001,%hInstance,0)
var y& = Control("SysLink","<a>Hugo</a>",$50000000,10,50,80,25,hDlg&,9002,%hInstance,0)
var z& = Control("SysLink","<a>Toast</a>",$50000000,10,90,80,25,hDlg&,9003,%hInstance,0)
var ende& = Control("SysLink","<a>Ende</a>",$50000000,10,130,80,25,hDlg&,9004,%hInstance,0)
while 1
  waitinput
  if clicked(x&)
    Messagebox("Weblink: XProfan","Test",0)
    print gettext$(x&)
  elseif clicked(y&)
    Messagebox("Textlink: Hugo","Test",0)
  elseif clicked(z&)
    Messagebox("Textlink: Toast","Test",0)
  elseif clicked(ende&)
    break
  endif
endwhile  
end

Gruß
Roland

[PaRaDoX-Vision]

Hallo,
Ich benutze eine andere Möglichkeit.
Aber diese hier gefällt mir gut.
"SysLink" hatte ich noch gar nicht auf dem Schirm.
Jetzt hakts bei dieser Lösung aber noch an der Transparenz.
Sieht man toll wenn man im Beispiel von RGH ein Control
mal auf das %hwnd legt. Mal schaun.

Anmerkung: Das SysLink-Control (quasi der Hyperlink in einer Windows-Anwendung) ist erst ab Windows XP vorhanden.

Gruß