möchte gern meinen Inhalt vom Webgadgt in ein zweites duplizieren, gelingt(GetGadgetText,GetGadgetItemText) aber nicht!
Code: Alles auswählen
Global HtmlLesezeichenGesamt
Global HTML.s
HTML + "<!DOCTYPE html><html lang='de' ><head><title>Änderungen - Assembling</title><style type='text/css'>#Codecschattig { 3px 2px; font-size:0,8em; color:#FFFF99; }#Codecschattig2 { text-shadow:black 3px 2px font-size:'0,6em' color:yellow }</style><meta name='viewport' content='width=630' user-scalable = 'yes' initial-scale = '0.4' maximum-scale = '1' />"
HTML + "</head><body bgcolor='#000000' text='#FFCC99' link='#FFFFFF' vlink='#FFFFFF' alink='#FFFFFF'> <div style='position:relative ; width:630px'><basefont size='3' color='#FFCC99' face='Verdana'><div style='page-Break-after: always'> <!-- Kommentar: Ringbutton Black anzeigen etc. -->"
HTML + "<a href=><div></div></div></body></html>"
; =============
If OpenWindow(0, 0, 0, 600, 350, "WebGadget Inhalt Duplizieren", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
WebGadget(0, 10, 10, 300, 280, "")
SetGadgetItemText(0,#PB_Web_HtmlCode,HTML,0)
WebGadget(1, 300, 10, 300, 280, "http://www.purebasic.com")
ButtonGadget(2,0,350-20,600,20,"Duplizieren")
Define WindowNr ,EventID ,Key.l
Repeat
WindowNr = EventWindow()
EventID = WaitWindowEvent()
Select EventID
Case #PB_Event_CloseWindow
End
Case #PB_Event_Gadget
Select EventGadget()
Case 2
Debug "BTN"
SetGadgetItemText(1,-1,GetGadgetItemText(0,-1,0),0)
EndSelect
EndSelect
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Gruss Velindos!
