Класс PopUP Hint окон с примером

[Игорь Столяров]

Кстати, да. Я заметил, что сейчас пошла мода на звуковое информирование.
Например в том же OZON'е когда заказ получаешь - его данные "проговаривают" громко.
Видимо "чтецы" с успешно сданным ЕГЭ уже вышли на работу !

[Admin]

Что-то мне кажется, через день работы этот плюс 1 начнет во сне приходить.

Без проблем могу поменять на любой сигнал. Я спрашивал. Все устраивает.

[finsoftrz]

Раньше beep использовали с разной длительностью/частотой. Сейчас модно голосовые сообщения. Это делает всех вокруг счастливыми, так как думают, что у них тоже используется ИИ, и они идут в ногу с временем.
Мне тут очки массажеры подарили. Прикольно так, надеваешь, они тебя приветствуют приятным женским голосом, потом начинают надуваться и спускаться минут 15, а в конце спасибо говорят, что выбрал путь заботы о себе.

[Игорь Столяров]

Всем привет !

На основании штатного примера класса, сделал процедуру для показа быстрого сообщения в любом месте программы.
Всё работает, код простой, может быть будет кому-нибудь полезно для теста класса:

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

HintMess    Procedure(String sHintText,Long lBackgroundColor = Color:Orange,Long lFontColor = Color:White)
Hint        cHint
HintParams  Like(MsgOptions)
bFlag       Byte(False)
Action      Long,Auto
NotifyPar   Long,Auto
MyWin       Window,AT(,,1,1).  

  Code
  Open(MyWin)
  MyWin{Prop:Hide} = True  
  
  ! Запомним HWMD активного окна
  Hint.HwndActiveWindow = 0{Prop:Handle}
  
  Accept
    Case Event()
    Of Event:Notify
       If Notification(Action,,NotifyPar)
          If Action = NOTIFY:SetFocusHint
             hint.Set_Active_Windows()             
             If bFlag then Post(Event:CloseWindow) else bFlag = True.
          end
       end
       
    Of Event:OpenWindow   
       
       Clear(HintParams)
       HintParams.MainThead        = Thread()
       HintParams.AbsolutePosition = WND:CENTER
       HintParams.CloseTimeOut     = 3
       HintParams.Cascade          = 1       
       HintParams.Round            = 30
       HintParams.Fade             = 1       
       HintParams.BackgroundColor  = lBackgroundColor
       HintParams.FontColor        = lFontColor
       HintParams.FontSize         = 20
       HintParams.FontStyle        = 400
       HintParams.FontName         = 'Arial Narrow'
       HintParams.CloseImage       = 'none'       
       Hint.Show(Clip(sHintText),Address(HintParams))       
       
    Of Event:CloseWindow
       Hint.CloseAll()
    end
  end

И позвольте высказать моё сугубо субъективное мнение: это вообще не то, что я хотел бы видеть в своих программах.
Ни по размещению, ни по оформлению, ни по содержанию окна с быстрым сообщением ...

Я сам понимаю, что

[SergioRaguzini]

Привет Всем!

...сделал процедуру для показа быстрого сообщения в любом месте программы...

если не сложно, выложите простой app-пример

[Игорь Столяров]

если не сложно, выложите простой app-пример

Вы уже можете её юзать в классе HONEST (Честный ЗНАК).
У нас всё предельно просто. Без всяких там наворотов и настроек вызываем:

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

  Honest::FastMess(3,'Не удалось получить токен доступа !')

опционально мона изменить время экспозиции сообщения в секундах:

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

  Honest::FastMess(4,'Выбранные товары добавлены в корзину',1)

И обратите внимание, что быстрое сообщение самонастраивается на текущий системный размер шрифта.
Т.е. при динамическом масштабировании интерфейса (например в CapeSoft AnyFonts) всё будет работать чётко !

[SergioRaguzini]

[Вы уже можете её юзать в классе HONEST (Честный ЗНАК)....

Спасибо!

[SergioRaguzini]

Привет Всем!

Посмотрел оба варианта класса, мне понравились оба, но, как мне субъективно показалось, пример Игоря (ввиде процедуры Honest::FastMess)

сделал процедуру для показа быстрого сообщения в любом месте программы

более прост в использовании (большего и не надо).

Вячеслав ранее в своем сообщении привел пример из 1С

В 1С8 хорошо сделана работа с ошибками при заполнении формы. Как я понимаю, с помощью данного класса можно изобразить подобное (сноски оформляются в виде картинок фона).
...

Как мне кажется, если чуть развить эту "PopUP Hint"-тему, то мы можем получить нечто подобное.
Я, (к сожалению не помню автора) более лет 20 назад увидел простой шаблон выделения рамкой активного контрола, который периодически использую:

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

#!----------------------------------------------------------------
#TEMPLATE  (ActiveBox, '2002')
#! =============================================
#CONTROL (ActiveBox, 'Выделение активного control')
#! =============================================
#DISPLAY ('')
#DISPLAY ('Выделяет активный control прямоугольником.')
#DISPLAY ('')
  CONTROLS
    BOX,AT(3,3,5,5),USE(?ActiveBox),ROUND,LINEWIDTH(1),HIDE
  END
#!
#AT (%BeforeAccept)
  ?ActiveBox{prop:HIDE} = ''
  ?ActiveBox{prop:ROUND} = 1
 ! ?ActiveBox{prop:Color} = COLOR:InActiveCaption
  ?ActiveBox{prop:LINEWIDTH} = 2
#ENDAT
#! 
#! --- 'CASE EVENT() structure, before generated code'
#AT (%EventCaseBeforeGenerated)
  of event:Selected
    contr# = selected()
    ?ActiveBox{prop:XPos}  = contr#{prop:XPos}-2
    ?ActiveBox{prop:YPos}  = contr#{prop:YPos}-2
    ?ActiveBox{prop:Width} = contr#{prop:Width}+4
    ?ActiveBox{prop:Height}= contr#{prop:Height}+4
#ENDAT

в этом шаблоне присутствуют координаты выделенного контрола. Т.о. если применять этот шаблон (или его принцип получения координат) в экранной форме и при возникновении некой ошибки со стороны пользоавтеля, можно делать SELECT(?control_Name), и далее (если чуть модернизировать процедуру Honest::FastMess) передавать в нее координаты для применения в "SetPosition(FastWin...."

В результате (чтобы было понятнее, я чуть подправил скрин приведенный Вячеславом) мы можем получить что-то подобное:

picture_01.png (9.91 КБ) 139 просмотров

Хотелось бы узнать мнение - расширение, в процедуре, Honest::FastMess принимаемых параметров для позиционирования Hint-окна - это оптимальный вариант или же есть более рациональное решение?

Спасибо

[Игорь Столяров]

пример Игоря (ввиде процедуры Honest::FastMess) более прост в использовании (большего и не надо).

Собственно это мне и хотелось сделать.
- Просто сообщение в центре экрана / для MDI в рабочей области AppFrame;
- Сообщение всегда одно (успеть бы его прочитать без ступора !);
- Размер сообщение зависим от динамического масштаба самого приложения (AnyFont и т.д.);
- Без прилинковки к проекту LIB непонятного возраста, происхождения и поддержки;
- Субъективно моё мнение: 100 строк кода более чем достаточно, что бы тупо показать строку сообщения.

Если Вы видите красивую идею - не бойтесь делать её реализацию под свои проекты и потребности.
Хотите привязать сообщение FastMess() к полю ? Уберите центровку окна и выставьте координаты - это обычный Window.

[finsoftrz]

Как правило, на полях ввода мы используем обычный тултип с краткой информацией о назначении этого поля.

[SergioRaguzini]

Как правило, на полях ввода мы используем обычный тултип с краткой информацией о назначении этого поля.

Но ведь стандартными средствами Clarion управление tooltip весьма ограничено (разве что показывать или не показывать), поэтому, в качестве подсказки tooltip как инструмент удобен (да и то, если пользователь понимает(хотя, на практике, даже не всегда о таком знает), что для вызова tooltip нужно навести курсор на контрол и задержатся там), а вот для отображения ошибки не очень...
Может быть, можно как-то управлять принудительным вызовом с позиционированием и задержкой (в некоторых языках можно управлять задержкой)?

[Игорь Столяров]

Может быть, можно как-то управлять принудительным вызовом

Я не фанат сабжа, но есть вот такой шаровый проект для управления ToolTip в Clarion.
Возможно, Вы найдёте его полезным для своих проектов: https://github.com/Devuna/Devuna-CoolTips

[SergioRaguzini]

Я не фанат сабжа, но есть вот такой шаровый проект для управления ToolTip в Clarion

Спасибо, может "для общего развития" и пригодится!
Но я, все же, склоняюсь к небольшой правке позиционирования на основе процедуры Honest::FastMess - для ПМСР там все рационально и достаточно, а вот для иных APP, где большое количество полей ввода, наверное, попробую сделать привязку окна сообщения к координатам контрола, чтобы "красиво" выводить сообщение при каких-то ошибках пользователя