VPF::Извлечение картинки из ImageList1 в ImageList2

YuliaOstrovskaya

Дата 4.3.2009, 10:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 7.10.2008

Репутация: нет
Всего: нет

Здравствуйте, уважаемые программисты. Вот такой вопрос: извлекаем картинку из ImageList1 с номером AIndex и помещаем в ImageList2. В результате в ImageList2 картинка оказывается с белым фоном. Ничего из свойств (Transparent, Style и т.д.) не помогает.

procedure AddImage(AIndex: Integer);

var bmp: TBitmap;

begin

  bmp := TBitmap.Create;

  try

    ImageList1.GetBitmap(AIndex, bmp);

    if bmp <> nil then

      ImageList2.Add(bmp, nil);

  finally

    bmp.Free;

  end;

end;

Poseidon

Дата 4.3.2009, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Какой "реальный" фон у картинки?
Какой формат картинки (точно bmp)?

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

~FoX~

Дата 4.3.2009, 11:05 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Читаем хелп...

Цитата

Adds an Image and its Mask to the image list object.

Delphi syntax:

function Add(Image, Mask: TBitmap): Integer;

Кодим

Код


procedure TForm1.AddImage(AIndex: Integer);
var
  bmp, MaskBitmap: TBitmap;
  col: TColor;
begin
  bmp := TBitmap.Create;
  MaskBitmap := TBitmap.Create;

  try
    ImageList1.GetBitmap(AIndex, bmp);
    MaskBitmap.Assign(bmp);

    col := bmp.Canvas.Pixels[0, bmp.Height -1];
    MaskBitmap.Mask(col);

    if bmp <> nil then ImageList2.Add(bmp, MaskBitmap);
  finally
    MaskBitmap.Free;
    bmp.Free;
  end;
end;

А, забыл, в первом листе хорошо бы поставить masked в false, а то возвращаемая картинка будет иметь белый фон, соответственно все что белое на картинке, станет фоном...

Это сообщение отредактировал(а) ~FoX~ - 4.3.2009, 11:12

--------------------

…множественность никогда не следует полагать без необходимости…

YuliaOstrovskaya

Дата 4.3.2009, 11:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 7.10.2008

Репутация: нет
Всего: нет

~FoX~, большое спасибо!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »