Не работает Transparent у image, если картинка загружена из DLL

@Embri · Регистрация: 22.11.2012

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

Не могу понять, почему не хочет работать Transparent.
Подгружаю картинку из Dll и вставляю в image на форме:

Delphi

var  h: THandle;
 png: TPNGObject;
begin
h:= LoadLibrary('P.dll');
if h <> 0 then
begin
image1.Transparent:=true;
png := TPNGObject.Create;
png.LoadFromResourceName(h, 'image1');
Canvas.Pen.Color := clWhite;
Image1.Canvas.Draw(0, 0, png);
png.Free;
end;
end;

Если же кинуть картинку сразу в image, то и без Transparent'a она отображается без фона.
Название: 5675.png
Просмотров: 94

Размер: 2.6 Кб

@FIL · 08.02.2014, 23:00

Попробуй:

Delphi

1	Image1.Picture.Bitmap.Assign(png);

Если не поможет - выложи картинку.

@Embri · 08.02.2014, 23:13 **[ТС]**

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

Если не поможет - выложи картинку.

В принципе работает, но картинка становится такой:
Название: Безымянный.png
Просмотров: 91

Размер: 2.3 Кб

Вот сам оригинал картинки:
Название: 1.png
Просмотров: 91

Размер: 3.6 Кб

@FIL · 08.02.2014, 23:21

У меня все четко: Название: 11.jpg
Просмотров: 90

Размер: 2.1 Кб

Delphi

var
  png: TPNGObject;
begin
  png := TPNGObject.Create;
  png.LoadFromFile('1.png');
  Image1.Picture.Bitmap.Assign(png);
  png.Free;
end;

@Embri · 08.02.2014, 23:22 **[ТС]**

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

Попробуй:

Delphi

1	Image1.Picture.Bitmap.Assign(png);

Хм.
Убрал из строчки Bitmap -

Delphi

1	Image1.Picture.Assign(png);

стало отлично:
Название: 123123.png
Просмотров: 92

Размер: 1.6 Кб

Большое спасибо Вам!

@Embri 3 / 3 / 2 Регистрация: 22.11.2012 Сообщений: 25
	08.02.2014, 23:13 [ТС]	3
	Сообщение от FIL Если не поможет - выложи картинку. В принципе работает, но картинка становится такой: Вот сам оригинал картинки: 0

Опции темы

Не работает Transparent у image, если картинка загружена из DLL

Решение