49 lines
944 B
Text
49 lines
944 B
Text
VERSION DVX 1.00
|
|
Begin Form ImgViewForm
|
|
Caption = "Image Viewer"
|
|
Layout = VBox
|
|
AutoSize = False
|
|
Resizable = True
|
|
Centered = True
|
|
Width = 400
|
|
Height = 320
|
|
Begin Menu mnuFile
|
|
Caption = "&File"
|
|
Begin Menu mnuOpen
|
|
Caption = "&Open..."
|
|
End
|
|
Begin Menu mnuSep1
|
|
Caption = "-"
|
|
End
|
|
Begin Menu mnuClose
|
|
Caption = "&Close"
|
|
End
|
|
End
|
|
Begin Image ImgDisplay
|
|
Weight = 1
|
|
Stretch = True
|
|
End
|
|
End
|
|
|
|
'$INCLUDE: 'commdlg.bas'
|
|
|
|
|
|
SUB mnuOpen_Click
|
|
DIM path AS STRING
|
|
path = basFileOpen("Open Image", "Images (*.bmp;*.png;*.jpg;*.gif)|All Files (*.*)")
|
|
IF path = "" THEN
|
|
EXIT SUB
|
|
END IF
|
|
ImgDisplay.Picture = path
|
|
ImgViewForm.Caption = path + " - Image Viewer"
|
|
END SUB
|
|
|
|
|
|
SUB mnuClose_Click
|
|
Unload ImgViewForm
|
|
END SUB
|
|
|
|
|
|
SUB ImgDisplay_DblClick
|
|
mnuOpen_Click
|
|
END SUB
|