Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.045 c
3-1085561859
Zloy_dima
2004-05-26 12:57
2004.06.20
MySql+dbExpress


14-1086086495
alless
2004-06-01 14:41
2004.06.20
Распозновать рукописный шрифт


1-1086255747
kukuikar
2004-06-03 13:42
2004.06.20
Корректировка вопроса о шифровании


1-1086321260
mmb
2004-06-04 07:54
2004.06.20
Не загружаются библиотеки созданные Compaq Visual Fortran под W98


8-1081266827
Delphi5.01
2004-04-06 19:53
2004.06.20
BitMap.ScanLine