Sub content_Result(Success As Boolean, Dir As String, FileName As String)
If Success Then
Dim picturePartCanvas As Canvas
Dim input As InputStream
picturePartCanvas.Initialize(picturePart)
input = File.OpenInput(Dir,FileName)
jpg.LoadJpegSizeOnly(input)
Log(jpg.JpegHeight&" > "&picturePart.Height&" ODER "&jpg.JpegWidth&" > "&picturePart.Width&"?")
If jpg.JpegHeight > picturePart.Height OR jpg.JpegWidth > picturePart.Width Then
Log("true: picture is BIG")
Dim highDiff As Int
Dim widthDiff As Int
highDiff = Floor(jpg.JpegHeight/picturePart.Height)+1
widthDiff = Floor(jpg.JpegWidth/picturePart.Width)+1
Dim diffToUse As Int: diffToUse = Max(highDiff,widthDiff)
'bildVerkleinert laden mit faktor diffToUse
Dim tmpRect As Rect
tmpRect.Initialize(0,0,picturePart.Height,picturepart.Width)
Log("highDiff = "&highDiff&" widthDiff = "&widthDiff&" Max = "&diffToUse)
input = File.OpenInput(Dir,FileName)
Dim tmpBitmap As Bitmap
tmpBitmap.Initialize3(jpg.LoadJpegSmaller(input,diffToUse))
picturePartCanvas.DrawBitmap(tmpBitmap,Null,tmpRect)
picturePart.Invalidate
DoEvents
Else
Log("false: picture is small")
End If
input.Close
Else
ToastMessageShow("Error loading picture",False)
End If
End Sub