Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Извлечение картинки из ImageList1 в ImageList2

Автор: YuliaOstrovskaya 4.3.2009, 10:39

Здравствуйте, уважаемые программисты. Вот такой вопрос: извлекаем картинку из 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

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

Автор: ~FoX~ 4.3.2009, 11:05

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

Цитата

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, а то возвращаемая картинка будет иметь белый фон, соответственно все что белое на картинке, станет фоном...

Автор: YuliaOstrovskaya 4.3.2009, 11:33

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