Re: Windows RED button (again)
- Posted by Tommy Carlier <tommy.carlier at telenet.be> Feb 14, 2005
- 450 views
global integer record_no, ok_or_cancel_clicked record_no = -1 ok_or_cancel_clicked = 0 procedure onOpenWindow(integer self, integer event, sequence params) ok_or_cancel_clicked = 0 end procedure setHandler(my_window, w32HOpen, routine_id("onOpenWindow")) procedure onButtonsClicked(integer self, integer event, sequence params) if self = OKButton then record_no = getItemRecordNumber() elsif self = CancelButton then record_no = -1 end if ok_or_cancel_clicked = 1 closeWindow(my_window) end procedure setHandler({OKButton, CancelButton}, w32HClick, routine_id("onButtonsClicked")) procedure onCloseWindow(integer self, integer event, sequence params) if ok_or_cancel_clicked then -- the window was closed by clicking OK or cancel else -- the window was closed by clicking the red X button end if end procedure setHandler(my_window, w32HClose, routine_id("onCloseWindow"))
-- The Internet combines the excitement of typing with the reliability of anonymous hearsay. tommy online: http://users.telenet.be/tommycarlier tommy.blog: http://tommycarlier.blogspot.com