Yes! That was it! Thank you very much, Fabien!
Regards
Rolf
Am 09.08.2017 17:23, schrieb Fabien Bodard:
Dim i As Integer
Dim hImg As Image
For i = 0 To 200
hImg = New Image(32, 32, Color.Transparent)
Paint.Begin(hImg)
Paint.Font.Bold = True
Paint.Ellipse(0, 0, Paint.Width, Paint.Height)
Paint.Brush = Paint.Color(Color.Yellow)
Paint.Fill(True)
Paint.Brush = Paint.Color(Color.Black)
Paint.Stroke
Paint.Text(i, 0, 0, Paint.Width, Paint.Height, Align.Center)
Paint.Brush = Paint.Color(Color.red)
Paint.Fill
Paint.End
ListView1.Add(i, "Item " & i, hImg.Picture)
Next
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
