same used functions with different results, using PNG and JPG :
( Alphablended images are working fine : PNG and BMP )
I want to add a zoom-function-sample to the tool.
Inside the tool, I calculate the wanted image-size and resize ( no zoom is used !!! )
PNG using Zoom minus
PNG using Zoom plus
The same image without alphachannel with black area on Zoom + the image doesn't resize !!
JPG using Zoom plus
zooms a black area, the original is still the same.
JPG using Zoom minus
cuts the original with minus.factor
Getting different results with this function !!!
Code: Select all | Expand
FUNCTION ADJ_ZOOM(oBmp,cAction)
LOCAL nZoom:=oBmp:Zoom()
DO CASE
case cAction == "S"
oBmp:lStretch := !oBmp:lStretch
oBmp:ScrollAdjust()
oBmp:Refresh( .t. )
case cAction == "R"
if nZoom * 10 >1
oBmp:lStretch := .f.
nZoom:=nZoom - (0.10)
oBmp:Zoom(nZoom)
oBmp:Refresh()
oBmp:ScrollAdjust()
endif
case cAction == "A"
oBmp:lStretch := .f.
nZoom:=nZoom + 0.10
oBmp:Zoom(nZoom)
oBmp:Refresh()
oBmp:ScrollAdjust()
ENDCASE
RETURN NIL
Best Regards
Uwe
