Code: Alles auswählen
Repeat
Event = WaitWindowEvent()
WindowID=EventWindowID()
;-deutsch mausover
If mouseovergadget(#button1) And sprache$="german"
If Schalterbut1=1
SetGadgetState(#button1,UseImage(#bover1))
Schalterbut1=0
Else
EndIf
ElseIf Schalterbut1=0 And sprache$="german"
SetGadgetState(#button1,UseImage(#bild1))
Schalterbut1=1
EndIf
If mouseovergadget(#button2) And sprache$="german"
If Schalterbut2=1
SetGadgetState(#button2,UseImage(#bover2))
Schalterbut2=0
Else
EndIf
ElseIf Schalterbut2=0 And sprache$="german"
SetGadgetState(#button2,UseImage(#bild2))
Schalterbut2=1
EndIf
;-----------
;-english mausover
If mouseovergadget(#button1) And sprache$="english"
SetGadgetState(#button1,UseImage(#bengover2))
Schalterbut1=0
ElseIf Schalterbut1=0 And sprache$="english"
SetGadgetState(#button1,UseImage(#bild4))
Schalterbut1=1
EndIf
If mouseovergadget(#button2) And sprache$="english"
SetGadgetState(#button2,UseImage(#bengover1))
Schalterbut2=0
ElseIf Schalterbut2=0 And sprache$="english"
SetGadgetState(#button2,UseImage(#bild3))
Schalterbut2=1
EndIf
;-------------
If Event = #PB_EventGadget
GadgetID = EventGadgetID()
If GadgetID = #Panel_0
;-Deutsch
ElseIf GadgetID=#flag_1
germanpack()
;-english
;-bilder button
ElseIf GadgetID=#button1
bvwahl=1
ClearGadgetItemList(#List_1)
bildw=1
FileName$ = OpenFileRequester("Wählen Sie einige Dateien aus","c:","Jpeg,Bitmap und Png | *.jpg;*.bmp;*.png",0, #PB_Requester_MultiSelection)
If FileName$
s=0
Dim files.s(200)
liste=CountGadgetItems(#List_1)
While FileName$
files.s(s)=FileName$
FileName$ = NextSelectedFileName()
AddGadgetItem(#List_1,liste+s,files(s))
filekb.f = FileSize(files(s))
SetGadgetItemText(#List_1,liste+s,StrF(filegroesse(filekb,1024),2),1)
imgadr$=files(s)
Debug Right(imgadr$,3)
If Right(imgadr$,3)="jpg" Or Right(imgadr$,4)="jpeg" Or Right(imgadr$,3)="JPG" Or Right(imgadr$,4)="JPEG"
exif$ = readExif(imgadr$)
exifReset()
While exifNext()
If exifKey()=40962
breiteexif.s=Trim(exifValue())
EndIf
If exifKey()=40963
hoeheexif.s=Trim(exifValue())
EndIf
SetGadgetItemText(#List_1,s,breiteexif,2)
SetGadgetItemText(#List_1,s,hoeheexif,3)
Wend
EndIf
s=s+1
Wend
Else
FileName$=""
EndIf
ElseIf GadgetID=#flag_2
englishpack()
ElseIf GadgetID=#optiongad_1
If option1_state=0
option1_state=1
option2_state=0
SetGadgetState(#optiongad_1,UseImage(#option_2))
SetGadgetState(#optiongad_2,UseImage(#option_1))
EndIf
;Debug lang.s(3)
ElseIf GadgetID=#optiongad_2
If option2_state=0
option1_state=0
option2_state=1
SetGadgetState(#optiongad_1,UseImage(#option_1))
SetGadgetState(#optiongad_2,UseImage(#option_2))
EndIf
;-verzeichniss auswählen
ElseIf GadgetID = #button2
bvwahl=0
bildw=0
ClearGadgetItemList(#List_1)
zaehler=0
;-jpg verz
DateiName$ = PathRequester("Verzeichnis", "c:\")
verz$=DateiName$
If DateiName$
If ExamineDirectory(0,DateiName$,"*.jpg")
Repeat
FileType = NextDirectoryEntry()
If FileType
AddGadgetItem(#List_1,-1,DirectoryEntryName())
texte$=GetGadgetItemText(#List_1,zaehler,0)
imgadr$=DateiName$+texte$
filekb.f = FileSize(imgadr$)
SetGadgetItemText(#List_1,zaehler,StrF(filegroesse(filekb,1024),2),1)
exif$ = readExif(imgadr$)
exifReset()
While exifNext()
If exifKey()=40962
breiteexif.s=Trim(exifValue())
EndIf
If exifKey()=40963
hoeheexif.s=Trim(exifValue())
EndIf
SetGadgetItemText(#List_1,zaehler,breiteexif,2)
SetGadgetItemText(#List_1,zaehler,hoeheexif,3)
Wend
zaehler=zaehler+1
EndIf
Until FileType = 0
EndIf
;-bmp verz
If ExamineDirectory(0,DateiName$,"*.bmp")
Repeat
FileType = NextDirectoryEntry()
If FileType
AddGadgetItem(#List_1,-1,DirectoryEntryName())
texte$=GetGadgetItemText(#List_1,zaehler,0)
imgadr$=DateiName$+texte$
filekb.f = FileSize(imgadr$)
SetGadgetItemText(#List_1,zaehler,StrF(filegroesse(filekb,1024),2),1)
zaehler=zaehler+1
EndIf
Until FileType = 0
EndIf
;-png verz
If ExamineDirectory(0,DateiName$,"*.png")
Repeat
FileType = NextDirectoryEntry()
If FileType
AddGadgetItem(#List_1,-1,DirectoryEntryName())
texte$=GetGadgetItemText(#List_1,zaehler,0)
imgadr$=DateiName$+texte$
filekb.f = FileSize(imgadr$)
SetGadgetItemText(#List_1,zaehler,StrF(filegroesse(filekb,1024),2),1)
zaehler=zaehler+1
EndIf
Until FileType = 0
EndIf
Else
DateiName$=""
EndIf
ElseIf type=#PB_EventType_LeftClick And GadgetID=#List_1
werte=GetGadgetState(#List_1)
If werte<>-1
image$=GetGadgetItemText(#List_1,werte,0)
If bvwahl=0
bildad$= DateiName$+image$
Else
bildad$=files.s(werte)
EndIf
LoadImage(#vorbild,bildad$)
;LoadImage(#vorbild,bildad$)
hoehe=ImageHeight()
breite=ImageWidth()
If hoehe > 250
faktor.f=imagefaktor(hoehe,breite)
ResizeImage(#vorbild,150*faktor,150)
Debug hoeheneu
EndIf
OpenGadgetList(#prevcon)
;-Vorschau mittig
imgh=100-(ImageHeight()/2)
imgb=125-(ImageWidth()/2)
ImageGadget(#vorimg,imgb,imgh,0,0,UseImage(#vorbild))
CloseGadgetList()
Else
EndIf
ElseIf GadgetID=#speichbut
Dateiname2$ = PathRequester("Verzeichnis", "c:\")
SetGadgetText(#stringgad_2,Dateiname2$)
;-verzeichniss auswählen-----end---------
;next elseif
ElseIf GadgetID=#spin1
SetGadgetText(#spin1,Str(GetGadgetState(#spin1)))
ElseIf GadgetID=#spin2
SetGadgetText(#spin2,Str(GetGadgetState(#spin2)))
ElseIf GadgetID=#hintergrund
farbehint.l = ColorRequester(RGB(255,255,255))
PureCOLOR_SetButtonColor(#hintergrund,-1,RGB(Red(farbehint.l),Green(farbehint.l),Blue(farbehint.l)))
ElseIf GadgetID=#schriftfarbe
farbeschrif.l = ColorRequester(RGB(0,0,0))
If farbeschrif.l=-1
PureCOLOR_SetButtonColor(#schriftfarbe,-1,RGB(0,0,0))
Else
PureCOLOR_SetButtonColor(#schriftfarbe,-1,RGB(Red(farbeschrif.l),Green(farbeschrif.l),Blue(farbeschrif.l)))
EndIf
;-vorlagen laden
ElseIf type=#PB_EventType_LeftClick And GadgetID=#list_2
position=GetGadgetState(#list_2)
If position=0
SetGadgetState(#design_prv_gadget,UseImage(#bluebox))
EndIf
If position=1
SetGadgetState(#design_prv_gadget,UseImage(#bluegrey))
EndIf
If position=2
SetGadgetState(#design_prv_gadget,UseImage(#orangered))
EndIf
ElseIf GadgetID=#bildbea
winbea()
EndIf
EndIf
If WindowID=#window_1
Event=WaitWindowEvent()
If Event=#PB_EventCloseWindow
CloseWindow(#window_1)
If Event = #PB_EventGadget
GadgetID = EventGadgetID()
Debug GadgetID
Debug #but1
If GadgetID = #but1
CloseWindow(#window_1)
EndIf
EndIf
EndIf
EndIf
;-fenster2-----------------
Until WindowID = #Window_0 And Event = #PB_EventCloseWindow
KillThread(@infthread)
End
