%[@ IncludeFile "Code/Util.vbs" ]%>
<%[@ IncludeFile "Code/Lang.vbs" ]%>
<%[
strTitle = Dic("PictureGallery")
InitGlobalVariables
fPrivateFolder = Eval(Left(Report.FileOutput,g_nPrivateFolder)=g_strPrivateFolder)
]%>
@[ Report.WriteText strTitle]@
<%[
g_ichNotesStart = Report.BufferLength
WriteHtmlButtonToggle("Notes")
ichNotesEnd = Report.BufferLength
g_ichReferencesStart = Report.BufferLength
WriteHtmlButtonToggle("OtherDetails")
ichReferencesEnd = Report.BufferLength
]%>
@[ Report.WriteText strTitle ]@
<%[
Pictures.SortBy("Name")
Dim strDimension, c, strName
For Each p In Pictures
If fPrivateFolder Or Not isPrivate(p) Then
Report.WriteLn ""
strDimension = p.PictureDimension(g_cxPictureSizeLarge & "x" & g_cyPictureSizeLarge)
WriteHtmlPicture p, Util.GetWidth(strDimension), Util.GetHeight(strDimension), g_cxyPicturePadding, "right", g_cxPictureSizeLarge, g_cyPictureSizeLarge
Report.WriteLn "
"
Report.WriteFormattedLn " ", p.ID
Report.WriteT3 "",Util.IfElse(g_fUsePictureId = True,p.ID,Trim(p.Name)),"
"
strName = Util.IfElse(g_fUse_PictureId,Trim(p.Name),"")
Report.WritePhraseDic "PhPictureDetails", Util.IfElse(g_fHidePictureName, "", strName), p.Date.ToStringNarrative, StrHtmlHyperlink(p.Place), ""
WriteHtmlFootnoteRef p.Source
WriteHtmlAdditionalInformation p
WriteHtmlAnnotation Dic("AnnotationPicture"), p.Comment
Set c = p.Cache
WriteHtmlAnnotation Dic("AnnotationPictureTechnical"), Util.FormatPhrase(Dic("PhPictureTechnical"), c.Dimension, c.Megapixels, c.FileSizeKB, c.Dpi, c.Bpp, p.Path.relative)
WriteHtmlAllFootnotes p.Sources
WriteHtmlReferences p, False
Report.Writeln "
"
End If
Next
' remove any unecessary items (reverse order to avoid invalidating buffer pointers)
If g_ichReferencesStart >= 0 Then
' We have no place references, so remove the "Show All References | Hide All References"
Report.BufferRemoveAt ichReferencesStart, ichReferencesEnd
End If
If (g_ichNotesStart >= 0) Then
' We have no annotations, so remove the "Show All Notes | Hide All Notes"
Report.BufferRemoveAt g_ichNotesStart, ichNotesEnd
End If
]%>
<%[ WriteHtmlFramesetSafeguard("Places") ]%>