Прорисовка изображения на Paintbox со второго раза

@vadim23409 · Регистрация: 24.09.2012

Author24 — интернет-сервис помощи студентам

нужно написать процедуру, которая подгрузит битмап и нарисует его на paintbox'е, вот такой код:

Delphi

procedure loadpict;
begin
pict:=Tbitmap.Create;
if form1.OpenPicturedial1.Execute then
begin
pict.LoadFromFile(form1.OpenPicturedial1.FileName);
end;
form1.PaintBox1.Height:=pict.Height;
form1.PaintBox1.Width:=pict.Width;
form1.PaintBox1.Canvas.Draw(0,0,pict);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
loadpict;
end;

с первого раза только на мгновение покажет картинку, но запустив еще раз изображение останется, в чём проблема?

25.02.2014, 22:03

Сообщение от vadim23409

изображение останется

А теперь сверните программу и разверните. Куда делось изображение?

@vadim23409 · 01.03.2014, 23:49 **[ТС]**

Сообщение от angstrom

А теперь сверните программу и разверните. Куда делось изображение?

и что теперь? при каждом изменении положения окна и элементов на нём нужно задействовать paintbox1.repaint?

Добавлено через 45 секунд
да ну этот paintbox, поставлю Timage

01.03.2014, 23:55

Отрисовка для TPaintBox-а должно происходить в его событии OnPaint.

@cotseec · 01.03.2014, 23:56

Сообщение от vadim23409

элементов на нём нужно задействовать paintbox1.repaint

перерисовка и так задействована, другое дело, что код рисования должен быть размещен в обработчике OnPaint

@vadim23409 · 02.03.2014, 00:47 **[ТС]**

Сообщение от cotseec

код рисования должен быть размещен в обработчике OnPaint

ну а если мне нужно время от времени рисовать на нём что-то другое, например при нажатии кнопки, а в обработчике OnPaint он будет нарисован один раз и всё, то как быть?

@cotseec · 02.03.2014, 00:49

Сообщение от vadim23409

он будет нарисован один раз

т.е. код рисования не подразумевает каких-либо условий? (например, если что-то, то рисуй круг, иначе - рисуй квадрат)

@vadim23409 · 02.03.2014, 00:53 **[ТС]**

например: button1.on click - нарисовать картинку, выбранную через opendialog, button2.onclick - нарисовать круг, paintbox1.onmousedown - изменить цвет пикселя, на который наведён курсор и много чего другого.

02.03.2014, 01:24

Рисуешь на битмапе, а в OnPaint TPaintBox-а переносишь рисунок с битмапа.

@wingblack · 02.03.2014, 18:17

вот может поможет

Delphi

var buf:TBitmap;
 
////////////////// обновление кадра
BitBlt(Image1.Canvas.Handle,0,0,buf.Width,buf.Height,buf.Canvas.Handle,0,0,SRCCOPY);
Image1.Refresh;

Я делал так, работает нормально, не TPaintBox, но все же.

angstrom
	25.02.2014, 22:03	2
	Сообщение от vadim23409 изображение останется А теперь сверните программу и разверните. Куда делось изображение?

@vadim23409 6 / 6 / 2 Регистрация: 24.09.2012 Сообщений: 381
	01.03.2014, 23:49 [ТС]	3
	Сообщение от angstrom А теперь сверните программу и разверните. Куда делось изображение? и что теперь? при каждом изменении положения окна и элементов на нём нужно задействовать paintbox1.repaint? Добавлено через 45 секунд да ну этот paintbox, поставлю Timage 0

angstrom
	01.03.2014, 23:55	4
	Отрисовка для TPaintBox-а должно происходить в его событии OnPaint.

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	01.03.2014, 23:56	5
	Сообщение от vadim23409 элементов на нём нужно задействовать paintbox1.repaint перерисовка и так задействована, другое дело, что код рисования должен быть размещен в обработчике OnPaint 0

@vadim23409 6 / 6 / 2 Регистрация: 24.09.2012 Сообщений: 381
	02.03.2014, 00:47 [ТС]	6
	Сообщение от cotseec код рисования должен быть размещен в обработчике OnPaint ну а если мне нужно время от времени рисовать на нём что-то другое, например при нажатии кнопки, а в обработчике OnPaint он будет нарисован один раз и всё, то как быть? 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	02.03.2014, 00:49	7
	Сообщение от vadim23409 он будет нарисован один раз т.е. код рисования не подразумевает каких-либо условий? (например, если что-то, то рисуй круг, иначе - рисуй квадрат) 0

@vadim23409 6 / 6 / 2 Регистрация: 24.09.2012 Сообщений: 381
	02.03.2014, 00:53 [ТС]	8
	например: button1.on click - нарисовать картинку, выбранную через opendialog, button2.onclick - нарисовать круг, paintbox1.onmousedown - изменить цвет пикселя, на который наведён курсор и много чего другого. 0

angstrom
	02.03.2014, 01:24	9
	Рисуешь на битмапе, а в OnPaint TPaintBox-а переносишь рисунок с битмапа.

	02.03.2014, 18:17