Hi,
I have a program running on my old PDA in landscape (320*240) and I want it to run on my new PDA in landscape (800 * 480). For the time being, forget the extra width, so say 640 * 480. Also I want the best image quality possible.
Reading the documentation on Autoscale and studying the examples on NativeImage and NativeFormImage I get totally confused.
A simplified version of that program looks as follows:
Sub Globals
'Declare the global variables here.
Dim OrigOrientation
End Sub
Sub App_Start
AddObject("OrientateObj","pachScreen")
OrientateObj.New1
If cPPC=True Then
OrigOrientation=OrientateObj.Orientation
If OrigOrientation <> 1 Then OrientateObj.Orientation=1
End If
Form1.Show
AddObject("Bitmap1","BitmapEx")
Bitmap1.New1(AppPath & "\" & "google3.bmp")
AddObject("RectSrc1","RectangleEx")
RectSrc1.New1(0,0, BitMap1.width, Bitmap1.height)
AddObject("RectDes1","RectangleEx")
RectDes1.New1( 50, 55, 160, 120)
AddObject("Drawer1","DrawerEx")
Drawer1.New1("Form1",False)
Drawer1.DrawImage(Bitmap1.Value,RectSrc1.Value,RectDes1.Value,False)
Drawer1.RefreshForm2("Form1",RectDes1.Value)
End Sub
Sub Form1_Close
If cPPC=True Then
If OrientateObj.Orientation <> OrigOrientation Then
OrientateObj.Orientation=OrigOrientation
End If
End If
End Sub
Could somebody help me to change this program in order to take advantage of the higher resolution of my new PDA?
Thanks in advance,
Harry
I have a program running on my old PDA in landscape (320*240) and I want it to run on my new PDA in landscape (800 * 480). For the time being, forget the extra width, so say 640 * 480. Also I want the best image quality possible.
Reading the documentation on Autoscale and studying the examples on NativeImage and NativeFormImage I get totally confused.
A simplified version of that program looks as follows:
Sub Globals
'Declare the global variables here.
Dim OrigOrientation
End Sub
Sub App_Start
AddObject("OrientateObj","pachScreen")
OrientateObj.New1
If cPPC=True Then
OrigOrientation=OrientateObj.Orientation
If OrigOrientation <> 1 Then OrientateObj.Orientation=1
End If
Form1.Show
AddObject("Bitmap1","BitmapEx")
Bitmap1.New1(AppPath & "\" & "google3.bmp")
AddObject("RectSrc1","RectangleEx")
RectSrc1.New1(0,0, BitMap1.width, Bitmap1.height)
AddObject("RectDes1","RectangleEx")
RectDes1.New1( 50, 55, 160, 120)
AddObject("Drawer1","DrawerEx")
Drawer1.New1("Form1",False)
Drawer1.DrawImage(Bitmap1.Value,RectSrc1.Value,RectDes1.Value,False)
Drawer1.RefreshForm2("Form1",RectDes1.Value)
End Sub
Sub Form1_Close
If cPPC=True Then
If OrientateObj.Orientation <> OrigOrientation Then
OrientateObj.Orientation=OrigOrientation
End If
End If
End Sub
Could somebody help me to change this program in order to take advantage of the higher resolution of my new PDA?
Thanks in advance,
Harry