Warum geht dass nicht??
Verfasst: 17.03.2006 02:04
Bei mir stuerzt dieser Code mit einem Invalid Memory Acces ab (Beta 6).
Weiss jemand warum???
Die procedure ist irgendwas zum Scrollen im Webgadget und die hab ich irgendwo im inet gefunden.
Weiss jemand warum???
Die procedure ist irgendwas zum Scrollen im Webgadget und die hab ich irgendwo im inet gefunden.
Code: Alles auswählen
Procedure WebGadget_Scroll(Gadget.l, x.l, y.l)
Protected Browser.IWebBrowser2
Protected Window.IHTMLWindow2
Protected DocumentDispatch.IDispatch
Protected Document.IHTMLDocument2
Browser.IWebBrowser2 = GetWindowLong_(GadgetID(Gadget), #GWL_USERDATA)
If Browser
If Browser\get_Document(@DocumentDispatch.IDispatch) = #S_OK
If DocumentDispatch\QueryInterface(?IID_IHTMLDocument2, @Document.IHTMLDocument2) = #S_OK
If Document\get_parentWindow(@Window.IHTMLWindow2) = #S_OK
While WindowEvent(): Wend ; wichtig!
Window\ScrollTo(x, y)
Window\Release()
EndIf
Document\Release()
EndIf
DocumentDispatch\Release()
EndIf
EndIf
EndProcedure
OpenWindow(1, 0, 0,363, 144, "KoMaNi Login", #PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_TitleBar); | #PB_Window_Invisible)
OpenPreferences("Test")
End
DataSection
IID_IHTMLDocument2: ; {332C4425-26CB-11D0-B483-00C04FD90119}
Data.l $332C4425
Data.w $26CB, $11D0
Data.b $B4, $83, $00, $C0, $4F, $D9, $01, $19
EndDataSection