asd / корзина / лекции по TP / Lecture_Pascal / graph / BAR

program lek;
Uses Graph,crt;
var
 Gd, Gm: Integer;
 Radius,i: Integer; w:word;
 p:pointer;
begin clrscr;
 Gd := Detect;
 InitGraph(Gd, Gm, 'c:\tp70\bgi ');
 if GraphResult <> grOk then begin
                             writeln(' GraphMode not insstol !');
                             Halt(1);
                             end;
   SetFillStyle(7,5 );
     Bar(100, 200, 200, 300);
      w:=ImageSize(99,201,199,301);
              GetMem(p,w);
         GetImage(100, 200, 200, 300,p^);
          i:=1;    repeat
                            SetFillStyle(0,0 );
                            Bar(100+i-2, 200, 200+i-2, 300);
                            Delay(3);
                           PutImage(100+i,200,p^,1);
                           i:=i+2
                    until i>400;
{setcolor(6);
Rectangle(200,300,350,400);
SetTextStyle(DefaultFont, vertDir, 3);
OutTextXY(200, 330, 'colors');
settextstyle(defaultfont,horizdir,5);
outtextxy(100,100,'    TTTTT');}
 Readln;
 CloseGraph;
end.