Map of Messages

For correct work of the program using objects(internal elements), dialogs or screens, it is necessary to process messages.

In main user program there should be a reference to the procedure processing of all messages from objects, dialogs, screens.

GPTERM.StartMESSAGEMAP(INITSUB, EndSUB, DELAYSUB, UNKNOWN)

* INITSUB - function of initialization
* ENDSUB - function, called at end of work of procedure STARTMESSAGEMAP
* DELAYSUB - function ofdelay processing
* UNKNOWN - function of processing of the unrecognized input (pressing of a key of events which is not processed by object)

Example:

CAll GPTERM.StartMESSAGEMAP ("MY.INITDIALOG", "MY.EndMP", "MY.DELAYMP", "MY.UNKNOWNMP")

SUB MY.DELAYMP
CRT(3,3): "Simple system.Current time":OCONV(TIME(),"MTHS")
RETURN

SUB MY.EndMP(CH)
  INCLUDE GPTERM.COMMON
  CAll GP.MENUREMOVEALL
  EXECUTE"CLS"
  MPStartEnd=0
RETURN

SUB MY.UNKNOWNMP(CH)
INCLUDE GPTERM.COMMON
CRT(3,5):" the Unidentified sequence -#":CH:"#"
RETURN

At creation of object the user should take care of processing of messages of object. In procedure of initialization should take care of addition of processable messages of each created object.

Example:

SUB MY.INITDIALOG()
  /* creation of dialog
  CAll GP.CreateDlg(1,0,"STYLE=WS_VISIBLE; RECT=200,100,615,435;  TEXT=Caption of dialog;", RET)
  CAll GP.ADDDlgMESSAGE(1, "OnClose", "MY.DIALOGSREMAP")
  /* creation of object "button 1"
  CAll GP.DlgCreateOBJ(1,1, "BUTTON", " SIZING=0, ENEN; STYLE=WS_VISIBLE; ENABLE=TRUE; TEXT=button 1; RECT=279,7,400,30")< BR>   CAll GP.DlgObjAddMessage(1,1, "OnCLICKED", "MY.DIALOGSREMAP")
  /* creation of object " the button 2 "
  CAll GP.DlgCreateOBJ(1,2, "BUTTON", " SIZING=0, ENEN; STYLE=WS_VISIBLE; ENABLE=TRUE;  TEXT=button 2; RECT=279,35,400,58")< BR>   CAll GP.DlgObjAddMessage(1,2, "OnCLICKED", "MY.DIALOGSREMAP")
RETURN

ProcedureSTARTMESSAGEMAP starts processing of events and working in an operating time. Procedure MY.INITDIALOG creates dialog in which two buttons are created. Procedures GP.ADDDLGMESSAGE,  GP.DlgObjAddMessage add in a messages map event which are necessary for processing. "OnClose" for dialog and "ONCLICKED" for "button 1" and "button 2". This messages should process events procedure MY.DIALOGSREMAP.

If during work of the program there is some Event. Managements of processing it is transferred to procedure MY.DIALOGSREMAP. If Event was not identified, processing of such Event is transferred to procedure MY.UNKNOWNMP. PROBA.ENDMP finishes processing a map of messages.During work of procedure GPTERM.STARTMESSAGEMAP the data array in which each event added by procedure such as ADDMESSAGE is described is formed. When there was some event the terminal forms a dynamic array(CH) which contains Description of event in the following format:

• CH< 1> - a name of Dialog or Screen
• CH< 2> - a name of Object
• CH< 3> - type of the message
  • 49 - messages of the menu
  • 50 - messages from objects of the screen
  • 51 - messages from objects of dialog
  • ................
• CH< 4> - the identifier of dialog
• CH< 5> - the identifier of object in dialog
• CH< 6> - the name of the message
• CH< 7>, CH< 8>, CH< … > - the information of the concrete message

Example

On a double click by mouse on a line of the list(object LISTBOX) forms the following array:

For event of other object the contents of attributes with 7-th and further can differ.

Procedure GPTERM.REMAPINGMESSAGEMAP processes the given dynamic array and by results of processing processing user procedure (for example MY.DIALOGREMAP), or procedure of processing of unknown input MY.UNKNOWNMP.

Management of events processings

1. VariablempStartEnd
     A variable mpStartEnd declared in COMMON-area GPTERM.COMMON.
   
   

   Bits	Value	Description
   0	1	to work
   1	1	to print the message after processing
   2	1	to print the message before processing

   
   Definition Values a bit: B=MOD(INT(mpStartEnd/(2^nB)), 2)  ;  ; - where nB - number Bit
   For a bit 0:MOD(mpStartEnd, 2)
   For a bit 3:MOD( INT(mpStartEnd/8), 2)
   
   Work is finished at mpStartEnd=0
   
2. To execute at once processing of event