[Gambas-user] DrawImage

Shane buster6seven at gmail.com
Sun Jan 10 03:52:29 CET 2021


Public Sub Window_Draw()
     Dim H As Integer

   H = Font.DefaultHeight * 4

   Draw.Clear
   backimg.Resize(640, 480) _<-This makes it work as expected_
   Draw.Image(backimg, 0, 0)

   Draw.Font.Size = H
   Draw.Text("Gambas", 0, 0)

   Draw.Text(CStr($hWindow.FrameCount), 0, H)

End

Public Sub Window_MouseMove()
     backimg = backimg.DrawImage(img1, Mouse.X, Mouse.Y)
End


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20210110/c05d108d/attachment.htm>


More information about the User mailing list