A couple users of one on my programs (Histogrammar), using GFL SDK VERSION 2.70, are recently experiencing problems after their XP machines seem to have been updated.
I attach 2 of these screens since I have no means to know the exact Sdk function that crashes, but seems to be something happening when the picture must be displyed into the program form involving 8-bit images GflAx functions. I also include the complete Showimage routine which is one of the points that produces the error, indicating the SDK functions used.
Do you have any idea what could be happenning? Updating the SDK could solve this? could the users update their SDK without installing again the program?
Code: Select all
Sub ShowImage(sRuta As String)
Dim MAXX As Integer
Dim MAXY As Integer
Dim i As Integer, j As Integer, iMaxX As Integer, iMaxY As Integer
Dim rRatio As Double
Dim MyObjPreview As GflAx.GflAx ' Imagen de 8 bits para representarla (gamma)
On Error GoTo ShowImage_Error
SetAction "Displaying image..."
Set MyObjPreview = New GflAx.GflAx
MyObjPreview.LoadBitmap (sRuta) ' Cargamos en MyObjPreview el fichero que haya en la ruta
MAXX = frmPrincipal.pctImagen.ScaleWidth
MAXY = frmPrincipal.pctImagen.ScaleHeight
Select Case iAdjust
Case 1
lWidth = MyObjPreview.Width
lHeight = MyObjPreview.Height
rRatio = lWidth / lHeight
If rRatio > MAXX / MAXY Then
iMaxX = MAXX
iMaxY = Int(MAXX / rRatio)
Else
iMaxX = Int(MAXY * rRatio)
iMaxY = MAXY
End If
MyObjPreview.Resize iMaxX, iMaxY
Case 2
MyObjPreview.Resize MAXX, MAXY
End Select
MyObjPreview.Gamma (2.2 / rGamma)
Set frmPrincipal.pctImagen = MyObjPreview.GetPicture
Set MyObjPreview = Nothing
ShowImage_Resume:
Exit Sub
ShowImage_Error:
MostrarError ("ShowImage")
Resume ShowImage_Resume
End Sub
Best regards and thank you.