DrawingArea y ScrollArea

' Gambas class file

Public activado As Boolean

Public Sub _new()

End

Public Sub Form_Open()

  ScrollArea1.ResizeContents(400, 400)
  ScrollArea1.Refresh
  ScrollArea1.Shadow = True 'sombra

End

Public Sub ScrollArea1_Draw()

  Paint.DrawText("hola mundo", 10 - ScrollArea1.ScrollX, 10 - ScrollArea1.Scrolly)
  Paint.DrawText("hola mundo", 100 - ScrollArea1.Scrollx, 100 - ScrollArea1.Scrolly, 200, 500)
  Paint.DrawRichText("<h1>Hola <font color=\"red\"> Mundo</font></h1>", 110 - ScrollArea1.ScrollX, 130 - ScrollArea1.Scrolly, 200, 200)
  Paint.MoveTo(100 - ScrollArea1.ScrollX, 100 - ScrollArea1.Scrolly)
  Paint.LineTo(10 - ScrollArea1.ScrollX, 39 - ScrollArea1.Scrolly)
  Paint.LineWidth = 3

  Paint.Rectangle(3 - ScrollArea1.ScrollX, 3 - ScrollArea1.Scrolly, 10, 100)
  Paint.Stroke()
  Paint.MoveTo(100 - ScrollArea1.ScrollX, 100 - ScrollArea1.Scrolly)
  Paint.LineTo(10 - ScrollArea1.ScrollX, 139 - ScrollArea1.Scrolly)
  Paint.LineWidth = 1

  Paint.Rectangle(3 - ScrollArea1.ScrollX, 3 - ScrollArea1.Scrolly, 10, 100)
  Paint.Stroke()

  Paint.DrawText("Gambas3", 300 - ScrollArea1.Scrollx, 200 - ScrollArea1.Scrolly, 200, 500)
  Paint.DrawRichText("<h1><font color=\"blue\"> Gambas3</font></h1>", 110 - ScrollArea1.ScrollX, 230 - ScrollArea1.Scrolly, 200, 200)

End

Public Sub DrawingArea1_Draw()

  Paint.DrawText("hola mundo", 10, 10)
  Paint.DrawText("hola mundo", 100, 100, 200, 500)
  Paint.DrawRichText("<h1>Hola <font color=\"red\"> Mundo</font></h1>", 110, 130, 200, 200)
  Paint.MoveTo(100, 100)
  Paint.LineTo(10, 39)
  Paint.LineWidth = 3

  Paint.Rectangle(3, 3, 10, 100)
  Paint.Stroke()
  Paint.MoveTo(100, 100)
  Paint.LineTo(10, 139)
  Paint.LineWidth = 1

  Paint.Rectangle(3, 3, 10, 100)
  Paint.Stroke()

End