текст в указанном мышкой месте

← →
red chief © (2004-06-07 19:45) [0]

Нарисовать в канве компонента TpaintBox любой текст в указанном мышкой месте.
Что добавить сюда чтобы писало в указанном мышкой месте
procedure TForm1.Button1Click(Sender: TObject); var b:TBitmap; i,w:integer; begin b:=TBitmap.Create; b.Width:=0; b.Height:=0; b.Canvas.Font:=Font; for i:=0 To Memo1.Lines.Capacity-1 do begin if Canvas.TextWidth(Memo1.Lines[i])>b.Width then b.Width:=Canvas.TextWidth(Memo1.Lines[i]); b.Height:=b.Height+Canvas.TextHeight("ZDima"); b.Canvas.TextOut(0,Canvas.TextHeight("ZDima")*i,Memo1.Lines[i]); end; Canvas.Draw(0,0,b); b.Free; end;

← →
Mim1 © (2004-06-07 19:47) [1]

А в чем вопрос собственно.

PS в Paintbox надо рисовать только в событти on paint.

← →
Mim1 © (2004-06-07 19:48) [2]

То есть когда суслик тывает мышкой вы сохраняете координаты.
Вызываете перерисовку paintbox"а (repaint). А уже в событти выводите текст.

← →
iat (2004-06-07 19:54) [3]

обработать событие OnMouseDown или OnMouseUp и запомнить указанные координаты.
а в b.Canvas.TextOut(x,y, text) задаются сохраненные координаты

текст в указанном мышкой месте Найти похожие ветки