Consulta de chica afligida...

1
Director no tiene ese tipo de transición.
2
On beginsprite me
-- En el sprite 2 esta el tooltip
sprite(2).visible=1
end
on mouseenter me
sprite(2).loc=the mouseloc
sprite(2).visible=1
end
on mouseleave me
sprite(2).visible=0
end
3
Si lees los comentarios lo sabras hacer.
on imprimir
instancia = new (xtra "PrintOMatic")
if not objectP(instancia) then
Alert "se ha producido un error en la instancia de la impresiòn."
else
Cursor 4
--Este es el titulo que aparecerá en la ventana de impresión
setDocumentName instancia, "impresión del documento dir"
--Esto fija los margenes exteriores de la impresión
setMargins instancia, rect(90,90,90,90)
--Esto obtiene las dimensiones reales del
--documento a partir de los margenes que has fijado
ancho= getPageWidth( instancia)
alto =getPageHeight( instancia)
--crea una nueva página de impresión
newPage instancia
--fija el valor de gris de los elementos gráficos
setGray instancia, 100
-- --Indicar el símbolo que servirá para el numero de página
-- setPageNumSymbol instancia, "@"
-- -- Dibujar el numero de la página
-- DrawText instancia, "página @", Point(ancho, alto+20)
--Introducir cadenas
-- SetTextFont instancia, "arial"
-- SetTextSize instancia, 10
-- SetTextStyle instancia, "normal, italic"
-- SetTextJust instancia, "right"
-- DrawText instancia, "estoy alineado a la izquierda", Point(100,400)
-- --Dibujar objetos con print-o-matic
-- --Fijar el color de los gráficos con coordenadas RGB (rojo, verde, azul)
-- SetColor instancia, 20, 200, 0
-- --- Fijas el ancho de la linea de los gráficos
-- setLineWeight instancia, 3
-- --Dibujas un cuadrado sin rellenar
-- drawRect instancia, rect(0,22, ancho, alto), false
-- -- Dibujar una linea
-- DrawLine instancia, point(0,0), point(300,300)
-- newFrame instancia, Rect(0,0,200,300), true
-- SetTextJust instancia, "left"
SetColor instancia, 20, 200, 0
append instancia, member "lucas", member "f", return
--
-- SetGray instancia, 100
-- newFrame instancia, Rect(75,0,400,200), false
-- append instancia, member "campo", RETURN
-- appendFile instancia, the pathName&"document.txt", FALSE
-- --Puedes crear todas las páginas que desees y añadireles lo que quieras
-- newPage instancia
-- drawRect instancia, rect(0,0,ancho,alto), true
Cursor -1
Esto te permite una vista previa de la imagen
-- printPreview instancia
--esto es lo que te permite imprimir
if doJobSetup(instancia) = true then
Updatestage
Print instancia
end if
instancia = 0
end if
end
4
open "c:/archivo.hlp" with "winhlp32.exe"
open the pathname&"archivo.hlp" with "winhlp32.exe"
Si quieres puedes usar mi behavior completo:
--creado por bedelludrica
on getBehaviorTooltip me
return \
"Usa este comportamiento para abrir archivo con su programa correspondiente. Debes indicar la ruta relativa del archivo y la absoluta del programa. Debido a que no todos los usuarios instalan los programas con la misma ruta se recomienda usar algún xtra como el buddyapi, que te permite abrir archivos sin indicar la ruta del programa que lo abre."&\
return&\
"Comportamiento realizado por bedelludrica: " & \
return&\
"[email protected] "
end getBehaviorTooltip
property p_direccion,p_p
on getPropertyDescriptionList
lista= [:]
addProp lista, #p_direccion,\
[#comment: "escribe la ruta del archivo",#format:#String,\
#default: "directorio/ARCHIVO.EXE" ]
addProp lista, #p_p,\
[#comment: "escribe la ruta del archivo",#format:#String,\
#default: "c:/archivos de programa/adobe/acrobat/reader.exe" ]
return lista
on mouseup me
Open the pathname&p_direccion with p_p
end
5
--bedelludrica
property p_tipo_control, pVideoSprite,ptitulo,ptop
on getPropertyDescriptionList me
lista = [:]
addProp lista, #ptitulo,[#comment:"comportamiento realizado por",#format:#symbol,#range:[#bedelludrica],#default:#bedelludrica]
addProp lista, #p_tipo_control, [#comment: "accion de este boton",\
#format: #symbol,¬
#range: [#play, #stop, #pausa, #salto_adelante, #salto_atras,\
#vete_comienzo, #marcha_atras, #adelante_rapido, #atras_rapido, #vete_final],\
#default: #stop]
addProp lista, #pVideoSprite, [#comment: "¿cual es el sprite de video?",\
#format: #sprite, #default: 1]
addProp lista, #ptop, [#comment: "¿cual es el sprite del topo?(solo si se usa con barra de video)",\
#format: #sprite, #default: 12]
return lista
end
on mousedown me
sendsprite(sprite ptop,#estado,1)