Red de conocimiento informático - Aprendizaje de código fuente - Lenguaje simple ¿Cómo hacer que el tablero de dibujo dibuje algo en la imagen?

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

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

.