VPF::Прозрачность картинки - Форум программистов

Ak47black

Дата 7.10.2006, 18:11 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

Подскажите как можно сделать белый цвет прозрачным в 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 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Код


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 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 339
Регистрация: 22.1.2005
Где: Украина, Винница

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

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

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

Vir magni ingenii

Ak47black

Дата 8.10.2006, 12:41 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

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

Код


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

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