VPF::Копирование TImage - Форум программистов

okamor71

Дата 12.11.2006, 00:29 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 15.10.2006

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

Всем здрасте
Помогите разобратся или посоветуйте чего небудь
Задача сосоит в следеющем: есть TImage1 и TImage2 (прозрачный). Нужно с TImage2 скопировать содержимое в TImage1 но так чтобы прозрачность сохранилась. Вот код которым я копирую:

Код


procedure TForm1.PasteObjectClick(Sender: TObject);
var
  Clbrd: TClipboard;
  BM: TBitmap;
begin
  Clbrd:=TClipboard.Create;
  Clbrd.Assign(Image2.Picture);
  if Clbrd.HasFormat(CF_BITMAP) then begin
    BM:=TBitMap.Create;
    BM.Transparent:=true;
    BM.TransparentMode:=tmAuto;
    BM.TransparentColor:=TRANSPARENT;
    try
      BM.Assign(Clbrd);
      Image1.Canvas.Draw(Image2.Left+Image1.Left,Image2.Top+Image1.Top,BM);
    finally
      BM.Free;
    end;
    Clbrd.Free;
  end;
  Image2.Canvas.FillRect(Canvas.ClipRect);
end;

но после того как скопирую получаю следующую картину, изображение с TImage2 копируется без прозрачности чем закрывает изображение на TImage1. а нужно просто наложить. Помогите плиз. Заранее благодарен

Alexeis

Дата 12.11.2006, 01:33 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Может это поможет
http://forum.vingrad.ru/index.php?showtopic=91526

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

okamor71

Дата 12.11.2006, 11:28 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 15.10.2006

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

Тоесть как я понял, нужно попиксельно переносить

Alexeis

Дата 12.11.2006, 13:56 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Цитата(okamor71 @ 12.11.2006, 11:28

)

Тоесть как я понял, нужно попиксельно переносить

Зачем? Если один или несколько цветов должны быть прозрачными, то это можно автоматизировать. ИМХО лучше для прозрачности использовать маску, так надежнее. Можно, конечно, поиграться и работать непосредственно с Image.picture.bitmap переводя его в pf32bit и т.д. см. http://forum.vingrad.ru/index.php?showtopic=119898. Там вроде как у мне удалось "укротить" TIMage, для достижения прозрачности.

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

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