Доработки Rx

[alexs]

1. Множественность сообщений.
2. Анимация
3. Периодичность

Из недостатков (недоделал) - нет картинки. Пока не ненужно.

[kit]

Из недостатков (недоделал) - нет картинки. Пока не ненужно.

Картинку (иконку) нужно!!!

[alexs]

Ну как руки дойдут - сделаю.
Либо - давай подключайся
Мне хочется чтобы там была возможность выбора - либо предопределённые (как в MessageBox), либо произвольные. Поэтому сразу не сделал.

[kit]

...картинка и сигнал как в 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]

rxpopupnotifier -- пожелания:

• Возможность поставить кнопке закрытия свойство Flat;
• Возможность локализовать lbl "close after...";
• Возможность выбора позиции этой lbl (то есть до message align left, center or right, после message align left, center or right);
• Возможность скрыть эту lbl с работающим ShowCloseTimer.

[alexs]

Возможность локализовать lbl "close after...";

Оно локализовано.

Всё остальное посмотрю.

Добавлено спустя 4 часа 55 минут 13 секунд:
Доработки в rxpopupnotifier
- Улучшил расположение элементов в окне напоминалки
- Кнопка закрытия - теперь SpeedButton
- Добавил настройку для кнопки закрытия - HINT и FLAT
- Исправил поведение отображения таймера закрытия - теперь его можно скрыть. Таймер всё равно сработает.

BadBoyAlex
Не понял насчёт расположения - можешь подробнее объяснить?
kit
А зачем ты звуки предлагаешь проигрывать? Оно действительно нужно?

Добавлено спустя 2 минуты 53 секунды:
Ещё добавил настройку прозрачности окна сообщения.

[zoltanleo]

Алекс, тут чел жалуется, что не может rxpopupnotifier поставить. Помог бы.

[kit]

А зачем ты звуки предлагаешь проигрывать? Оно действительно нужно?

Да, нужно! как в MessageBox...

[alexs]

У меня наоборот - все очень ругаются на лишние звуки
Хорошо. Добавлю код и настройку на включение.

Добавлено спустя 52 минуты 27 секунд:
Засада со звуком - в линуксе надо разобраться - как системный звук вывести.

[kit]

Хорошо. Добавлю код и настройку на включение.

Добавлено спустя 52 минуты 27 секунд:
Засада со звуком - в линуксе надо разобраться - как системный звук вывести.

Добавь настройку на включение что б работало только под Windows.
Как зделать так что б закривался PopupNotifier при движении миши (также как hint)?

[alexs]

Сразу после попадания мышки в окно? или через некоторое время (0.5 сек например)?

[kit]

Сразу без задержки при любом движении миши даже на главной (родительской) форме

[alexs]

Мне кажется - при таком алгоритме пользователь может даже не заметить сообщение. Если он активно мышкой елозит - то окно покажется и тут-же пропадёт.

[kit]

Я использую PopupNotifire как подсказки (например про количество обработаних записей), кто-то остановиться и прочитает а кому не надо тот и незаметит

[kit]

Добавь, пожалуйста, RxKeyboardLayout на RxLogin