GRAPH/CRT, Help Опции

[D1ma]

Изобразить текстовое окно на экране, в котором содержится информация о текущем фоне окна и фона экрана и текущем цвете текста в окне.Окно двигается по экрану с постоянной скоростью слева направо паралельно горизонтальной оси. При нажатии клавиши ENTER меняется меняется текущий цвет фона экрана и текущий цвет текста в окне.
Получилось только вот -( Не знаю как реализовать смену цвета и вывести его. Помогите...)

Код

uses crt,graph;
var gd,gm,x,y:integer;
    c:char;

procedure set_font(x,y:integer);
begin
setlinestyle(0,0,3);
rectangle(x-20,y-18,x+280,y+24);
outtextxy(x,y,TEST:');
outtextxy(x,y,BKCOLOR:');
end;

Procedure SetColor;


end;

begin
gd:=detect;
initgraph(gd,gm,'c:\bgi');

x:=getmaxx div 2-136; y:=getmaxy div 2;
set_font(x,y);
while c<>#27 do begin
if keypressed then c:=readkey;
   if c=#13  then setcolor;
  


end;
closegraph;
end.

Сообщение отредактировано: D1ma - 15.05.2009 22:06

[D1ma]

Удалось сделать:
-текстовое окно с текстом
-при нажатии 'ENTER' меняется цвет текста
-На след. строке выводится цвет текста
-при нажатии 'ESC' выход

uses crt,graph;
var gd,gm,x,y:integer;
	c:char;
	n:integer;

procedure set_font(x,y:integer);
begin
setlinestyle(0,0,3);
rectangle(x-20,y-18,x+280,y+24);
end;

Procedure CaseColor(C:char;n:integer);
begin
randomize;
n:=random(5);
Case n of
0:outtextxy(x-10,y+13,'COLOR TEXT:BLACK');
1:outtextxy(x-10,y+13,'COLOR TEXT:BLUE');
2:outtextxy(x-10,y+13,'COLOR TEXT:GREEN');
3:outtextxy(x-10,y+13,'COLOR TEXT:GYAN');
4:outtextxy(x-10,y+13,'COLOR TEXT:RED');
5:outtextxy(x-10,y+13,'COLOR TEXT:MAGENTA');
end;
setcolor(n);
outtextxy(x-10,y-12,' TEXT   IN	WINDOW  ');
end;

begin
gd:=detect;
initgraph(gd,gm,'c:\bgi');
x:=getmaxx div 2-136; y:=getmaxy div 2;
set_font(x,y);
while c<>#27 do begin
if keypressed then c:=readkey;
case c of
#13 : BEGIN
casecolor(c,n);
c:='0';
end;
end;
end;
closegraph;
end. 

Только вот при смене цвета, информация о нем накладывается на предыдущий, пробывал так стереть предыдущую запись

 moveto(x-10,y+13);clreol 

не получилось
Подскажите, как правильно
p.s. Как можно реализовать движение окна слева направа по горизонтальной оси с постоянной скорость?
наверна с помощью цикла?))