Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Crear Objetos
Message
From
24/02/2008 07:20:35
 
 
To
18/02/2008 06:02:17
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Miscellaneous
Thread ID:
01290771
Message ID:
01295837
Views:
19
Re: Crear Objetos Thread #1290771 Message #1293393

Hola, ya pude crear los objetos, solo tenia que hacer referencia a la clase base que la contiene.
Ahora mi duda es la siguiente:

Como hago para ubicarlos bien en pantalla?

Me alimento de un cursor que tiene:
strobjeto             strprefijo StrClaseObjeto       
--------------------- ---------- -------------------- 
EdtResumen            Edt        editbox
ImgFoto               Img        image
LnkLink4              Lnk        textbox
LnkLink5              Lnk        textbox
LnkLink6              Lnk        textbox
LnkLink1              Lnk        textbox
LnkLink2              Lnk        textbox
LnkLink3              Lnk        textbox
Y construyo los objetos asi:
SELECT TmpObjetos
GO TOP 
SCAN 
	SCATTER MEMVAR 
	m.strobjeto=ALLTRIM(m.strobjeto)
	m.StrClaseObjeto=ALLTRIM(m.StrClaseObjeto)
	m.strprefijo = ALLTRIM(m.strprefijo)
	thisForm.AddObject(m.strobjeto,m.StrClaseObjeto)
	IF m.strprefijo='edt' OR m.strprefijo='Edt'
		comando = "thisform."+m.strobjeto+".width = thisform.Width"
		&comando
		comando = "thisform."+m.strobjeto+".top = thisform.top"
		&comando
		comando = "thisform."+m.strobjeto+".visible=.t."
		&comando
	ELSE 
		comando = "thisform."+m.strobjeto+".visible=.t."
		&comando
	ENDIF 
ENDSCAN 
Pero me quedan en desorden.
alguien sabe como poder distribuirlos bien?

Gracias!
Previous
Reply
Map
View

Click here to load this message in the networking platform