Subject: | Re: Tamaño de ventana
| Date: | Sat, 18 Nov 2006 13:32:56 +0100
| From: | "Egbert Babst" <EgbertBabst@BabstSoft.com>
| Newsgroups: | pnews.paradox-intl-es
|
Hola Joaquín,
tengo un form "Testform" con el título "Ventana".
En este form tengo deseñado un boxobjekt con el nombre "cuadro".
En un otro form hay un button con este methodo para experimentar un poco.
Puede ser que tu puedas utilizar algo:
>>>
method pushButton(var eventInfo Event)
var
fo form
uiPage,
uiBox UIObject
pt point
x,y,
w,h longInt
stProblem string
app application
endVar
if NOT fo.attach("Ventana") then
if NOT fo.open("Testform") then
msgStop("Error","No puedo abrir 'Testform.fsl'")
RETURN
endIf
endIf
stProblem.blank()
switch
case NOT uiPage.attach(fo.(fo.first)):
stProblem="No puedo attach la página."
case NOT uiBox.attach(fo.Quadro):
stProblem="No puedo attach el cuadro."
otherwise:
app.getPosition(x,y,w,h)
view("Application: "+string(point(w,h)))
fo.getPosition(x,y,w,h)
view("Page: "+string(uiPage.size),"Form: "+string(point(w,h)))
view("Quadro: "+string(uiBox.size))
endSwitch
if NOT stProblem.isBlank() then
msgStop("Problema",stProblem)
endIf
endMethod
<<<
Un saludo,
Egbert
|