38 lines
663 B
Text
38 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
|