Разработка программы- тренажера Управление электросетями
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: дипломы курсовые, реферат на тему искусство
| Добавил(а) на сайт: Lapuhin.
Предыдущая страница реферата | 9 10 11 12 13 14 15 16 17 18 19 | Следующая страница реферата
Pen.Color:=clBlack;
Rectangle(1,1,17,17);
MoveTo(6,17);
LineTo(15,1); end;
F[i]:=true; end else begin with AOwner.Canvas do begin
Pen.Color:=clWhite;
MoveTo(6,17);
LineTo(15,1);
Pen.Width:=2;
Pen.Color:=clBlack;
Rectangle(1,1,17,17);
MoveTo(6,1);
LineTo(6,17); end;
F[i]:=false; end; end;
procedure ABRState(AOwner:TImage;i:integer); begin if F[i]=False then begin with AOwner.Canvas do begin
Brush.Color:=clWhite;
FloodFill(8,8,clBlack,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); end;
Рекомендуем скачать другие рефераты по теме: дипломная работа по юриспруденции, рассказы.
Категории:
Предыдущая страница реферата | 9 10 11 12 13 14 15 16 17 18 19 | Следующая страница реферата
Главная