[Gambas-user] DrawImage

[Shane]

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>