Skip to content

Commit

Permalink
Add files via upload
Browse files Browse the repository at this point in the history
  • Loading branch information
Revan654 committed Jan 20, 2019
1 parent 0c9fcd0 commit dfbe085
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions UI/ImageUtils.vb
Original file line number Diff line number Diff line change
Expand Up @@ -182,7 +182,7 @@ Public Class Thumbnails
If Channels = 1 Then AudioSound = "Mono"
If Channels = 6 Then AudioSound = "Surround Sound"
If Channels = 8 Then AudioSound = "Surround Sound"
If Channels = 0 Then AudioSound = "unknown"
If Channels = 0 Then AudioSound = ""

If audioCodecs.Length > 40 Then audioCodecs = audioCodecs.Shorten(40) + "..."

Expand All @@ -200,7 +200,9 @@ Public Class Thumbnails

Dim caption = "File: " + FilePath.GetName(inputFile) + BR & "Size: " + MediaInfo.GetGeneral(inputFile, "FileSize") + " bytes" + " (" + MediaInfo.GetGeneral(inputFile, "FileSize_String1") + ")" & ", " + "Duration: " + g.GetTimeString(infoDuration / 1000) + ", avg.bitrate: " + MediaInfo.GetGeneral(inputFile, "OverallBitRate_String") + BR +
"Audio: " + audioCodecs + ", " + MediaInfo.GetAudio(inputFile, "SamplingRate_String") + ", " + AudioSound + ", " + MediaInfo.GetAudio(inputFile, "BitRate_String") + BR +
"Video: " + MediaInfo.GetVideo(inputFile, "Format") + "(" + Profile + ")" + ", " + ColorSpace + SubSampling + ScanType.Shorten(1).ToLower() + ", " + infoWidth & "x" & infoHeight & ", " + MediaInfo.GetVideo(inputFile, "BitRate_String") + ", " & MediaInfo.GetVideo(inputFile, "FrameRate").ToSingle.ToInvariantString + "fps"
"Video: " + MediaInfo.GetVideo(inputFile, "Format") + " (" + Profile + ")" + ", " + ColorSpace + SubSampling + ScanType.Shorten(1).ToLower() + ", " + infoWidth & "x" & infoHeight & ", " + MediaInfo.GetVideo(inputFile, "BitRate_String") + ", " & MediaInfo.GetVideo(inputFile, "FrameRate").ToSingle.ToInvariantString + "fps".Replace(", ", "")

caption = caption.Replace(" ,", "")

Dim captionSize = TextRenderer.MeasureText(caption, font)
Dim captionHeight = captionSize.Height + font.Height \ 3
Expand Down

0 comments on commit dfbe085

Please sign in to comment.