Форум: "Media";
Текущий архив: 2006.05.07;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Media";
Текущий архив: 2006.05.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.047 c
