wenn man ein Bild stark vergrößert, erscheinen die Laufleisten des Webgadget.
Wenn ich die linke Maustaste drücke und die Maus z.B. am rechten Webgadgetrand bewege, dann scollt das Bild.
Leider nicht, wenn ich das selbe in der Mitte des Webgadget mache.
Geht das überhaupt nicht?
Code: Alles auswählen
StandardFile$ = ""
Pattern$ = "Bilder (*.jpg)|*.jpg|Alle Dateien (*.*)|*.*"
Pattern = 0
File$ = OpenFileRequester("Bitte Datei zum Laden auswählen", StandardFile$, Pattern$, Pattern)
If File$
path$=GetPathPart(File$)
NewList bilder.s()
Directory$ = Left(path$,Len(path$)-1)+"/"
If ExamineDirectory(0, Directory$, "*.*")
While NextDirectoryEntry(0)
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
If UCase(GetExtensionPart(DirectoryEntryName(0))) = "JPG"
AddElement(bilder())
bilder() = DirectoryEntryName(0)
EndIf
EndIf
Wend
FinishDirectory(0)
EndIf
If ListSize(bilder()) = 0
MessageRequester("", "Keine darstellbaren Bilder gefunden. Programm wird beendet")
End
EndIf
SelectElement(bilder(), 0)
anzBild1$= bilder()
SelectElement(bilder(), 6)
anzBild2$= bilder()
bh=200
Gosub htmlseite
OpenWindow(0,10,10,600,600,"Bilder anzeigen",#PB_Window_WindowCentered|#PB_Window_SystemMenu)
WebGadget(1,100,50,400,400,"")
ButtonGadget(2,10,10,100,30,"Vergrößern")
ButtonGadget(3,130,10,100,30,"Verkleinern")
ButtonGadget(4,250,10,100,30,"vorheriges Bild")
ButtonGadget(5,370,10,100,30,"nächstes Bild")
ButtonGadget(6,490,10,100,30,"Verlassen")
SetGadgetItemText(1,#PB_Web_HtmlCode,bhtml$)
Repeat
Event = WaitWindowEvent()
WindowID = EventWindow()
GadgetID = EventGadget()
EventType = EventType()
Select event
Case #PB_Event_Gadget
If EventGadget() = 1 And EventType() =#PB_EventType_LeftClick
SetGadgetAttribute(1,#PB_Web_ScrollX,WindowMouseX(0))
SetGadgetAttribute(1,#PB_Web_ScrollY,WindowMouseY(0))
EndIf
If EventGadget() = 2
bh=bh+50
Gosub htmlseite
SetGadgetItemText(1,#PB_Web_HtmlCode,bhtml$)
EndIf
If EventGadget() = 3
bh=bh-50
Gosub htmlseite
SetGadgetItemText(1,#PB_Web_HtmlCode,bhtml$)
EndIf
If EventGadget() = 4
anzBild1$= bilder()
PreviousElement(bilder())
anzBild2$= bilder()
Gosub htmlseite
SetGadgetItemText(1,#PB_Web_HtmlCode,bhtml$)
EndIf
If EventGadget() = 5
anzBild1$= bilder()
NextElement(bilder())
anzBild2$= bilder()
Gosub htmlseite
SetGadgetItemText(1,#PB_Web_HtmlCode,bhtml$)
EndIf
If EventGadget() = 6
Event = #PB_Event_CloseWindow
End
EndIf
EndSelect
Until Event = #PB_Event_CloseWindow
Else
MessageRequester("Information", "Sie müssen eine Datei auswählen!", 0)
EndIf
End
htmlseite:
bhtml$ = "<!DOCTYPE html PUBLIC '-//W3C//DTD HTML 4.01//EN' 'http://www.w3.org/TR/html4/strict.dtd'>"
bhtml$ + "<html><head><meta content='text/html; charset=ISO-8859-1' http-equiv='content-type'>"
bhtml$ + "<title>Bilder anzeigen</title></head><body>"
bhtml$ + "<img style='height: "+ Str(bh)+"px' alt='Bilder' title='Bild1' src='file://" + Directory$ + bilder() +"'>"
bhtml$ + "</body></html>"
Return
