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]

пробывал так стереть предыдущую запись

Нет, так нельзя, ты перемешиваешь графический и текстовый режимы, ClrEOL доступно только в текстовом. Попробуй рисовать прямоугольник цвета фона, и закрывать им все, что было в окне раньше. Или устанавливать ViewPort, и чистить его через ClearViewport. Первый вариант делается так:

Procedure CaseColor(C:char;n:integer);
const
  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);

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

Randomize я убрал отсюда, ее лучше вызывать один раз, при старте программы

Как можно реализовать движение окна слева направа по горизонтальной оси с постоянной скорость?
наверна с помощью цикла?))

Да, в цикле меняй значение X, и перерисовывай не только строки внутри окна, но и его бордюр (set_font) тоже...