OpenEuphoria

Re: WIN32LIB : window style

• Posted by Derek Parnell <ddparnell at bigpond.com> Mar 27, 2001
• 432 views

Try this...

------------------------
include win32lib_full.ew
without warning

constant mainwin = createEx(Window,"test",0,0,0,300,320,
{WS_DLGFRAME},{WS_EX_STATICEDGE}),
         btnClose = create(Button, "&Close", mainwin, {w32AltEdge,-40}, 0,
40, 20, 0)

procedure toClose()
    closeWindow(mainwin)
end procedure
onClick[btnClose] = routine_id("toClose")

WinMain(mainwin, Modal)


Derek Parnell
Melbourne, Australia
"To finish a job quickly, go slower."

----- Original Message -----
From: "Gwen" <mb11363 at chello.be>
To: "EUforum" <EUforum at topica.com>
Sent: Wednesday, March 28, 2001 2:58 AM
Subject: RE: WIN32LIB : window style


>
>
> as I understood, playing with the styles of a window give sometimes a
> strange result, can you say me how to create a no-resizeable,
> no-minizeable window wich can not lose focus ?
>
> Gwen
>
> btw, thanks for you help Derek, I appreciate it
>
>
>
>