Routine complementare a Z-CARICA-BITMAP, che esegue la rimozione dalla memoria delle bitmap collegate ai pulsanti PUSH-BUTTON.
Esempio della chiamata alla routine
Quando necessario, questa routine va chiamata prima dell'uscita del programma.
perform z-scarica-tutto.
Esempio della routine
In questo esempio sono presenti due diversi push-button di tipo bitmap.
*----------------------------------------------------------------*
* Scaricamento bitmap x push buttons
*----------------------------------------------------------------*
z-scarica-tutto.
call 'W$BITMAP' using wbitmap-destroy,
handle-btn-su
call 'W$BITMAP' using wbitmap-destroy,
handle-btn-giu
.