Как изменить прозрачность bmp рисунка?

@kko · Регистрация: 04.06.2013

Студворк — интернет-сервис помощи студентам

Delphi

procedure TForm1.FormPaint(Sender: TObject);
var
 bm:TBitMap;
begin
 bm:=TBitMap.Create;
 bm.LoadFromResourceName(HInstance,'Start');
 Form1.Canvas.Draw(0,0,bm);
end;

так делаю фон, но хочу чтобы он появился плавно. Свойство формы AlphaBlendValue на которой этот фон на него не влияет. Как сделать чтобы все картинка изменила прозрачность с 0 до 255 по аналогии с AlphaBlend?

Добавлено через 2 часа 22 минуты
Заметил, что если кинуть TImage на форму то она меняет прозрачность от AlphaBlendValue. Вопрос как загрузить из ресурсов Picture для TImage? LoadFromResourceName для picture не применимо.

14.01.2014, 12:59

Это умеет делать TBitmap.

Delphi

1	Image1.Picture.Bitmap.LoadFromResourceName(HInstance,'Start');

@kko · 14.01.2014, 13:01 **[ТС]**

СПАСИБО заработало все

14.01.2014, 13:10

Делал для одного человека демонстрационный проект, может пригодится.

@kko · 16.01.2014, 10:20 **[ТС]**

angstrom
Вы с графикой на ты!
Как мне можно связаться с вами?

@kko 1 / 1 / 1 Регистрация: 04.06.2013 Сообщений: 75
	14.01.2014, 13:01 [ТС]	3
	СПАСИБО заработало все 0

@kko 1 / 1 / 1 Регистрация: 04.06.2013 Сообщений: 75
	16.01.2014, 10:20 [ТС]	5
	angstrom Вы с графикой на ты! Как мне можно связаться с вами? 0

Опции темы