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

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

Форум программистов > Delphi: Звук, графика и видео > Прозрачная Panel ?

Автор: VZ 15.4.2005, 08:25

Господа, можно ли сделать Panel прозрачной?

Автор: Snowy 15.4.2005, 08:36

Насколько прозрачной? До формы или насквозь?
Сквозь нее можно тыкать мышей или она должна быть, как стекло - тыкать в нее.

Автор: VZ 16.4.2005, 14:22

Как стекло, чтобы то, что было на ней нарисовано накладывалось на то, что под ней. smile

Автор: Snowy 18.4.2005, 06:49

Проще всего найти какой-нить компонент с таким эффектом.
Обычно у таких в названии есть слово Glass - по нему и ищи.
Самому будет сложнее. Придется брать изображение того, что под панелькой, накладывать на панель и складывать по желаемому алгоритму оба изображения.
Хорошо, если изображение под панелькой не будет меняться, иначе придется постоянно перерисовывать.

Автор: drinkOut 20.4.2005, 00:34

Привожу примерчик для работы с (полу)прозрачностью:

Код


type

  TRGB = record
    B, G, R: Byte;
  end;
  PRGB = ^TRGB;

...

procedure TFWHintWindow.Paint;

  function BLimit(B: Integer): Byte;
  begin
    if B < 0 then
      Result := 0
    else
      if B > 255 then
        Result := 255
      else
        Result := B;
  end;

var
  TmpRect: TRect;
  I, Q: Integer;
  SRC, DEST: PRGB;
  ...
begin

...

  if FHint.FTransparent then
  begin
    for I:= 0 to Height - 1 do
    begin
      DEST := FBlend.ScanLine[I];
      SRC := FSRC.ScanLine[I];
      for Q:= 0 to Width - 1 do
      begin
        SRC^.R := BLimit(MulDiv(SRC^.R,  FHint.FTransparentValue, 255)
          + MulDiv(DEST^.R, 255 - FHint.FTransparentValue, 255));
        SRC^.G := BLimit(MulDiv(SRC^.G, FHint.FTransparentValue, 255)
          + MulDiv(DEST^.G, 255 - FHint.FTransparentValue, 255));
        SRC^.B := BLimit(MulDiv(SRC^.B, FHint.FTransparentValue, 255)
          + MulDiv(DEST^.B, 255 - FHint.FTransparentValue, 255));
        Inc(DEST);
        Inc(SRC);
      end;
    end;
  end;
  BitBlt(Canvas.Handle, 0, 0, Width, Height, FSRC.Canvas.Handle, 0, 0, SRCCOPY);
end;

Переменные FBlend и FSRC имеют тип TBitmap.
FBlend содержит изображение находящееся под контролом.
FSRC - само изображение контрола (отрисовывается динамически).
Результат работы - слияние этих двух картинок в процентном соотношении указанном в FHint.FTransparentValue
Где 0 - означает что контрола вообще не будет видно, а 255 - изображение находящееся под контролом не будет видно. Все остальные значения от 0 до 255 - процент смешения изображений.

Вот как-то так! smile

Автор: Rouse_ 22.4.2005, 08:07

drinkOut, подозрительно знакомый код ;)

Автор: drinkOut 22.4.2005, 21:14

Я учился по исходникам Rouse_! smile