Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.72/18: Рейтинг темы: голосов - 18, средняя оценка - 4.72
Maincore
14 / 14 / 2
Регистрация: 22.03.2012
Сообщений: 95
1

image canvas рисование прямоугольника

22.10.2013, 12:56. Просмотров 3495. Ответов 3
Метки нет (Все метки)

Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure Timg_brd.FormCreate(Sender: TObject);
begin
image:=Tbitmap.Create;
image.LoadFromFile('out.bmp');
image1.Width:=image.Width;
image1.Height:=image.Height;
end;
//....................................................................................
 
procedure Timg_brd.Image1Click(Sender: TObject);
begin
image1.Canvas.Draw(0,0,image);
Image1.Canvas.Pen.Width:=5;
Image1.Canvas.Pen.Color:=clRed;
Image1.Canvas.Brush.Style:=bsClear;
Image1.Canvas.Rectangle(x_click,y_click,x_move,y_move) ;
end;
//....................................................................................
 
procedure Timg_brd.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
x_move:=x;
y_move:=y;
end;
 
procedure Timg_brd.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
x_click:=x;
y_click:=y;
end;

Нужно при помощи мыши нарисовать прямоугольник на image1.
Как это сделать приведеный код не совсем корректно работает.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.10.2013, 12:56
Ответы с готовыми решениями:

Можно ли одной процедурой рисовать на Image.Canvas и Printer.Canvas
Здравствуйте, пожалуйста, подскажите можно ли одной процедурой рисовать на Image.Canvas и...

Как добиться одинакового размера шрифта при выводе на Image.Canvas и Printer.Canvas
Здравствуйте! Подскажите, пожалуйста, как добиться одинакового размера шрифта при выводе на...

Рисование с canvas
Итак, в чем в общем суть моей проблемы я ввожу скажем две координаты точки, надо проверить...

Рисование с Canvas
Подскажите новичку в Delphi-рисовании, как можно стереть с формы всё, что было нарисовано с помощью...

Рисование окружности и прямоугольника
Надо написать программу на Delphi: реализовать рисование так чтобы по нажатию левой кнопки мыши...

3
Puporev
Модератор
57088 / 43587 / 30123
Регистрация: 18.05.2008
Сообщений: 103,929
22.10.2013, 13:17 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
  Form1: TForm1;
  x_click,y_click,x_move,y_move:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Canvas.FillRect(Image1.ClientRect);
end;
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
x_click:=x;
y_click:=y;
end;
 
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
x_move:=x;
y_move:=y;
Image1.Canvas.Rectangle(x_click,y_click,x_move,y_move);
end;
0
Lirrk
Заблокирован
22.10.2013, 13:22 3
Хоть бы написали в чём эта некорректность состоит.
Проект бы выложили со всеми причиндалами.
Где ваш out.bmp искать?
И ещё время тратить на закомментирование этих строк, чтоб этот файл не искался.
и вообще вашу эту вот процедуру перенесите в отдельную
Delphi
1
2
3
4
5
6
7
8
procedure Timg_brd.Image1Click(Sender: TObject);
begin
image1.Canvas.Draw(0,0,image);
Image1.Canvas.Pen.Width:=5;
Image1.Canvas.Pen.Color:=clRed;
Image1.Canvas.Brush.Style:=bsClear;
Image1.Canvas.Rectangle(x_click,y_click,x_move,y_move) ;
end;
Вот так
Delphi
1
2
3
4
5
6
7
8
procedure Timg_brd.Draw_;
begin
image1.Canvas.Draw(0,0,image);
Image1.Canvas.Pen.Width:=5;
Image1.Canvas.Pen.Color:=clRed;
Image1.Canvas.Brush.Style:=bsClear;
Image1.Canvas.Rectangle(x_click,y_click,x_move,y_move) ;
end;



Delphi
1
2
3
4
5
6
7
procedure Timg_brd.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
x_move:=x;
y_move:=y;
Draw_;
end;
0
Maincore
14 / 14 / 2
Регистрация: 22.03.2012
Сообщений: 95
22.10.2013, 15:48  [ТС] 4
Хоть бы написали в чём эта некорректность состоит.
Проект бы выложили со всеми причиндалами.
Где ваш out.bmp искать?
И ещё время тратить на закомментирование этих строк, чтоб этот файл не искался.
и вообще вашу эту вот процедуру перенесите в отдельную
Времени не было быстро опубликовал. C проблемой благодаря вам и Puporev разобрался!
Спасибо вам.
0
22.10.2013, 15:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.10.2013, 15:48

Рисование на canvas в цикле
имеется какой-то массив. например, 1 250 2 250 3 250 4 125; 4 125 5 250 6 250 7 250; 8 250 9 250...

Вращение Canvas в Image
Помогите пожалуйста с поворотом Canvas в Image, и если это возможно убрать фон у image. Я находил...

Поменять Canvas на Image
Помогите пожалуйста с задачей тир. Замените пожалуйста Сanvas на Image. Картинка должна бегать по...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru