Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problema con archivo .fxp
Message
De
16/09/2007 19:27:02
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Problema con archivo .fxp
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2000 Server
Database:
MySQL
Divers
Thread ID:
01254613
Message ID:
01254613
Vues:
105
Hola a todos.

He adaptado parte de un proyecto de Cesar Chalom (el VFPPaint) publicado el PortalFox en un proyecto mío en el que el usuario debe dibujar sobre una plantilla. En el momento de incializar el formulario se ejecuta el código que coloco más abajo. En tiempo de desarrollo (en el IDE de VFP) trabaja perfecto, pero al compilar el proyecto se produce el error de que "no encuentra el programa VFPPaintChildForm.prg. Ya he descubierto que se debe a que no localiza el archivo VFPPaintChildForm.fxp Si lo coloco manualmente corre, pero al salir del programa lo borra. ¿Qué debo hacer para evitar esa parada?. ¿Quién genera ese archivo .fxp? ¿Hay alguna forma de obviar ese programa "al vuelo"?.

Este es el código:
* Create Temp PRG file for ChildForm Class (Canvas)
LOCAL lcFormClass, lcTemp
lcTemp = ADDBS(SYS(2003)) + "VFPPaintChildForm"
Thisform.AddProperty("cChildClass", lcTemp)
TEXT TO lcFormClass
   DEFINE CLASS ChildForm AS Form
      ShowWindow = 1 && In TopLevel Form
      ScrollBars = 3 && Both
   ENDDEFINE
ENDTEXT 
STRTOFILE(lcFormClass, lcTemp + ".prg")

* Initialize ChildForm
LOCAL loCanvasForm as Form 
loCanvasForm = NEWOBJECT("ChildForm", lcTemp + ".prg")
WITH loCanvasForm
	.Left = Thisform.CanvasHolder.Left
	.Top  = Thisform.CanvasHolder.Top
	.Width  = Thisform.CanvasHolder.Width
	.Height = Thisform.CanvasHolder.Height
	.BorderStyle = 0 && No Border
	.TitleBar = 0 && Off
	.AddObject("ImgCanvas", "Image")
	Thisform.AddProperty("Image1",.ImgCanvas)
	.Visible = .T. 
ENDWITH
Muchas gracias por adelantado.

Manuel Tovar
Barranquilla - COLOMBIA
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform