Как загрузить картинку в компонент
ImageList так чтобы она имела свойство прозрачности.


var BMP:TBitmap;

BMP:= TBitmap.Create;
BMP.LoadFromFile(MFile);
Immages.Add(BMP,BMP);
BMP.Free;

DrawingStyle = dsTransparent?

Нет нужно чтоб розовый фон вокруг картинки был невидим

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

И что дальше делать ?

А ничего.
Повторюсь, если вы хотите сделать какие-либо области прозрачными, закрасте их таким цветом, какой в нижнем левом пикселе картинки. Ну а затем загрузите этот битмап в TImageList и радуйтесь результату.

А че серьезно нижний левый?
А я то постоянно к верхнему левому привязывал ну [1,1] типа.

nJIaKca.spb, да серьёзно. Видимо у тебя эти два пиксела всегда совпадали...

А как определить Цвет Картинки ?

Pegas, p0s0l, с чего это левый нижний? битмапы бывают двух разных видов, top-down и bottom-up, что соответствует порядку загрузки "строк" пикселей. по умолчанию (т.е. TransparentMode = tmAuto) прозрачность определяет первый пиксел в массиве данных, который может быть как левым нижним, так и левым верхним, в зависимости от типа битмапа. помимо режима по умолчанию, есть режим принудительный, tmFixed, если мне не изменяет память, который включается автоматом при установке свойства TransparentColor.

это означает, что если надо сделать розовый цвет прозрачным, надо просто сказать Bmp.TransparentColor := clFuchsia

Добавлено @ 16:23
Emulator, а что считается "цветом картинки"?

x77, конечно, всё это очень поучительно... Но либо я такой отставший от жизни, либо ты заблуждаешься. Почему-то ниразу мне не приходилось за прозрачность брать левый верхний символ - или вымерли bmp такого вида ?
Кстати, бывает иногда полезно заглянуть в хелп:

Цитата

When TransparentMode is set to tmAuto (the default), the TransparentColor property returns the color of the bottom-leftmost pixel of the bitmap image.

Нигде нет оговорки про зависимость от формата bmp-шки.

Ладно, что там гадать - взял файл "a.bmp" - скопировал его в файл "b.bmp", в Hex-Edit'е поменял свойство Height на отрицательное (было 80h, стало FFFFFF80h), проверил в ACDSEE - теперь одна картинка стала перевернутой копией другой. Загружал эти две картинки в TImage, TImageList - в обоих случаях берется левый нижний пиксел битмапа, независимо от того, перевернутый битмап или нет. Так что твои суждения оказались неверными насчет первого байта данных...

Народ Так как Определить Цвет (Левый верхний) ? Если можно то кодом.

У ImageList свойство Masked должно быть True.
Свойство DrawingStyle оставь по-умолчанию - dsNormal.

Вместо ImageList.Add(Bmp, Bmp) делай так:
ImageList1.AddMasked(Bmp, Bmp.Canvas.Pixels[0, 0]); - тогда верхний левый пиксел будет определять цвет прозрачности
или же можешь принудительно задать цвет прозрачности:
ImageList1.AddMasked(Bmp, clFuchsia);

Спасибо Посол!

p0s0l, правильно, давай друг друга справками давить:

Цитата

Determines which color of the bitmap is to be transparent when the bitmap is drawn. property TransparentColor: TColor; Description Use TransparentColor to determine how to draw the bitmap transparently. When the TransparentMode property is set to tmAuto (default), TransparentColor returns the color of the first pixel in the bitmap image data. For "bottom-up" bitmaps, the first pixel is the bottom leftmost pixel shown onscreen. For "top-down" bitmaps (less common), the first pixel is in the top left corner shown onscreen. If TransparentColor is assigned, the TransparentMode is automatically set to tmFixed so that the new transparent color can be used later. If you want TransparentColor to disregard any assignments and return the bottom leftmost pixel color again, set TransparentMode to tmAuto.

ты "свою" справку дочитай до конца: TransparentMode определяет, является ли цвет прозрачности высчитываемым автоматически, или берётся из фиксированного значения в битмапе. если он равен tmFixed, то он берётся либо из левого нижнего, либог из левого верхнего в зависимости от типа битмапа. установка свойства TransparentColor автоматом ставит TransparentMode в tmFixed, запрещая, таким образом, автоматическое определение цвета прозрачности.

со справкой разобрались. теперь разберёмсяс кодом:

Код

function TCustomImageList.AddMasked(Image: TBitmap; MaskColor: TColor): Integer; var  ImageDDB: TBitmap; begin  ImageDDB := TBitmap.Create;  try    if Masked and (MaskColor <> -1) then    begin      with TBitmap.Create do      try        Assign(Image);        { обрати внимание на следующую строчку }        TransparentColor := MaskColor;        Self.HandleNeeded;        Result := ImageList_Add(Self.FHandle, GetImageHandle(Image, ImageDDB),          GetBitmapHandle(MaskHandle));      finally        Free;      end;    end    else Result := ImageList_Add(Handle, GetImageHandle(Image, ImageDDB), 0);  finally    ImageDDB.Free;  end;  Change; end;

что разницы нет, сказать Bmp.TransparentColor := clFuchsia, как изначально предлагал я, или ImageList.AddMasked (Bmp, clFuchsia), как предлагаешь ты. и в чём моё заблуждение - я пока так и не понял.

смысла твоих манипуляций с HexEdit'ом я, если честно, тоже не понял.

Это сообщение отредактировал(а) x77 - 4.5.2004, 10:34