This is how to do :-)
' Gambas class file
Public Sub Form_Open()
TableView1.Rows.Count = 10
TableView1.Columns.Count = 6
End
Public Sub TableView1_Draw(X As Integer, Y As Integer, Width As
Integer, Height As Integer, Row As Integer, Column As Integer)
If Row = 0 And If Column = 0 Then 'Limit the drawing to one time
(even if the event is called for each existing cells)
Paint.Save 'Save the clip stack
Paint.ResetClip 'Reset the cliping region
Paint.Brush = Paint.Color(Color.Black) 'Select the text color
Paint.ClipRect = Rect(0, 0, TableView1.Rows.W,
TableView1.Columns.H) 'set the clippin region to the upper left cells
size
Paint.Text("toto", 0, 0, TableView1.Rows.W, TableView1.Columns.H,
Align.Center) 'Draw the text path
Paint.Fill 'Fill the text with color
Paint.Restore 'Restore the clipping area
Endif
End
------------------------------------------------------------------------------
What NetFlow Analyzer can do for you? Monitors network bandwidth and traffic
patterns at an interface-level. Reveals which users, apps, and protocols are
consuming the most bandwidth. Provides multi-vendor support for NetFlow,
J-Flow, sFlow and other flows. Make informed decisions using capacity
planning reports. http://sdm.link/zohodev2dev
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
