Получилось только вот -( Не знаю как реализовать смену цвета и вывести его. Помогите...)
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 -