Change style of a dialog or window ( Solved )

[lailton.webmaster]

Define window ownd;
STYLE ( WS_POPUP )

CAn i make it outside this call ?

i want make as:
oWnd:Style( WS_POPUP )

y tryed this:

oWnd:nStyle:= nOr (WS_POPUP) ( no show error ) more no work how is when i do it in define window ....

[wmormar]

lailton,

oWnd: nStyle -= WS_POPUP


[quote="lailton.webmaster"]Define window ownd;
STYLE ( WS_POPUP )

CAn i make it outside this call ?

i want make as:
oWnd:Style( WS_POPUP )

y tryed this:

oWnd:nStyle:= nOr (WS_POPUP) ( no show error ) more no work how is when i do it in define window ....[/quote]

[lailton.webmaster]

Thanks more yet continue.
it´s no work to me.

[StefanHaupt]

Lailton,

Code: Select all  Expand view

oWnd:nStyle := nOr (oWnd:nStyle, WS_POPUP)

[mmercado]

Hello Lailton:

You should use SetWindowLong function to change the window's style. The WS_POPUP style shouldn't be used alone but combined with at least another one eg WS_VISIBLE.

Try this sample:

Code: Select all  Expand view

#include "fivewin.ch"
#define GWL_STYLE         -16

Function Main()

   Local oWnd

   Define Window oWnd From 200, 200 To 400, 400 PIXEL

   @10,10 BUTTON "ok" OF oWnd SIZE 40,20 PIXEL ;
                  ACTION ( SetWindowLong( oWnd:hWnd, GWL_STYLE, nOr(  WS_VISIBLE, WS_POPUP ) ), ;
                                    oWnd:Refresh() )

   @10,60 BUTTON "End" OF oWnd SIZE 40,20 PIXEL ACTION oWnd:End()

   Activate Window oWnd
                                                             
Return Nil

Best regards.

Manuel Mercado Gomez.

[lailton.webmaster]

mmercado and StefanHaupt,

it´s work fine !!

Thanks so much...