1
Programmazione / Re: Disegnare oggetti
« il: 25 Settembre 2012, 20:47:32 »
Si ma il valore del colore che utilizza e' soltanto l'ultimo , quello messo in precedenza non viene utilizzato e non capisco il motivo....
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
Paint.Begin(DrawingArea1)
Paint.FillRule = Paint.FillRuleEvenOdd
Paint.Brush = Paint.Color(0)
Paint.Fill(True)
Paint.AntiAlias = True
Paint.LineWidth = 2
''Asse y
Paint.MoveTo(50, 10)
Paint.RelLineTo(0, y)
''Asse x
Paint.MoveTo(25, y - 10)
Paint.RelLineTo(x, 0)
Paint.Font.Size = 8
Paint.Font.Name = "Liberation Sans"
Paint.Text(0, 40, y - 10, 1, 1)
While e < timeframe
Paint.LineWidth = 1
Paint.FillRule = Paint.FillRuleEvenOdd
Paint.Brush = Paint.Color(Color.RGB(1, 100, 0))
Paint.Fill(True)
Paint.MoveTo(e + 50 + f, 10)
Paint.RelLineTo(0, y - 15)
Paint.Stroke
e = e + f
Wend
mypair = Open User.Home &/ "ChartArtist" &/ cross & ".csv" For Read
While Not Eof(mypair)
l = Lof(mypair)
Line Input #mypair, pair
If c < (l - 1) Then
slice = Split(pair, ";")
For Each spl In slice
GridView1[i, a].Text = spl
If a < 7 Then
a = a + 1
Endif
Next
Endif
repository ppa:nemh/gambas3