Messages on the message queue

Member of Message Queue (PRIM_MSGQ)

Data Type - Collection of PRIM_MSGQ.Message - Individual message as found on the message queue

Details

The Messages property provides access to the collection of messages on the client message queue.

Example

In this example, a popup panel is used to show the messages for an application.
 
Whenever the show method is executed, the messages are added to a list and the popup panel displayed.

Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_PPNL) Displayposition(1) Height(265) Left(0) Tabposition(1) Top(0) Width(425) Titlebar(True) Caption('Messages') Closebutton(True) Autoclose(False) Layoutmanager(#TableLayout1)
 
   Define_Com Class(#PRIM_VS.Style) Name(#Style1) Borderbottom(0) Borderleft(0) Borderright(0) Bordertop(0)
 
   Define_Com Class(#PRIM_TBLO) Name(#TableLayout1)
   Define_Com Class(#PRIM_TBLO.Column) Name(#Column1) Displayposition(1) Parent(#TableLayout1)
   Define_Com Class(#PRIM_TBLO.Row) Name(#Row1) Displayposition(1) Parent(#TableLayout1) Height(1.55)
   Define_Com Class(#PRIM_TBLO.Item) Name(#ListItem1) Column(#Column1) Manage(#List) Parent(#TableLayout1) Row(#Row1)
 
   Define_Com Class(#PRIM_LIST) Name(#List) Displayposition(1) Left(0) Parent(#COM_OWNER) Tabposition(1) Top(30) Height(235) Width(425) Columnheaderheight(0) Columnlines(False) Rowlines(False) Rowheight(25) Style(#Style1)
   Define_Com Class(#PRIM_LIST.String) Name(#ColumnXDEMOCAPT) Displayposition(1) Parent(#List) Source(#xDemoCaption) Columnwidth(1) Columnunits(Proportion)
 
   Mthroutine Name(Show)
 
      Clr_List Named(#List)
 
      For Each(#Message) In(#sys_msgq.Messages)
 
         #xDemoCaption := #Message.Text
         Add_Entry To_List(#List)
 
      Endfor
 
   #Com_owner.ShowPopup Transition(FadeInAndScale)
 
   Endroutine
 
End_Com

See also

All Component Classes

Technical Reference

Febuary 18 V14SP2