[DJDrugsounD]

Доброе время суток! Как можно реализовать неоновое свечение окна как в программе "YzShadow" с возможностью изменять яркость и цвет?
15.08.jpg

[M.A.D.M.A.N.]

см. DwmAPI

[Pyro]

alfaskins тень умеет, а можно ли сделать цветной не знаю

[DJDrugsounD]

мне нужно не именно тень по всему контору окна, а сделать это какими нибудь средствами рисования, чтоб управлять отдельно неоном с левой стороны и правой.

Узнал что YzShadow рисует всё через GDI+. Но как в gdi+ нарисовать градиент с прозрачностью, чтоб было видно что находится за окном, как на скрине в первом посту. Делаю новое окно поверх главного с прозрачным цветом "TransparentColor" пробовал рисовать и в PaintBox-е и на самом окне, прозрачности нет. Кто знает как добиться желаемого результата?

[poli-smen]

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

мне нужно не именно тень по всему контору окна, а сделать это какими нибудь средствами рисования, чтоб управлять отдельно неоном с левой стороны и правой.

Узнал что YzShadow рисует всё через GDI+. Но как в gdi+ нарисовать градиент с прозрачностью, чтоб было видно что находится за окном, как на скрине в первом посту. Делаю новое окно поверх главного с прозрачным цветом "TransparentColor" пробовал рисовать и в PaintBox-е и на самом окне, прозрачности нет. Кто знает как добиться желаемого результата?

Давно не рисовал на GDI+, но если не ошибаюсь нужно рисовать на скрытом битмапе сначала подложку, потом сверху полупрозрачную картинку и потом бросаешь этот битмап на форму. Если же рисовать сразу на форме, то вроде будет видно "мерцание" при постоянной перерисовке.
Дома пороюсь в своих проектах и позже более подробно опишу.

[angvelem]

Как вариант для 24 битных битмапов. НИКАКИХ проверок не делается и нужно допиливать для цветной тени:

Код:

procedure DropShadow(X, Y, Width, Height : Integer; var bmRes : TBitmap; Alpha : Integer);
var
  pBits		: Pointer;
  I, J, Z, Size	: Integer;
  bmp		: TBitmap;
begin
  Size := bmRes.Width * bmRes.Height * 3;
  GetMem(pBits, Size);
  try
    GetBitmapBits(bmRes.Handle, Size, pBits);
    for J := Y to Y + Height - 1 do
      for I := X to X + Width - 1 do
      begin
        Z := J * bmRes.Width * 3 + I * 3;
        asm
	  pushad
	  mov	esi, pBits
	  add	esi, Z
	  mov	edi, esi
	  mov	ebx, Alpha
	  mov	ecx, 3
@loop:
	  lodsb
	  mul	bl
	  xchg	al, ah
	  stosb
	  loop	@loop
	  popad
        end;
      end;
    SetBitmapBits(bmRes.Handle, Size, pBits);
  finally
    FreeMem(pBits);
  end;
end;