From bba8f3d864f9992a04e6a44021480a8c2f16e736 Mon Sep 17 00:00:00 2001
From: macpgmr <macpgmr@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 16 Mar 2008 23:01:04 +0000
Subject: [PATCH] Release 0.1.9 (20080316): Recent changes to LCL broke Orpheus
 compilation. This release can now be compiled.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@380 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/orpheus/OrphStatus.html | 9 +++++++--
 components/orpheus/mymisc.pas      | 8 ++++++++
 components/orpheus/orpheus.lpk     | 2 +-
 3 files changed, 16 insertions(+), 3 deletions(-)

diff --git a/components/orpheus/OrphStatus.html b/components/orpheus/OrphStatus.html
index 072f99546..5724383ba 100644
--- a/components/orpheus/OrphStatus.html
+++ b/components/orpheus/OrphStatus.html
@@ -33,6 +33,11 @@
 <A name="Whats_New"></A><H3>What's New</H3>
 
 <UL>
+<LI>20080316 release (0.1.9):
+  <UL>
+  <LI>Recent changes in the Lazarus LCL broke Orpheus compilation. This release 
+      can now be compiled.<P>
+  </UL>
 <LI>20080301 release (0.1.8):
   <UL>
   <LI>Recent changes in the Lazarus LCL broke all Orpheus property editors and example
@@ -663,7 +668,7 @@ However, TO32FlexEdit doesn't need TOvcController.<P>
 <LI>TOvcTCBitMap
   <UL>
   <LI>This previously worked, but changes to Lazarus LCL now cause it to crash
-  when cell gets focus.
+  when cell gets focus (win32 only).
   </UL>
 <LI>TOvcController
   <UL>
@@ -686,7 +691,7 @@ OS X tips for Lazarus:<P>
 
 <P>
 <HR>
-Last updated: March 1, 2008
+Last updated: March 16, 2008
 <P>
 
 </BODY>
diff --git a/components/orpheus/mymisc.pas b/components/orpheus/mymisc.pas
index 65cd508ea..72545262b 100644
--- a/components/orpheus/mymisc.pas
+++ b/components/orpheus/mymisc.pas
@@ -151,10 +151,18 @@ const
   WM_GETTEXT = $000D;
   WM_SETFOCUS = LM_SETFOCUS;
   WM_CHAR = LM_CHAR;
+  WM_CLEAR = LM_CLEAR;
+  WM_COPY = LM_COPY;
+  WM_CUT = LM_CUT;
+  WM_PASTE = LM_PASTE;
+// With Lazarus versions prior to March 2008, LM_CLEAR, etc. are not defined, 
+//  so comment previous 4 lines and uncomment next 4 lines.
+{
   WM_CLEAR = LM_CLEARSEL;
   WM_COPY = LM_COPYTOCLIP;
   WM_CUT = LM_CUTTOCLIP;
   WM_PASTE = LM_PASTEFROMCLIP;
+}  
   WM_GETDLGCODE = LM_GETDLGCODE;
   WM_SIZE = LM_SIZE;
   WM_SETFONT = LM_SETFONT;
diff --git a/components/orpheus/orpheus.lpk b/components/orpheus/orpheus.lpk
index 71b14db4d..eba4ad153 100644
--- a/components/orpheus/orpheus.lpk
+++ b/components/orpheus/orpheus.lpk
@@ -31,7 +31,7 @@
 "/>
     <License Value="MPL 1.1
 "/>
-    <Version Minor="1" Release="8"/>
+    <Version Minor="1" Release="9"/>
     <Files Count="1">
       <Item1>
         <Filename Value="myovcreg.pas"/>