#include <jpeg.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TJPEGImage *jpeg = new TJPEGImage();
jpeg->LoadFromFile("c:\\1.jpg");
TBrush *Brush = new TBrush();
Brush->Bitmap = new Graphics::TBitmap();
Brush->Bitmap->Assign(jpeg);
// Уже присвоили. Можно юзать.
Form1->Canvas->Brush = Brush;
Form1->Canvas->FillRect(Rect(0,0,200,100));
delete jpeg;
}
TBrush
А как кисть объявить и удалить? Я по Архангельскому делаю - у меня ошибки вылетают - типа память не может быть read и written!
Да примерно так:
Ага, спасибо. Посмотрю.
Кисть не обновляется моя. Проблема в удалении jpeg!