Код:
привет!Начал разбирать ваш код:создал на форме PaintBox1 на вкладке events создал процедуру mousedown,прописал вручную
procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ClickPos := Point(X, Y);
CursorPos := ClickPos;
Canvas.Pen.Color := clRed;
Canvas.Pen.Mode := pmNotXor;
Canvas.Pen.Width := 3;
end;
решил посмотреть что получится,запустил и получил ошибку в строке
ClickPos := Point(X, Y);
внизу ошибка называется так
[Error]Unit1.pas(31):Undeclared identifier:'Click Pos'
[FatalError] Project1.dpr(5):Could not compile used unit 'Unit1.pas'
что это за ошибка ?что я не так сделал?
это из первого вашего кода рисование линий
Админ: Пользуемся тегами, иначе последуют санкции!