Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

F[i]:=True; end else begin with AOwner.Canvas do begin

FloodFill(8,8,clWhite,fsSurface);

Pen.Width:=2;

Pen.Color:=clBlack;

MoveTo(1,15);

LineTo(8,1);

MoveTo(8,1);

LineTo(17,15);

MoveTo(17,15);

LineTo(1,15);

Brush.Color:=clBlack;

FloodFill(8,8,clBlack,fsBorder); end;

F[i]:=False; end; end;

procedure MVState(AOwner:TImage;i:integer); begin if F[i]=false then begin with AOwner.Canvas do begin

Pen.Color:=clWhite;

MoveTo(9,6);

LineTo(9,11);

Pen.Width:=2;

Pen.Color:=clBlack;

Rectangle(1,1,17,17);

MoveTo(6,8);

LineTo(11,8); end;

F[i]:=true; end else begin with AOwner.Canvas do begin

Pen.Color:=clWhite;

MoveTo(6,8);

Рекомендуем скачать другие рефераты по теме: дипломная работа по юриспруденции, рассказы.





Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата