Jestem po 30 min pisania programu na zaliczenie i szlak mnie trafia mam wrażenie ze komputer bawi się ze mną w kotka i myszkę. Napisałem narazie bardzo mało ale mam cholerny problem.
BEGIN
k:=detect;
InitGraph(k,t,'D:/tp/BGI');
SetBKColor(White);
setcolor(black);
ClearDevice;
{SetColor(black); }
delay(100);
OutTextXY((getmaxx div 2)-42,getmaxy div 2,'PR');
OutTextXY((getmaxx div 2)-26,getmaxy div 2,'ZY');
OutTextXY((getmaxx div 2)-8,getmaxy div 2,'P');
OutTextXY(getmaxx div 2,getmaxy div 2,'OM');
OutTextXY((getmaxx div 2)+15,getmaxy div 2,'I');
OutTextXY((getmaxx div 2)+22,getmaxy div 2,'NA');
OutTextXY((getmaxx div 2)+38,getmaxy div 2,'CZ');
delay(500);
for i:=1 to 90 do
BEGIN
setcolor(black);
line(400,500-(i*2),500,500);
Delay(25);
ClearDevice;
{setColor(white);}
END;
readkey;
closegraph;
END.przed dopisaniem for`a miałem czarny napis na białym tle. Dopisałem for`a nagle mam cały czas biały ekran dawałem delay żeby zobaczyć czy pokazuje napis i dupa nagle przestało pokazywać mi napis. Usunąłem wszystkie setColor, ClearDevice, SetBKColor żeby wrócić do malowania na czarnym i nie wiem jakim cudem nawet napis na biało sie nie wyświetlił. Moduł Graph Jest oparty na randomach ??
Pewnie coś źle robię ma ktoś jakiś tutek do tego okropnego trybu ?