*-* Conversion FUNCTION Foxel2Pixel(oForm,tlnFoxelValue, tllVertical) RETURN ROUND(tlnFoxelValue / GetPixFoxRatio(oForm,tllVertical), 0) ENDFUNC FUNCTION Pixel2Foxel(oForm,tlnPixelValue, tllVertical) RETURN ROUND(tlnPixelValue * GetPixFoxRatio(oForm,tllVertical), 3) ENDFUNC FUNCTION GetPixFoxRatio(oForm,tllVertical) LOCAL lnSaveScaleMode, lnFoxel, lnPixel, ; lnRatio *---------------------------------------------------- *-- Get all required values for our calculations *---------------------------------------------------- WITH oForm *-- Save old ScaleMode of the form lnSaveScaleMode = .ScaleMode .ScaleMode = 0 &&SCALEMODE_FOXELS IF tllVertical lnFoxel = .Height ELSE lnFoxel = .Width ENDIF .ScaleMode = 3 && SCALEMODE_PIXELS IF tllVertical lnPixel = .Height ELSE lnPixel = .Width ENDIF *-- Calculate Foxel to Pixel factors lnRatio = lnFoxel / lnPixel *-- Set ScaleMode back .ScaleMode = lnSaveScaleMode ENDWITH RETURN lnRatio ENDFUNC