1. Re: No Close Window (was: EuGrid Not Returning Row)

Michelle,
   Try this...
-------------
include win32lib.ew
without warning

integer main
integer btn
sequence style

procedure cls(integer self, integer event, sequence parms)

	closeWindow(main)
	
end procedure

style = {0} -- Non-resizable
-- See if 'resize' is on the command line.
if find("resize", command_line()) then
   style = {WS_THICKFRAME} -- Resizeable
end if

main = create(Window, "DLG", 0, 100, 100, 300, 300, style)
btn  = create(Button, "&Close", main, 240, 25, 45, 25, 0)
setHandler(btn, w32HClick, routine_id("cls"))

WinMain(main, Normal)	

-- 

cheers,
Derek Parnell

new topic     » topic index » view message » categorize

Search



Quick Links

User menu

Not signed in.

Misc Menu