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.
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:
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:
The extension provides all the functionality and special features of the template. |