In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Property nBorderStyle of TForm

XBase programming language in english
Responder
Roberto
Mensajes: 177
Registrado: Mar Oct 16, 2007 11:53 pm

Property nBorderStyle of TForm

Mensaje por Roberto »

Hi,
The Form does not appear if I set nBorderStyle to bsSPLASH or bsNONE, any
other seems to be ok.
Why? I did it it the past but I can't do it right now!
Tks
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9246
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Property nBorderStyle of TForm

Mensaje por ignacio »

Roberto,
A sample please. Here is working correctly.
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Roberto" <roberto@top2.com.br> escribió en el mensaje
news:476726dc$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>
> Hi,
>
> The Form does not appear if I set nBorderStyle to bsSPLASH or bsNONE, any
> other seems to be ok.
>
> Why? I did it it the past but I can't do it right now!
>
> Tks
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Roberto
Mensajes: 177
Registrado: Mar Oct 16, 2007 11:53 pm

Property nBorderStyle of TForm

Mensaje por Roberto »

I have a form with a button. The onclick event is listed below.
When I click the button, the oDlg does not appear. But if I change the property
nBorderStyle to bsDIALOG it works fine.
I tested it in another machine and I got the same behavior.
What i'm doing wrong??
Tks, in advance.
METHOD Button1Click( oSender ) CLASS TForm1
LOCAL oDlg
WITH OBJECT oDlg := TForm():New()
:nBorderStyle := bsSPLASH
:Create()
:ShowModal()
END
RETURN Nil
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote:
>Roberto,
>
>A sample please. Here is working correctly.
>
>Regards,
>
>--
>Ignacio Ortiz de Zúñiga
>http://www.xailer.com
>
>
>"Roberto" <roberto@top2.com.br> escribió en el mensaje
>news:476726dc$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>
>> Hi,
>>
>> The Form does not appear if I set nBorderStyle to bsSPLASH or bsNONE,
any
>> other seems to be ok.
>>
>> Why? I did it it the past but I can't do it right now!
>>
>> Tks
>
>
Roberto
Mensajes: 177
Registrado: Mar Oct 16, 2007 11:53 pm

Property nBorderStyle of TForm

Mensaje por Roberto »

I have a form with a button. The onclick event is listed below.
When I click the button, the oDlg does not appear. But if I change the property
nBorderStyle to bsDIALOG it works fine.
I tested it in another machine and I got the same behavior.
What i'm doing wrong??
Tks, in advance.
METHOD Button1Click( oSender ) CLASS TForm1
LOCAL oDlg
WITH OBJECT oDlg := TForm():New()
:nBorderStyle := bsSPLASH
:Create()
:ShowModal()
END
RETURN Nil
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote:
>Roberto,
>
>A sample please. Here is working correctly.
>
>Regards,
>
>--
>Ignacio Ortiz de Zúñiga
>http://www.xailer.com
>
>
>"Roberto" <roberto@top2.com.br> escribió en el mensaje
>news:476726dc$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>
>> Hi,
>>
>> The Form does not appear if I set nBorderStyle to bsSPLASH or bsNONE,
any
>> other seems to be ok.
>>
>> Why? I did it it the past but I can't do it right now!
>>
>> Tks
>
>
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9246
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Property nBorderStyle of TForm

Mensaje por ignacio »

Roberto,
Try this:
WITH OBJECT oDlg := TForm():New( Self )
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Roberto" <roberto@top2.com.br> escribió en el mensaje
news:[email=47694479@ozsrv2.ozlan.local...]47694479@ozsrv2.ozlan.local...[/email]
>
> I have a form with a button. The onclick event is listed below.
> When I click the button, the oDlg does not appear. But if I change the
> property
> nBorderStyle to bsDIALOG it works fine.
>
> I tested it in another machine and I got the same behavior.
>
> What i'm doing wrong??
>
> Tks, in advance.
>
> METHOD Button1Click( oSender ) CLASS TForm1
> LOCAL oDlg
>
> WITH OBJECT oDlg := TForm():New()
> :nBorderStyle := bsSPLASH
> :Create()
> :ShowModal()
> END
>
> RETURN Nil
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote:
>>Roberto,
>>
>>A sample please. Here is working correctly.
>>
>>Regards,
>>
>>--
>>Ignacio Ortiz de Zúñiga
>>http://www.xailer.com
>>
>>
>>"Roberto" <roberto@top2.com.br> escribió en el mensaje
>>news:476726dc$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>
>>> Hi,
>>>
>>> The Form does not appear if I set nBorderStyle to bsSPLASH or bsNONE,
> any
>>> other seems to be ok.
>>>
>>> Why? I did it it the past but I can't do it right now!
>>>
>>> Tks
>>
>>
>
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Roberto
Mensajes: 177
Registrado: Mar Oct 16, 2007 11:53 pm

Property nBorderStyle of TForm

Mensaje por Roberto »

Dear Ignacio,
I tryed, same result. I tryed too WITH OBJECT oDlg := TForm():New(Application:oMainForm)...
nothing.
:o(
tks,
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote:
>Roberto,
>
>Try this:
>
>WITH OBJECT oDlg := TForm():New( Self )
>
>Regards,
>
>--
>Ignacio Ortiz de Zúñiga
>http://www.xailer.com
>
>
>"Roberto" <roberto@top2.com.br> escribió en el mensaje
>news:[email=47694479@ozsrv2.ozlan.local...]47694479@ozsrv2.ozlan.local...[/email]
>>
>> I have a form with a button. The onclick event is listed below.
>> When I click the button, the oDlg does not appear. But if I change the
>> property
>> nBorderStyle to bsDIALOG it works fine.
>>
>> I tested it in another machine and I got the same behavior.
>>
>> What i'm doing wrong??
>>
>> Tks, in advance.
>>
>> METHOD Button1Click( oSender ) CLASS TForm1
>> LOCAL oDlg
>>
>> WITH OBJECT oDlg := TForm():New()
>> :nBorderStyle := bsSPLASH
>> :Create()
>> :ShowModal()
>> END
>>
>> RETURN Nil
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote:
>>>Roberto,
>>>
>>>A sample please. Here is working correctly.
>>>
>>>Regards,
>>>
>>>--
>>>Ignacio Ortiz de Zúñiga
>>>http://www.xailer.com
>>>
>>>
>>>"Roberto" <roberto@top2.com.br> escribió en el mensaje
>>>news:476726dc$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>>>
>>>> Hi,
>>>>
>>>> The Form does not appear if I set nBorderStyle to bsSPLASH or bsNONE,
>> any
>>>> other seems to be ok.
>>>>
>>>> Why? I did it it the past but I can't do it right now!
>>>>
>>>> Tks
>>>
>>>
>>
>
>
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5705
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Property nBorderStyle of TForm

Mensaje por jfgimenez »

Roberto,
the property nBorderStyle *has* to be assigned before the form is created,
that is, before calling New(). So, your sample should work as:
METHOD Button1Click( oSender ) CLASS TForm1
LOCAL oDlg
WITH OBJECT oDlg := TForm()
:nBorderStyle := bsSPLASH
:New()
:ShowModal()
END
RETURN Nil
--
Regards,
Jose F. Gimenez
http://www.xailer.com
http://www.xailer.info
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Roberto
Mensajes: 177
Registrado: Mar Oct 16, 2007 11:53 pm

Property nBorderStyle of TForm

Mensaje por Roberto »

Tks, but did not solve.
See test1.zip
"Jose F. Gimenez" <jfgimenez@wanadoo.es> wrote:
>Roberto,
>
>the property nBorderStyle *has* to be assigned before the form is created,
>that is, before calling New(). So, your sample should work as:
>
> METHOD Button1Click( oSender ) CLASS TForm1
> LOCAL oDlg
>
> WITH OBJECT oDlg := TForm()
> :nBorderStyle := bsSPLASH
> :New()
> :ShowModal()
> END
>
> RETURN Nil
>
>--
>Regards,
>
>Jose F. Gimenez
>http://www.xailer.com
>http://www.xailer.info
>
>
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5705
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Property nBorderStyle of TForm

Mensaje por jfgimenez »

Roberto,
> Tks, but did not solve.
>
> See test1.zip
You forgoted to attach the file.
--
Regards,
Jose F. Gimenez
http://www.xailer.com
http://www.xailer.info
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Roberto
Mensajes: 177
Registrado: Mar Oct 16, 2007 11:53 pm

Property nBorderStyle of TForm

Mensaje por Roberto »

Sorry, here is it.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> wrote:
>Roberto,
>
>> Tks, but did not solve.
>>
>> See test1.zip
>
>You forgoted to attach the file.
>
>--
>Regards,
>
>Jose F. Gimenez
>http://www.xailer.com
>http://www.xailer.info
>
>
Roberto
Mensajes: 177
Registrado: Mar Oct 16, 2007 11:53 pm

Property nBorderStyle of TForm

Mensaje por Roberto »

I attached the file test1.zip but it does no appear. Anyway, there is just
a form and a button inside it.
/*
* Project: Test1
* File: Form2.prg
* Description:
* Author:
* Date: 12-19-2007
*/
#include "Xailer.ch"
CLASS TForm2 FROM TForm
COMPONENT oButton1
METHOD CreateForm()
METHOD Button1Click( oSender )
ENDCLASS
#include "Form2.xfm"
//---------------------------------------------------------- --------------------
METHOD Button1Click( oSender ) CLASS TForm2
LOCAL oDlg
WITH OBJECT oDlg := TForm()
:nBorderStyle := bsNONE // or bsSPLASH does not work, only bsDIALOG,
bsTOOLTIP works fine
:New(Self)
:Create()
:lCentered := .T.
:ShowModal()
END
RETURN Nil
//---------------------------------------------------------- --------------------
"Jose F. Gimenez" <jfgimenez@wanadoo.es> wrote:
>Roberto,
>
>> Tks, but did not solve.
>>
>> See test1.zip
>
>You forgoted to attach the file.
>
>--
>Regards,
>
>Jose F. Gimenez
>http://www.xailer.com
>http://www.xailer.info
>
>
Roberto
Mensajes: 177
Registrado: Mar Oct 16, 2007 11:53 pm

Property nBorderStyle of TForm

Mensaje por Roberto »

sorry, but do you have any other suggestion?
Tks,
"Jose F. Gimenez" <jfgimenez@wanadoo.es> wrote:
>Roberto,
>
>> Tks, but did not solve.
>>
>> See test1.zip
>
>You forgoted to attach the file.
>
>--
>Regards,
>
>Jose F. Gimenez
>http://www.xailer.com
>http://www.xailer.info
>
>
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5705
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Property nBorderStyle of TForm

Mensaje por jfgimenez »

Roberto,
sorry for the delay.
Please, try to upload the file to any free site and post here the url. F.e.,
http://www.senduit.com allows to upload files for upto 1 week.
--
Regards,
Jose F. Gimenez
http://www.xailer.com
http://www.xailer.info
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Responder