Creating a Message Replacement

Top  Previous  Next

Important: You may just import the "NeatMessage" procedure from the example app, so you don't need to follow these steps. That should work. If not, feel free to contact us for assistance.

 

However, if for whatever reason you prefer to create the procedure yourself, or you have troubles importing the procedure, these are the steps to do it yourself (i.e. how we did it).

 

1) Create a new pocedure, name it whatever you want. We called it "NeatMessage" in the supplied examples.

Pick the "Window" template as model.

 

clip0016

 

2) "Copy" the following text and paste it in the "Prototype" entry.

 

(STRING PAR:Mensaje,<STRING PAR:Titulo>,<STRING PAR:Icono>,<STRING PAR:Boton>,UNSIGNED PAR:Default=0,BOOL Estilo=False),UNSIGNED,PROC

 

And copy the following text and paste it in the "Parameters" entry.

 

(STRING PAR:Mensaje,<STRING PAR:Titulo>,<STRING PAR:Icono>,<STRING PAR:Boton>,UNSIGNED PAR:Default=0,BOOL Estilo=False)

 

As follows:

 

clip0017

 

3) Enter the Data source "..." button to the right of the "Data" one and paste the following data:

 

LOC:Mensaje              STRING(1500)

LOC:RetVal               LONG,AUTO

 

4) Enter the Window source "..." button to the right of the "Window" one and paste the following structure:

 

Window WINDOW(' '),AT(,,1,1),FONT('MS Sans Serif',8,COLOR:Black,FONT:regular,CHARSET:ANSI),COLOR(0CCE7FDH),CENTER,GRAY

       TEXT,AT(7,8,245,13),USE(LOC:Mensaje),SKIP,DISABLE,TRN,READONLY,#ORIG(LOC:MESSAGE)

       CHECK('Do not ask again'),AT(1,1),USE(LOC:NoAskAgain),SKIP,HIDE

     END

 

You may alter the font, the background color, the gray effect and other properties, but what you should not alter is the size of the window  (AT(,,1,1)) or the TEXT line.

 

5) In the "Return value:" entry pick the local variable

 

LOC:RetVal

 

6) Finally, enter the "Extensions" button and insert the following extension:

 

clip0018

The extension provides all the functionality and special features of the template.