[jaxik]

Добрый день уважаемые программисты.

Подскажите пожалуйста как сделать блок схему? При рисовании канвас,

допустим

procedure TForm1.Button1Click(Sender: TObject);
begin
WITH Image1.Canvas DO
{здесь рисуем прямоугольник}
end;
end;

[Yurgen]

Блок схему чего?
Функции Canvas?
Зажми ctrl наведи мышь на функцию кликни, откроется исходник, почитай его и нарисуй себе блок схему на бумажке

[jaxik]

Очень смешно. Тут курсач горит )))



Так будет правильно или нет?

прямоугольник с линиями - "вызов процедуры или ф-ии"



Код программы такой.

procedure TForm1.Button1Click(Sender: TObject);
begin
With image1.Canvas do Begin
Brush.Color:=clWhite;
Pen.Color:=clBlack;
image1.canvas.Rectangle(50,50,450,300)

End;

end;

end.