[Aporte] MessageBox para Cobol

[Rapinto]

Um pequeno OCX que eu fiz que pode substituir o "DisplayMessage" do Cobol.

Espero que ajude alguém.
Anexo uma imagem do resultado, o PPJ de exemplo e o OCX.

Saludos,
Rui Pinto

[Hrmcobol]

Muy Bueno Rapintooooo!!!! Muchas Gracias.

Seria mucho pedir que se pueda manejar la cantidad de botones, por ejemplo un boton, dos botones y tres botones?, "Aceptar", "Si No", "Si No Cancelar".

Saludos

[Rapinto]

Hrmcobol,

Se vires no exemplo, os botões são colocados como no Cobol DisplayMessage.

move zero to msgflags.
add POW-DMOKCANCEL to msgflags.
add POW-DMICONSTOP to msgflags.
***  botão Ok e Cancel + Icon Stop

Type Group
 The buttons to display.

POW-DMOK (The default):
A single OK button.

POW-DMOKCANCEL:
OK and Cancel buttons.

POW-DMABORTRETRYIGNORE:
Abort (Stop), Retry and Ignore buttons.

POW-DMYESNOCANCEL:
Yes, No and Cancel buttons.

POW-DMYESNO:
Yes and No buttons.

POW-DMRETRYCANCEL:
Retry and Cancel buttons.
 
Icon Group
 The icon to display.

POW-DMNOICON (The default):
No icon.

POW-DMICONSTOP:
Displays the stop icon.

POW-DMICONERROR:
Displays the error icon.

POW-DMICONQUESTION:
Displays the question mark icon.

POW-DMICONEXCLAMATION:
Displays the exclamation mark icon.

POW-DMICONWARNING:
Displays the warning icon.

POW-DMICONINFORMATION:
Displays the information icon.

Note that currently:
stop icon = error icon
exclamation icon = warning icon
 
Default Button Group
 The button used when the ENTER key is pressed.

POW-DMDEFBUTTON1: (The default)
The first button is the default.

POW-DMDEFBUTTON2:
The second button is the default.

POW-DMDEFBUTTON3:
The third button is the default.

Qualquer dúvida estou a disposição.

Un Saludo,
Rui

[Hrmcobol]

Perdón, MIRE pero no LEÍ.

Saludos y Gracias Nuevamente !!