Picture.VerticalResolution
From Real Software Documentation
Property (As Integer)
The vertical resolution of the picture.
The vertical resolution is established when you use the Open shared method and written out when you use the Save method. When creating a picture, the default resolution is 72 (pixels).
Example
This example gets the horizontal and vertical resolution of the Picture that was opened.
dim width as integer = 2000
dim height as integer = 2000
// creates new picture
dim pic as new Picture(width, height, 32)
dim f as FolderItem
f=GetOpenFolderItem("image/jpeg")
if f<> Nil then
pic=Picture.Open(f)
ImageWell1.Image=pic
label1.text=str(pic.HorizontalResolution)
label2.text=str(pic.VerticalResolution)
end if
dim height as integer = 2000
// creates new picture
dim pic as new Picture(width, height, 32)
dim f as FolderItem
f=GetOpenFolderItem("image/jpeg")
if f<> Nil then
pic=Picture.Open(f)
ImageWell1.Image=pic
label1.text=str(pic.HorizontalResolution)
label2.text=str(pic.VerticalResolution)
end if
