Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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) задаются сохраненные координаты

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.091 c