c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
37 lines
663 B
Text
37 lines
663 B
Text
' Gambas class file
|
|
|
|
sCommon As String = ""
|
|
sDetail As String = ""
|
|
|
|
Public Sub Form_Open()
|
|
|
|
sCommon = FMain.GetExifInfoCommon(Me.Tag)
|
|
If sCommon = "" Then
|
|
Message.Info(("There are no Exif informations in this file."))
|
|
Me.Close
|
|
Endif
|
|
txlExif.Text = sCommon
|
|
|
|
End
|
|
|
|
Public Sub btnClose_Click()
|
|
|
|
Me.Close
|
|
|
|
End
|
|
|
|
Public Sub btnDetails_Click()
|
|
|
|
If btnDetails.Text = ("&More") Then
|
|
If sDetail = "" Then sDetail = FMain.GetExifInfoAll(Me.Tag)
|
|
txlExif.Text = sDetail
|
|
txlExif.Adjust
|
|
btnDetails.Text = ("&Less")
|
|
Else
|
|
txlExif.Text = sCommon
|
|
txlExif.Width = 567
|
|
txlExif.Height = 259
|
|
btnDetails.Text = ("&More")
|
|
Endif
|
|
|
|
End
|