Insertar Objetos de Imagen Ilimitados a tus Proyectos

Bueno esto lo he estado craneando desde ya hace mucho tiempo y pues dándole y dándole lo logre al fin jajajaja bueno este script lo que hace es insertar de manera ilimitada una imagen especifica a tu proyecto, sin mas aquí esta el script espero a alguien le sea de utilidad.

NOTA: este script lo he utilizado en el AgoCard Design Marcos Plus claro la versión nueva que estoy trabajando.


rNombre = Dialog.Input("Nombre", "Cual es el nombre para la Imagen:", "", MB_ICONQUESTION);
X = Dialog.Input("Columna", "Cual La Fila:", "", MB_ICONQUESTION);
Y = Dialog.Input("Fila", "Cual es La Columna:", "", MB_ICONQUESTION);
Trans = Dialog.Input("Opacidad", "Cual es La Opacidad:", "", MB_ICONQUESTION);
tImageProperties = {};
tImageProperties.ImageFile = _SourceFolder .. "\\AutoPlay\\Images\\Letras\\a.png";
tImageProperties.UseTransColor = false;
tImageProperties.TransparentColor = Math.HexColorToNumber("FFFFFF");
tImageProperties.Opacity = Trans;
tImageProperties.HitTest = HITTEST_STANDARD;
tImageProperties.Enabled = true;
tImageProperties.Visible = true;
tImageProperties.X = X;
tImageProperties.Y = Y;
tImageProperties.Width = 50;
tImageProperties.Height = 50;
tImageProperties.TooltipText = "";
tImageProperties.Cursor = CURSOR_ARROW;
-- Crea Objeto de Imagen

 Page.CreateObject(OBJECT_IMAGE, rNombre, tImageProperties);--Crea el Objeto de Imagen A
 
Parsed in 0.003 seconds, using GeSHi 1.0.8.9