Page 71 - 4260

begin
with Form1 do
begin
if Button = mbLeft // натиснута ліва
кнопка?
then
begin
Canvas.Pen.Color :=
clBlack;
StarLine(x, y,
30,Canvas);

Canvas.Brush.Style:=bsDiagCross;

Canvas.Brush.Color:=clRed;

Canvas.FloodFill(x,y,Canvas.Pen.Color, fsBorder);
end
else
begin
Canvas.Pen.Color :=
clRed;
StarLine(x, y,
30,Canvas);

Canvas.Brush.Style:=bsCross;

Canvas.Brush.Color:=clBlue;

Canvas.FloodFill(x,y,Canvas.Pen.Color, fsBorder);
end;
end;
end;

end.
Н а р и с у н к у 7.4Р и с . п р е д с т а в л е н о в и д в і к н а д о д а т к а
завдання 1 при виконанні.
71