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

← →
red chief © (2004-06-08 21:21) [0]

Вот само задание: разработать программу простейшего графического редактора (аналога программы Paint системы Windows). Он должен рисовать в канве компонента TpaintBox любой текст в указанном мышкой месте.

Короче текст оно пишет но у меня не получается чтобы в указанном мышкой месте. :(

Var I:TbitMap; begin I.Height=form1.PaintBox1.Height; I.Width:=form1.PaintBox1.Width if d=1 then PaintBox1.Canvas.Draw(a,b,pic3); d:=1; a:=x; b:=y-5; with form1.PaintBox1 do begin Button1.Enabled:=true; Edit1.Enabled:=true; ComboBox1.Enabled:=true; ComboBox2.Enabled:=true; ColorBox1.Enabled:=true; CheckBox1.Enabled:=true; CheckBox2.Enabled:=true; CheckBox3.Enabled:=true; end; form1.Edit1.SetFocus; pic3.Canvas.CopyRect(rect(0,0,pic3.width,pic3.height),form1.PaintBox1.canvas, rect(a,b,a+2,b+15)); form1.PaintBox1.Canvas.Pen.Color:=clBlack; form1.PaintBox1.Canvas.MoveTo(a,b); form1.PaintBox1.Canvas.LineTo(a,b+14); I.Canvas.CopyRect(rect(0,0,I.Width,I.Height),form1.PaintBox1.Canvas,rect(0,0, paintBox1.width,paintBox1.height)); end; begin pic:=tbitmap.Create; pic.Height:=300; pic.Width:=1000; pic2:=tbitmap.Create; pic2.Height:=500; pic2.Width:=1000; pic3:=tbitmap.Create; pic3.Height:=2; pic3.Width:=15 I:=tbitmap.Create;

← →
Minori (2004-06-09 09:59) [1]

Никак не пойму, что не получается:
procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin with Sender as TPaintBox do begin canvas.TextOut(x,y,"OK"); end; end;

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