Рисование как в Paint

[artemavd]

Подскажите пожалуйста как в Delphi на Canvas-e можно сделать, чтобы можно было рисовать также как и Paint-e карандошом?

[Stilet]

По-моему в DEMOS'ах Делфи были примеры простенького Паинта на основе TPaintBox. Посмотри их.

[TwiX]

Простым LineTo. Вот быстренько примерчик сделал:

var
  Form1: TForm1;
  x1,y1: integer;
  painting: boolean;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  image1.Canvas.MoveTo(x,y);
  painting:=true;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if painting then Image1.Canvas.LineTo(x,y);
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  painting:=false;
end;

[artemavd]

Всем спасибо за ответы!) Этот вопрос почти решен, но когда открываешь ранее сохраненный рисунок, нарисованный ранее, то когда водишь курсором и рисуешь линию, то по экрану идут полосы. Полагаю, что это с перерисовкой связано. Как сделать, чтобы не было этих мерцаний?

[raxp]

добавь...

procedure TForm1.FormCreate(Sender: TObject);
begin
 DoubleBuffered:= true
end;