Page 82 - 6370
P. 82
procedure TForm3.FormMouseDown(Sender:
TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (ssCtrl in shift) then
canvas.Brush.Color:=clblue;
canvas.Brush.Style:=bsBDiagonal;
canvas.FloodFill(x,y,canvas.Pen.Color,fsBo
rder);
end;
13. Запускають команду Run. Здійснюють виконання
замкнутої фігури і після того клацають мишкою при
натиснутій клавіші Сtrl , перед тим навівши курсор, так
щоб він перебував у середині цієї фігури, а не поза нею
(рисунок 58).
Рисунок 58 – Замкнута фігура заповнена діагональною
штриховкою синього кольору.
84
