компонент DesktopAlert for VB convert Delphi

[beegl]

Добчас! Заметил в компонентах в DotNetBar - DesktopAlert (for Microsoft Visual Studio). Как в Windows 10.



Как бы его оформить в Delphi, переделав KMAlert.zip ?

KMAlert умеет так в трее:



Подскажите, что в этой процедуре сменить?

rocedure TKMAlert.GoPopUp;
var
	delta: Integer;
begin
  if Assigned(FOnShow) then FOnShow(Self);

  delta:= 0;

  case TaskBarPos of
    ABE_BOTTOM:
      delta:= TaskbarRect.Bottom - TaskbarRect.Top;
    ABE_TOP:
      delta:= TaskbarRect.Bottom;
    ABE_LEFT:
      delta:= TaskbarRect.Right;
    ABE_RIGHT:
      delta:= TaskbarRect.Right - TaskbarRect.Left;
  end;

  case FAlertDirection of
    adUp:
    begin
      SetWindowPos(Handle, HWND_TOPMOST, (Screen.Width - Width),
          (Screen.Height - delta) - Height, Width, Height, SWP_HIDEWINDOW);
      AnimateWindow(Handle, 500, AW_VER_NEGATIVE + AW_SLIDE);
      FDelayTimer.Enabled:= True;
    end;
    adDown:
    begin
      SetWindowPos(Handle, HWND_TOPMOST, Screen.Width - Width,
                   delta, Width, Height, SWP_HIDEWINDOW);
      AnimateWindow(Handle, 500, AW_VER_POSITIVE + AW_SLIDE);
      FDelayTimer.Enabled:= True;
    end;
    adLeft:
    begin
      SetWindowPos(Handle, HWND_TOPMOST, (Screen.Width - delta) - Width,
          Screen.Height - Height, Width, Height, SWP_HIDEWINDOW);
      AnimateWindow(Handle, 500, AW_HOR_NEGATIVE + AW_SLIDE);
      FDelayTimer.Enabled:= True;
    end;
    adRight:
    begin
      SetWindowPos(Handle, HWND_TOPMOST, delta,
                   Screen.Height - Height, Width, Height, SWP_HIDEWINDOW);
      AnimateWindow(Handle, 500, AW_HOR_POSITIVE + AW_SLIDE);
      FDelayTimer.Enabled:= True;
    end;
  end;
end;

Или не тот кусок кода рассматриваю?)

[TaLadno]

FAlertDirection:
adUp
adDown
adLeft
adRight

Не?
Компонент не ставил и не хо

Посмотрел в исходники, читай про AnimateWindow тут http://delphiworld.narod.ru/base/animatewindow.html и тут https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

[beegl]

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

FAlertDirection:
adUp
adDown
adLeft
adRight

Не?
Компонент не ставил и не хо

Посмотрел в исходники, читай про AnimateWindow тут http://delphiworld.narod.ru/base/animatewindow.html и тут https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

примерно так:

AnimateWindow(Handle, 500, AW_HOR_NEGATIVE + AW_SLIDE);

подстановка TaskbarRect.BottomRight = ошибка типов. Но работало бы)

case TaskBarPos of
.....
ABE_RIGHT:
delta:= TaskbarRect.Right - TaskbarRect.Left;
end;