00001 /***************************************************************************** 00002 * Copyright (C) 2011 by Benjamin Hadorn (b_hadorn@bluewin.ch) 00003 ***************************************************************************** 00004 * Project : Zeus Base Library 00005 * Module : BorlandMainThreadMessageQueue 00006 * Package : Zeus.ZeusBase.System.Platforms 00007 * Author : Benjamin Hadorn 00008 * Date : 27.12.2011 00009 * System : Zeus-Framework 00010 ***************************************************************************** 00011 * Licence: * 00012 * This library is free software; you can redistribute it and/or modify * 00013 * it under the terms of the GNU Lesser General Public License as * 00014 * published by the Free Software Foundation; either version * 00015 * 2.1 of the License, or (at your option) any later version. * 00016 * * 00017 * This library is distributed in the hope that it will be useful, * 00018 * but WITHOUT ANY WARRANTY; without even the implied warranty of * 00019 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * 00020 * GNU Lesser General Public License for more details. * 00021 * * 00022 * You should have received a copy of the GNU Lesser General Public * 00023 * License along with this library; if not, write to the Free Software * 00024 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110, USA * 00025 *****************************************************************************/ 00026 00027 /***************************************************************************** 00028 * Changes: 00029 * 27.12.2011 bha: created zeus 2.0 00030 *****************************************************************************/ 00031 00032 #ifndef BorlandMainThreadMessageQueueH 00033 #define BorlandMainThreadMessageQueueH 00034 //--------------------------------------------------------------------------- 00035 00036 #if defined(__BCPLUSPLUS__) 00037 00038 #define WM_PROCESS_OBJECT WM_USER + 78 00039 #define WP_PROCESS_OBJECT 0x78BE78BE 00040 00041 #include <zeusbase/System/ThreadMessageQueue.h> 00042 #include <Forms.hpp> 00043 00044 BEGIN_NAMESPACE_Zeus 00045 00046 /***************************************************************************/ 00050 /***************************************************************************/ 00051 class TBorlandMainThreadMessageQueue : public TThreadMessageQueue 00052 { 00053 public: 00054 00055 /************************************************************************/ 00059 /************************************************************************/ 00060 inline TBorlandMainThreadMessageQueue() : TThreadMessageQueue() 00061 {} 00062 00063 protected: 00064 /************************************************************************/ 00067 /************************************************************************/ 00068 inline virtual ~TBorlandMainThreadMessageQueue() 00069 {} 00070 00071 /**********************************************************************/ 00074 /**********************************************************************/ 00075 inline virtual void onItemPosted(ISynchronizeObject& /*rObject*/, bool /*bWaitForCompletion*/) 00076 { 00077 if (::PostMessage(Application->Handle, WM_PROCESS_OBJECT, WP_PROCESS_OBJECT, 0)) 00078 { 00079 } 00080 } 00081 00082 private: 00083 }; 00084 00085 END_NAMESPACE_Zeus 00086 00087 #endif //defined(__BCPLUSPLUS__) 00088 00089 00090 #endif