document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public activado As Boolean
  4.  
  5. Public Sub _new()
  6.  
  7. End
  8.  
  9. Public Sub Form_Open()
  10.  
  11.   ScrollArea1.ResizeContents(400, 400)
  12.   ScrollArea1.Refresh
  13.   ScrollArea1.Shadow = True \'sombra
  14.  
  15. End
  16.  
  17. Public Sub ScrollArea1_Draw()
  18.  
  19.   Paint.DrawText("hola mundo", 10 - ScrollArea1.ScrollX, 10 - ScrollArea1.Scrolly)
  20.   Paint.DrawText("hola mundo", 100 - ScrollArea1.Scrollx, 100 - ScrollArea1.Scrolly, 200, 500)
  21.   Paint.DrawRichText("<h1>Hola <font color=\\"red\\"> Mundo</font></h1>", 110 - ScrollArea1.ScrollX, 130 - ScrollArea1.Scrolly, 200, 200)
  22.   Paint.MoveTo(100 - ScrollArea1.ScrollX, 100 - ScrollArea1.Scrolly)
  23.   Paint.LineTo(10 - ScrollArea1.ScrollX, 39 - ScrollArea1.Scrolly)
  24.   Paint.LineWidth = 3
  25.  
  26.   Paint.Rectangle(3 - ScrollArea1.ScrollX, 3 - ScrollArea1.Scrolly, 10, 100)
  27.   Paint.Stroke()  
  28.   Paint.MoveTo(100 - ScrollArea1.ScrollX, 100 - ScrollArea1.Scrolly)
  29.   Paint.LineTo(10 - ScrollArea1.ScrollX, 139 - ScrollArea1.Scrolly)
  30.   Paint.LineWidth = 1
  31.  
  32.   Paint.Rectangle(3 - ScrollArea1.ScrollX, 3 - ScrollArea1.Scrolly, 10, 100)
  33.   Paint.Stroke()
  34.  
  35.   Paint.DrawText("Gambas3", 300 - ScrollArea1.Scrollx, 200 - ScrollArea1.Scrolly, 200, 500)
  36.   Paint.DrawRichText("<h1><font color=\\"blue\\"> Gambas3</font></h1>", 110 - ScrollArea1.ScrollX, 230 - ScrollArea1.Scrolly, 200, 200)
  37.  
  38. End
  39.  
  40. Public Sub DrawingArea1_Draw()
  41.  
  42.   Paint.DrawText("hola mundo", 10, 10)
  43.   Paint.DrawText("hola mundo", 100, 100, 200, 500)
  44.   Paint.DrawRichText("<h1>Hola <font color=\\"red\\"> Mundo</font></h1>", 110, 130, 200, 200)
  45.   Paint.MoveTo(100, 100)
  46.   Paint.LineTo(10, 39)
  47.   Paint.LineWidth = 3
  48.  
  49.   Paint.Rectangle(3, 3, 10, 100)
  50.   Paint.Stroke()  
  51.   Paint.MoveTo(100, 100)
  52.   Paint.LineTo(10, 139)
  53.   Paint.LineWidth = 1
  54.  
  55.   Paint.Rectangle(3, 3, 10, 100)
  56.   Paint.Stroke()
  57.  
  58. End
');