Destino del elemento del menú del obturador en lenguaje simple

Este es el código para agregar el nombre y el ícono del programa. Puede consultar cómo agregar íconos:

. Conjunto ventana conjunto 1

. Nombre del software de la variable de ensamblaje, tipo de texto, "0"

. Nombre del software de variable de ensamblaje 1, tipo de texto, " 0 "

. Icono de software de variable de ensamblaje, conjunto de bytes

. Icono de software de variable de ensamblaje 1, grupo de bytes

. Software de variable de ensamblaje Icon2, grupo de bytes

Versión 2

. Biblioteca de soporte iext2.

. Biblioteca de soporte iext3.

La subrutina _Agregar_ está seleccionada.

. Variable local con grado, tipo entero.

. If (Diálogo general 1. Abrir () = verdadero)

Icono de software = Crear un grupo de imágenes vacío (32, 32)

Icono de software 1 = Crear un grupo de imágenes vacío (32 , 32)

Si (obtiene el número de iconos en el archivo (cuadro de diálogo general 1. Nombre de archivo) > 0)

. Encabezado del bucle de conteo (obtenga el número de íconos en el archivo (cuadro de diálogo General 1. Nombre de archivo), variable de conteo)

Extraiga y agregue imágenes (icono de software, cuadro de diálogo General 1. Nombre de archivo, variable de conteo) -1).

. Count Cycle Tail()

De lo contrario.

Si se acabó

. Cabezal de bucle de conteo (obtenga el número de imágenes en el grupo de imágenes (icono de software), variable de conteo)

Agregar imagen (icono de software 1, imagen del grupo de fotos (icono de software, variable de conteo -1,))

p>

. Cola del ciclo de conteo ()

Agregar imagen (icono de software 2, tomar foto de grupo (icono de software, 0,),)

Nombre del software = dividir texto (cuadro de diálogo normal 1. Nombre de archivo, "\",)

Nombre del software 1 = texto dividido (nombre del software [obtener el número de miembros de la matriz (nombre del software)], " ",)

Menú de desplazamiento 1 . Grupo de imágenes del ícono del proyecto = ícono del software 2

Cerrar todo ()

Abrir (obtener el directorio en ejecución () "\Software Management. edb", "Software Management",,,)

Registro vacío()

Escribir(#nombre del software, nombre del software 1 [1])

Escribir(#ruta del software, cuadro de diálogo general 1. Archivo nombre )

Escribir (#icono de software, imagen de grupo de fotos (icono de software, 0,))

Escribir (#categoría de software, menú del obturador 1. Seleccione el nombre del menú (menú del obturador 1. El menú seleccionado actualmente))

Desplazar el menú 1. Agregue un elemento (lea (#nombre del software), el elemento seleccionado actualmente en el menú y obtenga la cantidad de imágenes en el grupo de imágenes (icono de software 2) -1,)

De lo contrario.

Si se acabó

Cerrar todo()