ListIconGadget doppelklick URL-Aufruf

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
marcelx
Beiträge: 379
Registriert: 19.02.2010 20:19
Wohnort: Darmstadt

ListIconGadget doppelklick URL-Aufruf

Beitrag von marcelx »

Hallo zusammen,

wie kann ich mit ein doppelklick auf ein der URL diese mit RunProgram aufrufen?

Code: Alles auswählen

#tbl=0
If OpenWindow(0, 0, 0, 640, 300, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  TextGadget(6,  10,  10, 300, 20, "List", #PB_Text_Center)
  Col_ListIconGadget = ListIconGadget(#tbl,  10,  25, 300, 150, "Daten 1", 100, #PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)

  AddGadgetColumn(#tbl, 2, "Daten 2", 200)

 
  AddGadgetItem(#tbl, -1, "Daten 1"+Chr(10)+"aaa www.web.de bbb")
  AddGadgetItem(#tbl, -1, "Daten 2 www.web.de"+Chr(10)+"ddd https://www.wetter.com/ eee")

  Repeat
    Event = WaitWindowEvent()
    Select Event
      Case #PB_Event_Gadget
        evG = EventGadget()
        Select evG
          Case #tbl
            If EventType() = #PB_EventType_LeftDoubleClick
              ZeileNr = GetGadgetState(#tbl)
              Debug "Zeile: "+Str(ZeileNr)
                ; RunProgram(web)
            EndIf
        EndSelect
    EndSelect
  Until Event = #PB_Event_CloseWindow
EndIf
Zuletzt geändert von marcelx am 07.07.2019 19:41, insgesamt 1-mal geändert.
Win-10, PB 5.31 (Windows - x86)
Andesdaf
Moderator
Beiträge: 2628
Registriert: 15.06.2008 18:22
Wohnort: Dresden

Re: ListIconGadget doppelklick URL-Aufruf

Beitrag von Andesdaf »

Wenn es nur eine URL pro Zeile ist, könntest du sie eventuell per Regexp ermitteln und dann aufrufen. Oder du hinterlegst eine Liste, in der die URLs direkt aufrufbar gespeichert sind und verbindest sie mit dem ListIcon.
Win10 x64 | PB 5.73 (x64)
Benutzeravatar
marcelx
Beiträge: 379
Registriert: 19.02.2010 20:19
Wohnort: Darmstadt

Re: ListIconGadget doppelklick URL-Aufruf

Beitrag von marcelx »

Es können kein oder mehrere URL geben.
Meine Frage ist, wie komme ich an der Daten (Zeile habe in "ZeileNr") wie komme ich an der Spalte-Nr ?
Win-10, PB 5.31 (Windows - x86)
RSBasic
Admin
Beiträge: 7882
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: ListIconGadget doppelklick URL-Aufruf

Beitrag von RSBasic »

Code: Alles auswählen

Debug GetGadgetItemText(#tbl, ZeileNr, 1)
BildBildBildBild BildBild
Benutzeravatar
marcelx
Beiträge: 379
Registriert: 19.02.2010 20:19
Wohnort: Darmstadt

Re: ListIconGadget doppelklick URL-Aufruf

Beitrag von marcelx »

für GetGadgetItemText benötig ich die SpalteNr

ADD:
die eine Zeile habe ich geändert:

Code: Alles auswählen

AddGadgetItem(#tbl, -1, "Daten 2 www.web.de"+Chr(10)+"ddd https://www.wetter.com/ eee")
Win-10, PB 5.31 (Windows - x86)
RSBasic
Admin
Beiträge: 7882
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: ListIconGadget doppelklick URL-Aufruf

Beitrag von RSBasic »

Achso, du willst also auch ermitteln, auf welche Spalte bzw. auf welche Zelle geklickt wurde: https://www.rsbasic.de/aktualisierung/w ... swerten.pb
BildBildBildBild BildBild
Benutzeravatar
marcelx
Beiträge: 379
Registriert: 19.02.2010 20:19
Wohnort: Darmstadt

Re: ListIconGadget doppelklick URL-Aufruf

Beitrag von marcelx »

Danke RSBasic.
Wenn ich die Position, beim Klicken, in den String hätte wäre es hilfreich um der URL zu bekommen.
Wie gesagt in eine Spalte könnte auch mehrere URL geben.
Win-10, PB 5.31 (Windows - x86)
RSBasic
Admin
Beiträge: 7882
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: ListIconGadget doppelklick URL-Aufruf

Beitrag von RSBasic »

Du könntest HyperLinks in den Zellen erstellen und im Callback auswerten: https://www.purebasic.fr/english/viewto ... 12&t=55780
Oder: https://www.purebasic.fr/english/viewto ... 13&t=30275

Den Code müsstest du aber noch anpassen, so dass du auch mehrere Links in einer Zelle erstellen kannst, die du getrennt auswerten kannst.
BildBildBildBild BildBild
Benutzeravatar
marcelx
Beiträge: 379
Registriert: 19.02.2010 20:19
Wohnort: Darmstadt

Re: ListIconGadget doppelklick URL-Aufruf

Beitrag von marcelx »

Danke für die Links.
Ich werde es morgen ansehen
Win-10, PB 5.31 (Windows - x86)
Antworten