Dyskusja: Pascal i rysowanie
Podgląd pojedynczego posta
Stary 08.11.2006, 01:23   #7
Arepo
Guru
 
Avatar użytkownika Arepo
 
Data rejestracji: 01.10.2004
Posty: 3,436
Arepo jest wzorem do naśladowania <650 - 999 pkt>Arepo jest wzorem do naśladowania <650 - 999 pkt>Arepo jest wzorem do naśladowania <650 - 999 pkt>Arepo jest wzorem do naśladowania <650 - 999 pkt>Arepo jest wzorem do naśladowania <650 - 999 pkt>Arepo jest wzorem do naśladowania <650 - 999 pkt>Arepo jest wzorem do naśladowania <650 - 999 pkt>
Cytat:
Napisany przez Patrix Podgląd Wiadomości
Maluje mi ca***322;y ekran zamiast figury...
Witam

widz***281; tu 2 b***322;***281;dy :

pierwszy to to, ***380;e jak ju***380; napisa***322; kolega REi nie trafi***322;e***347; w kwadrat tylko w lini***281; i gdyby reszta by***322;a dobrze to wype***322;nieniu uleg***322;oby wszystko na zewn***261;trz kwadratu i jego wn***281;trze

drugi b***322;***261;d to parametr yellow w procedurze floodfill, powinien by***263; to kolor linii wyznaczaj***261;cych obszar do wype***322;nienia, czyli je***347;li narysowa***322;e***347; czerwony kwadrat, to musi by***263; tam w***322;a***347;nie ten kolor

proponuj***281; tak***261; zmian***281; programu :

Kod:
program graph1;

USES CRT,GRAPH;

VAR
ster,tryb:integer;

Begin
        detectgraph(ster,tryb);
        initgraph(ster,tryb,' "" ');
        setcolor(red);

        rectangle(220,220,280,240);
        setfillstyle(12,yellow);
        floodfill(250,221,red);

        readln;
        closegraph;
End.
pozdrawiam
__________________
Lite-On iHBS 212, Pioneer BDR-209EBK
Arepo jest offline   Odpowiedz cytując ten post