[Gambas-user] Creating a picture and inserting

[Rolf-Werner Eilert]

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