Плавное размытие VCL компонента, как добиться такого эффекта

[garuna]

Подскажите, как сделать такое вот плавное затенение и размытие в ListView внизу? И чтобы при прокрутке вот эта затененная размытость поднималась выше\ниже по мере скроллинга? С чего начать, куда копать)

[Аватар]

В стандартном если и получится, в чем сомневаюсь сильно, то самостоятельной прорисовкой с градиентами. А зачем такая заморочка? Сомнительная полезность для пользователя

[garuna]

Аватар, нужно сделать чтобы можно было посмотреть только 20-30 записей в ListView. снизу еще панельку хочу прикрутить, типа "для дальнейшего просмотра введите пароль".

Затенение сделал через GradientFillCanvas(), как описано здесь http://stackoverflow.com/questions/3...ckground-color, но как сделать этот градиент прозрачным не знаю.

[TaLadno]

GDI+
TGPGraphics
TGPLinearGradientBrush <- (для "первого" цвета ставите полную прозрачность, для второго полную непрозрачность)

TGPGraphics.FillRectangle

Ну и рисовать все это дело на канве компонента

получится что-то типа такого (см. вложение)

[garuna]

Сообщение от TaLadno

GDI+
TGPGraphics
TGPLinearGradientBrush <- (для "первого" цвета ставите полную прозрачность, для второго полную непрозрачность)

TGPGraphics.FillRectangle

Ну и рисовать все это дело на канве компонента

получится что-то типа такого (см. вложение)

Вроде бы то что нужно. Спасибо, посмотрю что за GDI+

[beegl]

Сообщение от garuna

по мере скроллинга? С чего начать, куда копать)

text - скроллин

[IvaniuS]

По моему по скриншоту выше ему поможет -

procedure GradientFill_My(C: TCanvas; R: TRect; StartColor, EndColor: TColor; DoVert: boolean = false);
type
  TRIVERTEX_My = packed record
    X,Y:Integer;
    R,G,B,Alpha: Word;
  end;
var
  v: array[0..1] of TRIVERTEX_My;
  C0, C1: cardinal;
  M: array[0..1] of integer;
begin
  ZeroMemory(@v,SizeOf(TRIVERTEX_My)*2);
  C0:=ColorToRGB(StartColor);
  C1:=ColorToRGB(EndColor);
  v[0].x:=R.Left;
  v[0].y:=R.Top;
  v[0].R := MakeWord(0, GetRValue(C0));
  v[0].G := MakeWord(0, GetGValue(C0));
  v[0].B := MakeWord(0, GetBValue(C0));
  v[1].x:=R.Right;
  v[1].y:=R.Bottom;
  v[1].R := MakeWord(0, GetRValue(C1));
  v[1].G := MakeWord(0, GetGValue(C1));
  v[1].B := MakeWord(0, GetBValue(C1));
  M[0]:=0;
  M[1]:=1;
  GradientFill(C.Handle, @V, 2, @M, 1, byte(DoVert));
end;