Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Problema con archivo .fxp
Message
From
16/09/2007 19:27:02
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Problema con archivo .fxp
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2000 Server
Database:
MySQL
Miscellaneous
Thread ID:
01254613
Message ID:
01254613
Views:
107
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
Next
Reply
Map
View

Click here to load this message in the networking platform