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

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

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

Автор: Ak47black 7.10.2006, 18:11

Подскажите как можно сделать белый цвет прозрачным в Run-time у компонента TImage
Вот как я загружаю картинку из TImageList

Код


Image.GetBitmap(Node.Index, ActiveSettingPic.Picture.Bitmap);

Пробовал следуший код но безуспешно smile

Код


  Image.Repaint;
  Image.Picture.Bitmap.Transparent:= true;
  Image.Picture.Bitmap.TransparentColor:= clWhite;
  Image.Transparent:= true;

Автор: Romikgy 7.10.2006, 19:42

Код


procedure TForm1.Button1Click(Sender: TObject);

var
  Bitmap : TBitMap;
begin
  Bitmap := TBitmap.Create;
  try
    with Bitmap do begin
      LoadFromFile('C:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp');
      Transparent := True;
      TransParentColor := BitMap.canvas.pixels[50,50];
      Form1.Canvas.Draw(0,0,BitMap);
      TransparentMode := tmAuto;
      Form1.Canvas.Draw(50,50,BitMap);
    end;
  finally
    Bitmap.Free;

  end;
end;

пример из хелпа

Автор: Тьма 7.10.2006, 20:59

прозрачность самого битмапа http://vingrad.ru/DELPHI-DLP-001591

Автор: Ak47black 8.10.2006, 12:41

Немного другой я нашол способ

Код


Image.GetIcon(Node.Index, Image.Picture.Icon);