Lenguaje simple ¿Cómo hacer que el tablero de dibujo dibuje algo en la imagen?
Escribí un fragmento de código que se puede utilizar para hacer dibujos, mostrar imágenes y borrar imágenes:
.Versión 2
.Assembly Window Assembly 1
. Se hace clic en la subrutina _Botón Mostrar imagen_ 'Mostrar imagen
Panel 1.Imagen base = #Mi imagen
Se hace clic en la subrutina _Botón borrar imagen_ 'Borrar imagen p>
Panel. 1.Imagen base = { }
.Se hace clic en la subrutina _botón dibujar_ 'Dibujar imagen
.Variable local Número de imagen, entero
Número de imagen = Cargar imagen ( #Mi imagen)
Panel1.Dibujar imagen (Número de imagen, 0, 0, Panel1.Ancho, Panel1.Alto,)
Descargar imagen (Número de imagen)
. Subrutina _button clear_clicked 'Borrar la imagen dibujada
Panel1.clear(, , , )
Donde #MyPicture son los datos de su propia imagen
.