1. Множественность сообщений.
2. Анимация
3. Периодичность
Из недостатков (недоделал) - нет картинки. Пока не ненужно.
Модераторы: alexs, Модераторы
alexs писал(а):Из недостатков (недоделал) - нет картинки. Пока не ненужно.
alexs писал(а):...картинка и сигнал как в MessageBox...
procedure ShowPopup(s: string; id: Integer; PopupPosition: TPopupPosition);
var
p: Word;
a:PDevMode;
begin
with PopupTimer do
case id of
idDialogInfo: begin
// MessageBeep(MB_ICONINFORMATION); //PlaySound('SYSTEMINFORMATION', 0, SND_ASYNC); //Windows.Beep(1000, 100);
Interval := 2000;
end;
idDialogWarning: begin
MessageBeep(MB_ICONWARNING);//PlaySound('SYSTEMEXCLAMATION ', 0, SND_ASYNC);//Windows.Beep(2000, 100);
Interval := 2000;
end;
idDialogError, idDialogShield: begin
MessageBeep(MB_ICONERROR);//PlaySound(PChar('APPGPFAULT'), 0, SND_ASYNC);//Windows.Beep(3000, 100)
Interval := 3000;
end;
else
Interval := 1000;
end;
with PopupNotifier do begin
if not(Visible) or (id in [idDialogWarning, idDialogError]) then begin
if id = idDialogBase then
Icon.Bitmap := TBitmap(Application.Icon)
else
Icon.Bitmap := TBitmap(GetDialogIcon(id));
end;
...
BadBoyAlex писал(а):Возможность локализовать lbl "close after...";
alexs писал(а):А зачем ты звуки предлагаешь проигрывать? Оно действительно нужно?
alexs писал(а):Хорошо. Добавлю код и настройку на включение.
Добавлено спустя 52 минуты 27 секунд:
Засада со звуком - в линуксе надо разобраться - как системный звук вывести.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2