[vb6]Alpha Image Control v2 - Final Update (15 Jan 2012)

[jicxicmic]

Hi LaVolve,

I tryed but I don't understant how it works. Let me explain

Horizontal function:
it resize the image on both ways, (getting bigger and smaller than original), but I don't undertand how it works

GetScaledImageSize AlphaImgCtl1.Picture.Width, AlphaImgCtl1.Picture.Height, 140, 140, Cx, Cy, , , False

it is just to calculate Cx and Cy ? what are 140 ? I wanted 400 twips height, how to convert ?


Vertical function does rotation but not resize, I've mixed vertical plus horizontal functions and works ok.

Private Sub Vertical_Click()
    Dim Cx As Long, Cy As Long
    GetScaledImageSize AlphaImgCtl1.Picture.Width, AlphaImgCtl1.Picture.Height, 140, 140, Cx, Cy, 90, , False
    SaveOptions.Width = Cx: SaveOptions.Height = Cy
    
    SaveOptions.RSS.Angle = 90
    SaveOptions.RotatingCanGrowImage = True
    LoadImageIntoControl
    SaveOptions.RSS.Angle = 0 ' reset
    SaveOptions.Width = 0: SaveOptions.Height = 0 ' reset; will use actual size if these are zero
End Sub

I got a good image but there is a blank area on left and bottom sides as if resized image doesn't fit the painting area. Again, how I can select the desired size ?

Thanks