Exemplo n.º 1
0
/* General message loop.  Retrieves and processes a message from the
   OWL application's message queue.  Calls ProcessAppMsg to allow
   special handling of the message.  If not specially handled,
   performs default processing of the message, dispatching the message
   to the TWindowsObject's window procedure.  All unusual processing
   can be accomplished by redefining ProcessAppMsg or any of the
   Process... functions. */
void TApplication::MessageLoop()
{
  MSG Message;

  while ( TRUE )
  {
    if ( PeekMessage(&Message, 0, 0, 0, PM_REMOVE) )
    {
      if ( Message.message == WM_QUIT )
        break;
      if ( !ProcessAppMsg(&Message) )
      {
        TranslateMessage(&Message);
        DispatchMessage(&Message);
      }
    }
    else   // No message waiting.
      IdleAction();
  }
  Status = Message.wParam;
}
Exemplo n.º 2
0
//
// Handler for the timer event.
// Closes the window.
//
void
TPropertySheet::EvTimer(uint timerId)
{
  if(timerId == TimerID)
    IdleAction(0);
}