Текущий архив: 2004.06.20;
Скачать: CL | DM;

Вниз

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

← →
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;

---

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

Текущий архив: 2004.06.20;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.025 c