Перерисовываем картинку с TImage на TPanel

[-Jack-]

Всем привет. Вот такой вопрос, как можно перерисовать картинку с TImage на TPanel ?

Вот небольшой мой набросок

__fastcall TMyPanel::TMyPanel(TComponent* Owner, TForm *Form, TImage *img):TPanel(Owner)
{
	this->Parent = Form;
	this->Width = 200;
	this->Height = 200;
	this->Left = 0;
	this->Top = 0;
	this->Caption="";

	this->Canvas->Draw(0,0,img->Picture->Graphic);
}

class TMyPanel: public TPanel  {
	private:
	public:
		__fastcall TMyPanel(TComponent* Owner, TForm *Form, TImage *img);
	__published:
		__property Canvas;
};

	TMyPanel *Pnl = new TMyPanel(this, Form1, Image1);

В итоге программа компилируется, экземпляр TPanel появляется, но рисунка на нём нет ...

[waleri]

Надо переопределить метод Paint и рисовать там, а не в конструкторе.

[-Jack-]

Спасибо, подправил немного конструкцию элемента:

	private:
		TBitmap *ImageBox;
	public:
		__fastcall TMyPanel(TComponent *Owner, TForm *Form, TBitmap *img);

void __fastcall TMyPanel::Paint()
{
	// прорисовка TPanel
	/*
	...
	*/

	//перерисовываем рисунок на TPanel
	this->Canvas->Draw(0,0, this->ImageBox);
}

	Graphics::TBitmap *ptBmp;
	ptBmp=new Graphics::TBitmap;
	this->ImageList1->GetBitmap(0, ptBmp);
	TMyPanel *Pnl= new TMyPanel(this, Form1, ptBmp);

Но в этой конструкции 2 минуса:
- не знаю, каким образом можно промасштабировать изображение на новом TPanel ( т.е. если в ImageList1 закинуть через чур большое изображение, то оно не особо будет смотреть и не всё влезать на новый TPanel )
- PNG рисунок подгружается с черным фоном ...

[Krok27]

не знаю, каким образом можно промасштабировать изображение на новом TPanel

Средствами WinAPI, какой-нибудь SetDIBits функцией, а потом выводить на панель.

на новый TPanel

Что мешает сделать агрегированый компонент: на TPanel положить Timage, на всю панель, обозвать его TMyPanel и рисовать в уже на TImage?

[-Jack-]

Да масштабирование не самая главная задача ... можно сделать ограничение и просто отслеживать размеры картинок ...
Больше смущает то, что фон не прозрачный

[waleri]

http://docs.embarcadero.com/products...@TGraphic.html

Читаем про opacity

[-Jack-]

Сообщение от waleri

http://docs.embarcadero.com/products...@TGraphic.html

Читаем про opacity

А причем тут opacity, если нужно чтобы только фон прозрачным был, а не всё изображение ?

[waleri]

Сообщение от -Jack-

- PNG рисунок подгружается с черным фоном ...

хорошо, я спрошу по другому - каким, по вашему, должен быть фон у PNG рисунка...

[-Jack-]

Сообщение от waleri

хорошо, я спрошу по другому - каким, по вашему, должен быть фон у PNG рисунка...

Если разглагольствовать по поводу прозрачности ... прозрачность в png задается при помощи альфа канала ...

Если говорить о "прозрачном фоне" ... То он в любом случаи будет какого либо цвета ... А его прозрачность будет задаться альфа каналом