Hi Don,
Here you have version 0_44 with the finger swapping of locations.
Best regards.
Yes it could be restricted to a certain rectangle.
The principle was the following.
Swiping left to right or top down increased the location index by one if there is a location. If there is no location it increased one more till the end.
Swiping right to left or bottom to top decreased the index. So there shouldn't have been an unintended swipe.
The swip must be, at the moment, at least 50 pixels wide between MouseDown and MouseUp. This could of course also also be changed.
The swipe works in all 3 screens, today, detail anf fourcast.
In the attached file the swipe is limited to the rectangle you gave.
The swipe is limited to right-left and left-right only and still 50 pixel min. (and now 100 pixel on a VGA sreen). I increased the version number t0 0.45.
The values are in variables so it would be easy to change them in the Form1.MouseUp routine.
Best regards.
A new version for test:
- Increased the swiping area it covers now the Today and Tomorrow dispalys
- Changed Today display with weather conditions, the Tomorrow display is still the previous one for comparison.
Best regards.
Hi Don,
What words are overlapping or running together, I tried mainly in English,French and German and have not yet found overlapping words.
Is it the first line with Today and the date, the 2nd one with the day name and the temperatures or the 3rd one with the conditions? Is it on the device only or on both?
Did you also have a look at the desktop version, what about having two arrows up and down before the temperatures instead of the two letters?
Best regards.
What is your default Font on the desktop, I use Arial, yours look wider.
The DrawText routine has text justification already included, cLeft, cRight, cCenter !
I use Arial too, and get the attached image.
But anyway, yours is OK too !
Sub ChangeToVGA
'Handles resolutions of 480 * 640
Controls() = GetControls("")
For i = 0 To ArrayLen(Controls()) - 1
Crttype=ControlType(Controls(i))
If Crttype = "CheckBox" OR Crttype = "TextBox" OR Crttype = "Label" OR Crttype = "Button" OR Crttype = "Panel" OR Crttype = "Image" OR Crttype = "ComboBox" OR Crttype = "ImageButton" OR Crttype = "RadioBtn" Then
Control(Controls(i)).Left = 2 * Control(Controls(i)).Left
Control(Controls(i)).Top = 2 * Control(Controls(i)).Top
Control(Controls(i)).Height = 2 * Control(Controls(i)).Height
Control(Controls(i)).Width = 2 * Control(Controls(i)).Width
If Not(cPPC) Then
Control(Controls(i)).FontSize = 2 * Control(Controls(i)).FontSize
'There is no need to change the font size on the VGA device.
End If
End If
Next
' VScroll.Left = 2 * VScroll.Left
' VScroll.Top = 2 * VScroll.Top
' VScroll.Height = 2 * VScroll.Height
' VScroll.Width = 2 * VScroll.Width
' VScroll.Maximum = 2 * VScroll.Maximum
' VScroll.LargeChange = 2 * VScroll.LargeChange
' VScroll.SmallChange = 2 * VScroll.SmallChange
End Sub
VScroll.New1("pnlLocations",210 * scale,0,15 * scale,125 * scale,True)
VScroll.Minimum=0
VScroll.Maximum=150 * scale
VScroll.LargeChange=25 * scale
VScroll.SmallChange=25 * scale
Hi digitaldon37,
I have a mistake in the procedure found ChangeToVGA.
Please change the procedure this way:
and so these lines:
Ciao,
Filippo
Thanks for the code and for testing.Hi digitaldon37,
Test OK!
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?