nAlign Property - Part II

[Roberto]

Hi, again.
Please, take a look at this code:
FUNCTION Test()
LOCAL oForm, oBottom, oClient
oForm := TForm():Create()
WITH OBJECT oClient := TGroupBox():Create(oForm)
:cText := "Client Control"
:nAlign := alClient
END
WITH OBJECT oBottom := TGroupBox():Create(oForm)
:cText := "Top control"
:nAlign := alBottom
END
oForm:showModal()
RETURN NIL
Why it does not work? The oClient fills the entire client area of oForm and
oBottom does not appear. (
I can get it working if I change the creation order but there are situations
where I don't know what object will be created first.
any help?
tks, again and again.

[ignacio]

Roberto,
The control with the alCLIENT property should be created the last.
Regards,
"roberto" <roberto@top2.com.br> escribió en el mensaje
news:4654f2ac$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>
> Hi, again.
>
> Please, take a look at this code:
>
> FUNCTION Test()
> LOCAL oForm, oBottom, oClient
>
> oForm := TForm():Create()
>
> WITH OBJECT oClient := TGroupBox():Create(oForm)
> :cText := "Client Control"
> :nAlign := alClient
> END
>
> WITH OBJECT oBottom := TGroupBox():Create(oForm)
> :cText := "Top control"
> :nAlign := alBottom
> END
>
> oForm:showModal()
>
> RETURN NIL
>
> Why it does not work? The oClient fills the entire client area of oForm
> and
> oBottom does not appear. (
> I can get it working if I change the creation order but there are
> situations
> where I don't know what object will be created first.
>
> any help?
>
> tks, again and again.