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

[volvo]

uses crt, graph;

procedure set_font(x,y:integer);
var color: integer;
begin
  color := getcolor;
  setcolor(white);
  setlinestyle(0,0,3);
  rectangle(x-20,y-18,x+280,y+24);
  setcolor(color);
end;

var
  x, y: integer;

Procedure CaseColor(change: boolean; var n:integer);
const
  prev_n: integer = 0;
  colors: array[0 .. 5] of string = (
    'BLACK', 'BLUE', 'GREEN', 'CYAN', 'RED', 'MAGENTA'
  );
begin
  setfillstyle(solidfill, getbkcolor);
  bar(x-17, y-15, x+277, y+21);

  if change then begin
    n := random(6);
    Case n of
      0 .. 5:
        outtextxy(x-10,y+13,'COLOR TEXT:'+colors[n]);
    end;
    prev_n := n;
    setcolor(n);
    outtextxy(x-10,y-12,' TEXT   IN    WINDOW  ');
  end
  else begin
    outtextxy(x-10,y+13,'COLOR TEXT:'+colors[prev_n]);
    outtextxy(x-10,y-12,' TEXT   IN    WINDOW  ');
  end;
end;

var
  gd, gm: integer;
  c: char;
  n: integer;

begin
  randomize;
  gd := detect;
  initgraph(gd,gm,'');

  x := 25;
  y := getmaxy div 2;

  c := #0;

  repeat
    set_font(x,y);
    casecolor(false, n);

    if keypressed then c := readkey;
    case c of
      #13 :
        begin
          casecolor(true, n);
          c:=#0;
        end;
    end;
    delay(40);

    setfillstyle(solidfill, getbkcolor);
    bar(x-21,y-19,x+281,y+25);
    inc(x);
  until (x + 280 > getmaxx) or (c = #27);
  closegraph;
end.

Если непонятно - говори, где. Я добавлю комментарии.

[D1ma]

uses crt, graph;

procedure set_font(x,y:integer);
var color: integer;
begin
  color := getcolor;
  setcolor(white);
  setlinestyle(0,0,3);
  rectangle(x-20,y-18,x+280,y+24);
  setcolor(color);
end;

var
  x, y: integer;

Procedure CaseColor(change: boolean; var n:integer);
const
  prev_n: integer = 0;
  colors: array[0 .. 5] of string = (
    'BLACK', 'BLUE', 'GREEN', 'CYAN', 'RED', 'MAGENTA'
  );
begin
  setfillstyle(solidfill, getbkcolor);
  bar(x-17, y-15, x+277, y+21);

  if change then begin
    n := random(6);
    Case n of
      0 .. 5:
        outtextxy(x-10,y+13,'COLOR TEXT:'+colors[n]);
    end;
    prev_n := n;
    setcolor(n);
    outtextxy(x-10,y-12,' TEXT   IN    WINDOW  ');
  end
  else begin
    outtextxy(x-10,y+13,'COLOR TEXT:'+colors[prev_n]);
    outtextxy(x-10,y-12,' TEXT   IN    WINDOW  ');
  end;
end;

var
  gd, gm: integer;
  c: char;
  n: integer;

begin
  randomize;
  gd := detect;
  initgraph(gd,gm,'');

  x := 25;
  y := getmaxy div 2;

  c := #0;

  repeat
    set_font(x,y);
    casecolor(false, n);

    if keypressed then c := readkey;
    case c of
      #13 :
        begin
          casecolor(true, n);
          c:=#0;
        end;
    end;
    delay(40);

    setfillstyle(solidfill, getbkcolor);
    bar(x-21,y-19,x+281,y+25);
    inc(x);
  until (x + 280 > getmaxx) or (c = #27);
  closegraph;
end.

Если непонятно - говори, где. Я добавлю комментарии.

Спасибо за помощь, но что-то у меня токо черный экран и при нажатии любой кнопки выходит из нее.
Модуль Graph рабочий, другие программы работают