[cadil]

При нажатии кноки мышки в точке А на поле рисунка и при ее отпускании в точке В рисуется отрезок прямой. При этом, линия прорисовывается только при отпускании кнопки мышки в точке В. А как организовать, чтобы линия прорисовывалась в реальном масштабе времени в процессе перемещения маркера, как, допустим, работает практически любой инструмент в Фотошопе?
И вопрос более общего характера - как сделать, чтобы текст в эдите отображался на рисунке или в ворде сразу после набора символа в эдите, а не после того, как набран весь текст и нажата кнопки "сохранить"?
Спасибо!

[Vex_TH]

Чтобы рисовать линию в реальном времени при перемещении мышки по форме нужно отрисовку проводить в обработчике события формы OnMouseMove и в качестве координат конечной точки линии использовать координаты курсора, также надо каждый раз очищать форму, иначе нарисованные ранее линии не исчезнут. И ещё - сначало нада рисовать в буфере(на невидимой канве) а патом переносить на саму форму, если этого не сделать то будет сильное мигание изображения.
Чтобы текст наносился на изображение сразу при изменении текста в Edit нужно наносить его на изображение при событии едита ONChange - тут проблемы теже - мигание и обновление изображения(иначе текст будет накладываться на старый).

[ART]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

<font face="courier new"> <b>unit</b> Unit1;   <b>interface</b>   <b>uses</b>   Windows,  Messages,  SysUtils,  Variants,  Classes,  Graphics,  Controls,  Forms,   Dialogs,  ExtCtrls;   <b>type</b>   TForm1  =  <b>class</b>(TForm)     Image1: TImage;     <b>procedure</b> Image1MouseMove(Sender: TObject; Shift: TShiftState; X,       Y: Integer);     <b>procedure</b> Image1MouseDown(Sender: TObject; Button: TMouseButton;       Shift: TShiftState; X,  Y: Integer);     <b>procedure</b> Image1MouseUp(Sender: TObject; Button: TMouseButton;       Shift: TShiftState; X,  Y: Integer);   <b>private</b>     { <b>private</b> declarations }   <b>public</b>     { <b>public</b> declarations }   <b>end</b>;   <b>var</b>   Form1: TForm1;   Origin,  MovePt: TPoint;   Drawing: boolean; <b>implementation</b>   {$R  * .dfm}   <b>procedure</b> DrawShape(TopLeft,  BottomRight: TPoint; AMode: TPenMode); <b>begin</b>   <b>with</b> Form1.Image1.Canvas <b>do</b> <b>begin</b>     Pen.Mode  :=  AMode;     MoveTo(TopLeft.X,  TopLeft.Y);     LineTo(BottomRight.X,  BottomRight.Y);   <b>end</b>; <b>end</b>;   <b>procedure</b> TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); <b>begin</b>  <b>if</b> Drawing  =  true <b>then</b> <b>begin</b>   DrawShape(Origin,  MovePt,  pmNotXor);   MovePt  :=  Point(X,  Y);   DrawShape(Origin,  MovePt,  pmNotXor);  <b>end</b>; <b>end</b>;   <b>procedure</b> TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X,  Y: Integer); <b>begin</b>   Image1.Canvas.MoveTo(X,  Y);   Origin  :=  Point(X,  Y);   MovePt  :=  Origin;   Drawing  :=  true; <b>end</b>;   <b>procedure</b> TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X,  Y: Integer); <b>begin</b>  Drawing  :=  false; <b>end</b>;   <b>end</b>. </font>

[cadil]

Нет слов, чтобы выразить свою благодарность ART ! Промучился несколько дней, чтобы по советам Vex_TH написать соответствующие инструкции - нужного результата не добился. Зашел на сайт попросить помощи, а тут подарок - исходник программы уже висит!
Действительно - Знать путь и пройти его - не одно и тоже.
ART - еще раз спасибо! Удач!

[cadil]

Сообщение от ART

Код:

Воспользовался твоим кодом линии. Еще раз -спасибо!
Самостоятельно не могу устранить один недостаток - цвет линии меняется с изменением фона. Помоги задать цвет линии и этот цвет не должен зависеть от фона (рисунка), на котором рисуется линия. Заранее спасибо.