VPF::Как наделить потомка TWinControl прозрачным фоном?

GydruS

Дата 25.1.2012, 18:02 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день, гуру!

Пытаюсь создать компонент, который будет отрисовывать на собственной канве полупрозрачный png. При этом, он не должен затирать то, что под ним (например, Label). В качестве родительского выбран класс TCustomControl.
И вот беда - он под собой заливает(?) канву цветом формы...

Как можно добиться того, чтобы потомок TCustomControl не затирал то, что под ним отрисовано?
Я пробовал и

Код


ControlStyle := ControlStyle - [csOpaque];

Код


procedure TMyControl.Paint;
begin
  Canvas.Brush.Style := bsClear;
  inherited;
  ...
end;

Код


procedure TMyControl.Paint;
begin
  SetBkMode(Canvas.Handle, TRANSPARENT);
  ...
end;

Не помогло...
Не подскажите ли, как быть? Куда смотреть?

Спасибо!

volvo877

Дата 25.1.2012, 18:38 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Цитата(GydruS @ 25.1.2012, 17:02

)

Куда смотреть?

Сюда (ответ Remy)

Это сообщение отредактировал(а) volvo877 - 25.1.2012, 18:39

GydruS

Дата 26.1.2012, 14:17 (ссылка)

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

Загрузка ...

Новичок

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

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

volvo877, спасибо за ответ - я сделал вот так:

Код


procedure TGSCustomImageControl.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
end;

procedure TGSCustomImageControl.WMEraseBkGnd(var msg: TWMEraseBkGnd);
begin
  msg.result := 1;
end

Теперь фон не стирается перед отрисовкой в Paint.
Но появляется другая проблема - каждая отрисовка накладывает на отрисованную ранее полупрозрачную картинку еще одну такую же, и получается что полупрозрачность выведенной картинки с каждой отрисовкой уменьшается...

Вот как бы умудриться получать изображение того, что должно быть отрисовано под моим контролом?

Пробую сделать вот так:

Код


...
FParentBMP: TBitMap;
...
procedure TGSCustomImageControl.WMEraseBkGnd(var msg: TWMEraseBkGnd);
begin
  BitBlt(FParentBMP.Canvas.Handle, 0, 0, Width, Height, GetDC(Parent.Handle), Left, Top, SRCCOPY);
  msg.result := 1;
end;

procedure TGSCustomImageControl.Paint;
begin
  BitBlt(Canvas.Handle, 0, 0, Width, Height, FParentBMP.Canvas.Handle, 0, 0, SRCCOPY);
  // далее подготовка картинки и blendFunction
  ...
  // отрисовка
  Windows.AlphaBlend(Canvas.Handle, 0,0,FMasterBMP.Width, FMasterBMP.Height, 
                                    FMasterBMP.Canvas.Handle, 0,0,FMasterBMP.Width,FMasterBMP.Height, bf);
end;

Но это не дает результата... Можете подсказать, как быть в этот раз?

Это сообщение отредактировал(а) GydruS - 26.1.2012, 15:11

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