PaintBox загрузка картинки

← →
Дебил-Дебилович-Дебилкин (2005-12-08 00:06) [0]

Добрый день мастера
Есть картинка чёрно белая размером 100 на 100,необходимо эту картинку отобразить в стандартном компоненте дельфи PaintBox,
Подскажите как это сделать?

← →
Васяня (2005-12-08 05:20) [1]

TPaintBox.Canvas.Draw(); ???

← →
Дебил-Дебилович (2005-12-08 19:19) [2]

я делал так TPaintBox.Canvas.Draw(); в скобках указывал на битмап переменную которая в свою очередь загружала картинку но на форме эта картинка не отобразилась.
Надо именно в моей программе PaintBox использовать.
Может кто нить знает способ загрузить картинку в PaintBox ?
может надо както изображение скопировать а потом передать этому PaintBox чтобы всё отобразилось?

← →
Fenik © (2005-12-08 20:19) [3]

У PainBox"a есть событие OnPaint, в обработчике которого и надо делать TPaintBox.Canvas.Draw()

TForm15 = class(TForm) PaintBox1: TPaintBox; procedure PaintBox1Paint(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure FormCreate(Sender: TObject); private FBitmap: TBitmap; ... end; implementation // Обработчик события TForm.OnCreate procedure TForm15.FormCreate(Sender: TObject); begin FBitmap := TBitmap.Create; FBitmap.LoadFromFile("E:\sample.bmp"); end; // Обработчик события TForm.OnDestroy procedure TForm15.FormDestroy(Sender: TObject); begin FBitmap.Free; end; // Обработчик события TPaintBox.OnPaint procedure TForm15.PaintBox1Paint(Sender: TObject); begin PaintBox1.Canvas.Draw(0,0,FBitmap); end;

← →
Дебил-Дебилович (2005-12-09 20:16) [5]

Джо, Fenik
Спосибо вам выручили а то я уже и незнал что делать,теперь всё работает молодцы =)

PaintBox загрузка картинки Найти похожие ветки