A partir de BBj 5.0, el objeto BBjImageCtrl provee métodos para manipular un control GUI de imagenes en una ventana BBj. No debes confundir BBjImageCtrl con BBjImage, un objeto imagen que puede recuperarse desde un BBjImageCtrl o usar el objeto BBjImageManager. (Antes de BBj 5.0 este objeto se llamaba BBjImage.)
REM “[PRG16] Ejemplo de BBjImageCtrl
REM “Mundo BBx
REM
REM “Obtiene una instancia del objeto BBjAPI
REM “=======================================
LET miAPI!=BBjAPI()
REM
REM “Abre el dispositivo SYSGUI
REM “==========================
SYSGUI=UNT
OPEN (SYSGUI) "X0"
REM
REM “Obtiene la instancia del objeto BBjSysGui
REM “=========================================
LET sysgui!=miAPI!.getSysGui()
REM
REM “Valores para crear una ventana
REM “==============================
X=10
Y=10
ANCHO=200
ALTO=200
TITULO$="Ejemplo de uso BBjImageCtrl"
REM
REM “Establece el contexto actual
REM “============================
sysgui!.setContext(0)
REM
REM “Crea la ventana
REM “===============
window! = sysgui!.addWindow(X,Y,ANCHO,ALTO,TITULO$)
REM
REM “Agrega la imagen via el nombre de archivo
REM “=========================================
window!.addImageCtrl(5,10,10,40,40,"find.ico")
REM
REM “Agrega la imagen via ImageManager
REM “Obtiene una instancia del objeto BBjImageManager
REM “================================================
AdmImagen! = sysgui!.getImageManager()
REM
REM “Carga una imagen desde un archivo
REM “=================================
imagen1! = AdmImagen!.loadImageFromFile("bbj.ico")
window!.addImageCtrl(10,50,50,40,40,imagen1!)
REM
REM “Registra rutinas en CALLBACKs
REM “=============================
CALLBACK(ON_CLOSE,CIERRA_APLIC,sysgui!.getContext())
REM
REM “Procesa Eventos
REM “===============
PROCESS_EVENTS
REM
REM “Rutina Callback llamada cuando el usuario cierra la ventana de la aplicación
REM “============================================================================
CIERRA_APLIC:
RELEASE
RETURN