freepascal.ru

Код: Выделить всё

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;
...