Sub Globals
End Sub
Sub App_Start
Form1.Show
flb1.New1("Form1",B4PObject(1))
bm1.New1(Apppath & "\Dummy2.bmp")
drawer1.New1("Form1",false)
rectsrc.New1(0,0,320,240)
rectdes.New1(100,125,80,60)
flb1.FullScreen(false) 'this will remove the menu bar and raise the resize event (the screen size changes).
End Sub
Sub flb1_resize
if Form1.Width > Form1.Height then
msgbox("Landscape")
else
msgbox("Portrait")
end if
drawer1.New1("form1",false)
drawer1.DrawImage1(bm1.Value,rectsrc.Value,rectdes.Value,true)
drawer1.Refresh2(rectdes.Value)
End Sub
Sub Form1_MouseUp (x,y)
msgbox ("Form clicked")
drawer1.DrawImage1(bm1.Value,rectsrc.Value,rectdes.Value,true)
drawer1.Refresh2(rectdes.Value)
End Sub