Прозрачная картинка...

[FanatSors]

Всем привет!

Искал по форуму - не нашел.
Подскажите как сделать прозрачную картинку (например на 50% или 20% видимую)

[Кодокопатель]

Transparent = True;
TransparentColor = clWhite;

Те участки на картинке где белый цвет (clWhite), будут "прозрачны"

[Кодокопатель]

Или еще вот так можно сделать.
Определим "прозрачный" цвет через координаты:

var
  myBmp: TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
begin
  myBmp:= TBitmap.Create;
  myBmp.LoadFromFile('c:\back.bmp');

  myBmp.Transparent:= True;
  myBmp.TransparentColor:= myBmp.Canvas.Pixels[5,5];
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  myBmp.Free;
end;

Цвет пиксела на myBmp в координате [5,5] будет "прозрачным"

[xrob]

ыыыы, клодокопатель, где вы через TransparentColor = clWhite; прозрачность 50% сделали??
TransparentColor - та еще бяка. я разок попробовал, больше не сунусь

т.с., лучше используйте компонент для работы с png.
у меня это класс TPNGObject, который лежит в файле pngImage.pas
хороший компонент, я им пользуюсь.
в него можно загрузить любой Bitmap через Assign.
можно указать любую прозрачность,
именно в процентах по всей картинке, а не TransparentColor.

[x128]

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

Искал по форуму - не нашел.

Значит плохо искал, на форуме сотни подобных тем.

Читай про AlphaBlend.