Paradox Community

Items in pnews.paradox-intl-es

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



Copyright © 2004 thedbcommunity.com