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 18:06

[Lapp]

Получилось только вот -

Ты меня извини, но просто неприлично помещать настолько сырой код, заставляя тех, кто тебе помогает, вычищать за тебя все ошибки/опечатки и т.п.
Поимей хоть какое-то уважение. Спрашиваешь про одно, а программа кишит всякими другими ошибками..

[D1ma]

Ты меня извини, но просто неприлично помещать настолько сырой код, заставляя тех, кто тебе помогает, вычищать за тебя все ошибки/опечатки и т.п.
Поимей хоть какое-то уважение. Спрашиваешь про одно, а программа кишит всякими другими ошибками..

Куда мне до Вас...