uses graph,crt;
var color,i,x,y,x1,y1,stars,gd,gm:integer;
key:char;
s:string;
begin
gd:=detect;
initgraph(gd,gm,'c:\bp\bgi\');
if graphresult<>0 then
begin
writeln('grafiku neizdevas palaist');
readln;
halt;
end;
{sataisam paletes}
setrgbpalette(6,0,0,63);
setcolor(6);
circle(50,50,30);
repeat until keypressed;
end.

(Reply to this) (Parent) (Thread)

nu, redz kā - PASCAL nestrādā konsekventi.. lai gan - Tu freepascal mēģini?

es parastajā taisu..

(Reply to this) (Parent) (Thread)

freepascal'am nav cita funkcionalitāte, ko man vajag.

(Reply to this) (Parent) (Thread)

konkrētajā gadījumā - nemaina krāsas uz ekrāna, nomainot paleti.

vēl viņam ir savi gļuki.

(Reply to this) (Parent) (Thread)

*atkal*? tātad mans kods PASCAL bija nepareizs? tas ar to apli, ja? :P
turklāt - ne es vienīgā tādu problēmu esmu novērojusi.. un ir jau atrasts workarounds :P bet Tev jau liksies, ka TU vienīgais kaut ko zini un saproti un ka Tev ir bezgala lielā taisnība, ja?

ai, kāda starpība, ko Tu domā..

(Reply to this) (Parent)