Gambas-it

Gambas3 => Programmazione => Topic aperto da: Top Fuel - 03 Luglio 2014, 15:56:10

Titolo: Disegnare un punto con Paint
Inserito da: Top Fuel - 03 Luglio 2014, 15:56:10

Ho notato che nella classe Paint non c'è nessun metobo per poter disegnare un singolo punto. C'è la maniera di farlo senza invocare Draw.Point?

Titolo: Re: Disegnare un punto con Paint
Inserito da: vuott - 03 Luglio 2014, 17:13:08

Sono riuscito a fare così:   :-X

Codice: gambas [Seleziona]

Public Sub Form_Open()

   DrawingArea1.Background = Color.White

End


Public Sub DrawingArea1_Draw()

  With Paint
    .FillRect(100, 100, 1, 1, Color.Black)
    .End
  End With

End

Titolo: Re: Disegnare un punto con Paint
Inserito da: Top Fuel - 03 Luglio 2014, 20:46:59

Anche io avevo provato una cosa similare, facendo:

Paint. Rectangle(100, 100, 1, 1)

Ma non disegnava nulla. Usando una dimensione 2x2 disegnava, ma era troppo grosso.

Titolo: Re: Disegnare un punto con Paint
Inserito da: vuott - 29 Novembre 2020, 01:45:44

Citazione da: Top Fuel - 03 Luglio 2014, 20:46:59

Ma non disegnava nulla.

Usando quell'altro Metodo, devi semplicemente aggiungere il Metodo "Paint.Fill( )":

Codice: [Seleziona]

Public Sub DrawingArea1_Draw()

  With Paint
    .Rectangle(100, 100, 1, 1)
    .Fill()
    .End
  End With

End

e se vuoi un punto colorato, devi far precedere il tutto dalla Proprietà statica "Paint.Brush":

Codice: [Seleziona]

Public Sub DrawingArea1_Draw()

  With Paint
    .Brush = .Color(Color.Red)
    .Rectangle(100, 100, 1, 1)
    .Fill()
    .End
  End With

End