Oppure

Loading
05/12/11 15:28
luca95
Come faccio a fare un cerchio colorato con l'unità grafica? :) grazie a tutti :)
aaa
05/12/11 15:47
Poggi Marco
Usa la funzione FloodFill.

Ecco cosa dice il manuale del free pascal:
FloodFill
Synopsis: Fill an area with a given color
Declaration: procedure FloodFill(x: SmallInt;y: SmallInt;Border: Word)
Visibility: default
Description: Fills the area containing the point (X,Y), bounded by the color BorderColor.
Errors: None
aaa
05/12/11 16:38
luca95
e quindi il comando effettivo per colorarlo qual'è? :)
aaa
05/12/11 16:50
luca95
ho fatto ho cercato su internet grazie e scusa per il disturbo comunque se qualcuno avesse il mio stesso problema metto ciò che ho trovato io:
SetColor (4); { colore del bordo } 
Rectangle ( 100, 100, 200, 200 );{ disegna il rettangolo con il colore specificato } 
SetFillStyle ( SolidFill, 5 ); { prepara a colorare il rettangolo con il nuovo colore (5) } 
FloodFill ( 110, 110, 4); { colora tutti i pixel all'interno della figura con bordo di colore 4 } 

al posto di SolidFill si può anche mettere HatchFill: con solidfill il colore è a tinta unita con hatchfill il colore sembra quasi un pixel si e uno no.
aaa
08/12/11 12:04
lorenzoscarrone
non ra più facile usare il comando
setfillstyle(solidfill,4);setfillellipse(x,y,raggio,raggio);
aaa
09/12/11 20:52
luca95
a sentire quello che dice il mio compilatore come hai fatto tu è sbagliato... mi da errore non mi riconosce il comando... :(
aaa
09/12/11 22:19
Poggi Marco
Postato originariamente da luca95:

a sentire quello che dice il mio compilatore come hai fatto tu è sbagliato... mi da errore non mi riconosce il comando... :(


:-? Cosa hai scritto nel programma?

Se non dici quello che hai fatto, nessuno può aiutarti.
aaa
10/12/11 12:45
luca95
no io ho fatto il mio era un commento in risposta a quello che aveva scritto lorenzo, il mio problema l'ho risolto lui ha detto che sarebbe stato più semplice fare nel modo in cui aveva scritto lui ho voluto provare e ho verificato che non funzionava :)
aaa