| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

PaintBox загрузка картинки [D7, WinXP]

Дебил-Дебилович-Дебилкин ©   (2005-12-08 00:06:00) 

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

---

Дебил-Дебилович   (2005-12-09 20:16:00) [1]

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

---

Джо   (2005-12-09 06:11:00) [2]


 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;



---

Fenik   (2005-12-08 20:19:00) [3]

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

---

Дебил-Дебилович   (2005-12-08 19:19:00) [4]

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

---

Васяня   (2005-12-08 05:20:00) [5]

TPaintBox.Canvas.Draw(); ???

---

Наверх