\' 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