Паскаль(графика)

[masterlomaster]

Тяжело ли сделать мегающую надпись, т.е то появляется то исчезает предложение?



P.S или это вообще не графика, а через модуль CRT делается?.

[VadikV]

Через CRT. При задании параметров выводимого текста (цвет шрифта, цвет фона) можно задать "моргающий" текст. Смотри в сторону TextColor

[Serge_Bliznykov]

к сожалению аттрибут текста "blink" (мигать/мерцать) будет работать только если приложение развёрнуто на весь экран. (ну или в DOS или эмуляторе DOS, например, в DosBox)

uses Crt;
begin
  { Green characters on black}
  TextColor(Green);
  TextBackground(Black);
  WriteLn('Hey there!');
  { Blinking light-red characters }
  { on gray }
  TextColor(LightRed+Blink);
  TextBackground(LightGray);
  WriteLn('Hi there!');
  { Yellow characters on blue }
  TextColor(14); { Yellow = 14 }
  TextBackground(Blue);
  WriteLn('Ho there!');
  NormVideo; { Original attribute }
  WriteLn('Back to normal...');
  readln;
end.

есть другой подход (он универсально будет работать хоть в графике, хоть в тексте - выводим надпись. Делаем паузу (четверть секунды, например). Стираем надпись. Делаем паузу.
Выводим надпись. Делаем это в цикле. Всё. получили мигающую надпись...

[masterlomaster]

...Спасибо...

[masterlomaster]

Program GRAFIKA;
uses Graph,CRT;
var
x,y,i:integer;
dryver:integer;
monitor:integer;
Errorgraph:integer;
   BEGIN
    dryver:=detect;
    Initgraph(dryver,monitor,'..BGI');
    Errorgraph:=GraphResult;
     begin
      x:=GetMaxx div 2;
      y:=GetMaxy div 2;
      repeat
       begin
        setcolor(red);
        setTextStyle(0,0,3);
        setusercharsize(100,100,100,100);
        outtextXY(x,y,'ENTER');
        delay(40000);
        cleardevice;
        delay(40000);
        outtextXY(x,y,'ENTER');
       end;
      until keypressed;
     end;
    CloseGraph;
   END.

Как изменить шрифт текста?