Скачать: CL | DM;

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()

---

← →
Джо ©   (2005-12-09 06:11) [4]


 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
Спосибо вам выручили а то я уже и незнал что делать,теперь всё работает молодцы =)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c