'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Anim gif, gif & jpg Viewer ~
' 3 sept. 2000 ~
' Mesut Akcan makcan@softhome.net ~
' http://kaynak.cjb.net ~
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
$ESCAPECHARS on
$INCLUDE "RAPIDQ.INC"
DECLARE SUB ChangeDirectories
DECLARE SUB View
DECLARE SUB theEnd
declare sub drivechange
CREATE Form AS QFORM
Caption = "Anim gif, gif & jpg Viewer"
Width = 485
Height = 386
Center
CREATE Drive1 AS QEDIT
left=5
maxlength = 1
Width = 137
onchange = drivechange
END CREATE
CREATE DirList AS QFILELISTBOX
Left = 5
Top = 25
Width = 137
Height = 143
ShowIcons = True
Mask = "*.*"
AddFileTypes(ftDirectory)
DelFileTypes(ftNormal)
OnDblClick = ChangeDirectories
END CREATE
CREATE FileList AS QFILELISTBOX
Left = 5
Top = 172
Width = 137
Height = 185
Mask = "*.gif;*.jp*;*.bmp;*.jif;*.dib"
ShowIcons = 1
TabOrder = 1
onclick = View
END CREATE
visible = 1
CREATE msHTML AS QOLECONTAINER
left = 148
height=form.clientheight
width = 327
createObject("Shell.Explorer.1")
END CREATE
visible = 0
onclose = theEnd
END CREATE
Drive1.text = left$(curdir$,1)
dim c as string
c = "about:"
c = c + "Anim Gif, Gif & Jpg Viewer
Programmed by Mesut Akcan
"
c = c + "makcan@softhome.net
c = c + "
My Home Page"
msHTML.navigate(c)
Form.ShowModal
SUB View
c = "about:![](\"")
"
msHTML.navigate(c)
END SUB
SUB ChangeDirectories
ChDir(DirList.Item(DirList.ItemIndex) - "[" - "]")
DirList.Directory = CurDir$: FileList.Directory = CurDir$
Form.Caption = CurDir$
END SUB
SUB drivechange
dirlist.drive = Drive1.text
END SUB
SUB theEnd
msHTML.free
END SUB