Am I doing something wrong, this does not work, you see the window starts and closes automatically without any error report.
;========================================================
; Proyecto : Setup.
; Programador : Yue Rexie.
; Sitio Web : http://www.iris3d.tk.
; Empresa : Iris3D -Games Studios-© 2007-2012
; Nombre Fichero : Inicio.bb.
;========================================================
; OBJETIVO FILE : Fichero Inicial.
;========================================================
Type Lenguaje
Field Espanol%
Field Ingles%
Field Aleman%
Field Frances%
Field Italiano%
End Type
; Ventana Inicial.
Local Windows% = CreateWindow("Instalador de Pawn",ClientWidth(Desktop())/2-252,ClientHeight(Desktop())/2-159,510,350,0,1)
Local Bton_Next% = CreateButton("Siguiente",430,273.5,55,25,Windows%,0)
Local Bton_Cancel% = CreateButton("Cancelar",370,273.5,55,25,Windows%,0)
Local Linea1% = CreatePanel (0,270,510,5,Windows%,1)
Local Linea2% = CreatePanel (0,10,510,5,Windows%,1)
Local Linea3% = CreatePanel (0,300,510,5,Windows%,1)
Local Img_Panel% = CreatePanel (10,17,115,250,Windows%,0)
Local Info% = CreateLabel ("Prueba",130,20,100,100,Windows%,3)
Local Web% = CreateLabel ("www.iris3d.tk -Games Studios-",10,280,150,20,Windows%,0)
SetPanelImage (Img_Panel%,"Box.bmp")
Local Mensaje_Exit$ = "Esta cancelando la instalación de Pawn" + Chr(13) + "¿Esta seguro de cancelar?"
Local Estado_Tecla% = False
Const BTON_WINDOWSCLOSE% = 100
Const BTON_WINDOWSCANCEL% = 200
Local Salida% = $803
Repeat
Mensaje_Salida(Mensaje_Exit$,Salida%,BTON_WINDOWSCLOSE%)
Mensaje_Salida(Mensaje_Exit$,Bton_Cancel%,BTON_WINDOWSCANCEL%)
Forever
Function Mensaje_Salida(Mensaje$,Evento%,Close% = 0)
Local Respuesta%
Select Close%
Case BTON_WINDOWSCLOSE%
If WaitEvent()=Evento%
Respuesta% = Proceed (Mensaje$,False)
Select Respuesta%
Case 1
End
End Select
End If
Case BTON_WINDOWSCANCEL%
If EventSource()=Evento% Then
Respuesta% = Proceed (Mensaje$,False)
Select Respuesta%
Case 1
End
End Select
End If
End Select
End Function
Last edited 2012
|
