From e04373665286afc8b586dc90050ae55bec6b271a Mon Sep 17 00:00:00 2001
From: macpgmr <macpgmr@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 4 Sep 2007 01:50:14 +0000
Subject: [PATCH] Release 0.17 (20070903): Recent changes to LCL broke Orpheus
 compilation; this release provides workaround so it can be compiled.

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

diff --git a/components/orpheus/OrphStatus.html b/components/orpheus/OrphStatus.html
index ea91a2e5c..474f4671a 100644
--- a/components/orpheus/OrphStatus.html
+++ b/components/orpheus/OrphStatus.html
@@ -33,6 +33,14 @@
 <A name="Whats_New"></A><H3>What's New</H3>
 
 <UL>
+<LI>20070903 release (0.1.7):
+  <UL>
+  <LI>Recent changes in the Lazarus LCL broke Orpheus compilation. This release
+      can now be compiled.
+  <LI>Recent improvements in the Lazarus Qt widgetset add basic functionality
+      for several Orpheus controls (see table below). However, GTK2 widgetset
+      does not work as well as it used to.<P> 
+  </UL>
 <LI>20070704 release (0.1.6):
   <UL>
   <LI>3 new example programs have been added for demonstrating TOvcSpinner,
@@ -187,7 +195,7 @@ access to the Lazarus install folder. After rebuilding, be sure to start
 <TD>XP SP2</TD>
 <TD>&nbsp;</TD>
 <TD>win32</TD>
-<TD>20070630 snapshot of 0.9.23 with FPC 2.1.5</TD>
+<TD>20070831 snapshot of 0.9.23 with FPC 2.2.1</TD>
 </TR>
 
 <TR VALIGN=TOP>
@@ -195,7 +203,7 @@ access to the Lazarus install folder. After rebuilding, be sure to start
 <TD>10.4.10 (Tiger) on PowerPC</TD>
 <TD>gtk: 1.2.0.9.1<BR>gtk2: 2.6.10<BR>qt: 4.3.0</TD>
 <TD>gtk, gtk2, carbon, qt</TD>
-<TD>20070630 snapshot of 0.9.23 with FPC 2.0.4</TD>
+<TD>20070903 SVN LCL 0.9.23 with FPC 2.1.5</TD>
 </TR>
 
 <TR VALIGN=TOP>
@@ -348,7 +356,7 @@ widgetset.
 <TD>Not working</TD>
 <TD>Crashes</TD>
 <TD>Working</TD>
-<TD>Not working</TD>
+<TD>Working</TD>
 </TR>
 
 <TR VALIGN=TOP>
@@ -358,7 +366,7 @@ widgetset.
 <TD>Property editor still needs work</TD>
 <TD>Working</TD>
 <TD>Working</TD>
-<TD>Working</TD>
+<TD>Not working</TD>
 <TD>Working</TD>
 <TD>Crashes</TD>
 </TR>
@@ -372,7 +380,7 @@ widgetset.
 <TD>Working</TD>
 <TD>Working</TD>
 <TD>Working</TD>
-<TD>Not working</TD>
+<TD>Partial</TD>
 </TR>
 
 <TR VALIGN=TOP>
@@ -384,7 +392,7 @@ widgetset.
 <TD>Working</TD>
 <TD>Working</TD>
 <TD>Working</TD>
-<TD>Crashes</TD>
+<TD>Not working</TD>
 </TR>
 
 <TR VALIGN=TOP>
@@ -408,7 +416,7 @@ widgetset.
 <TD>Not working</TD>
 <TD>Not working</TD>
 <TD>Not working</TD>
-<TD>Not working</TD>
+<TD>Crashes</TD>
 </TR>
 
 <TR VALIGN=TOP>
@@ -432,7 +440,7 @@ widgetset.
 <TD>Working</TD>
 <TD>Working</TD>
 <TD>Partial</TD>
-<TD>Crashes</TD>
+<TD>Not working</TD>
 </TR>
 
 <TR VALIGN=TOP>
@@ -667,7 +675,7 @@ OS X tips for Lazarus:<P>
 
 <P>
 <HR>
-Last updated: July 4, 2007
+Last updated: Sept. 3, 2007
 <P>
 
 </BODY>
diff --git a/components/orpheus/mymisc.pas b/components/orpheus/mymisc.pas
index 48ba6867f..65cd508ea 100644
--- a/components/orpheus/mymisc.pas
+++ b/components/orpheus/mymisc.pas
@@ -279,6 +279,9 @@ function GetTabbedTextExtent(hDC: HDC; lpString: PChar;
 function TabbedTextOut(hDC: HDC; X, Y: Integer; lpString: PChar; 
                        nCount, nTabPositions: Integer;
                        var lpnTabStopPositions; nTabOrigin: Integer): Longint;
+function SetTextAlign(DC: HDC; Flags: UINT): UINT;
+function GetMapMode(DC: HDC): Integer;
+function SetMapMode(DC: HDC; p2: Integer): Integer;
 //function LoadBitmap(hInstance: HINST; lpBitmapName: PAnsiChar): HBITMAP;
 function LoadCursor(hInstance: HINST; lpCursorName: PAnsiChar): HCURSOR;
 function EnumThreadWindows(dwThreadId: DWORD; lpfn: TFNWndEnumProc; lParam: LPARAM): BOOL;
@@ -699,6 +702,30 @@ begin
 {$ENDIF}
 end;
 
+function SetTextAlign(DC: HDC; Flags: UINT): UINT;
+begin
+{$IFDEF MSWINDOWS}
+  Result := Windows.SetTextAlign(DC, Flags);
+{$ELSE}
+{$ENDIF}
+end;
+
+function GetMapMode(DC: HDC): Integer;
+begin
+{$IFDEF MSWINDOWS}
+  Result := Windows.GetMapMode(DC);
+{$ELSE}
+{$ENDIF}
+end;
+
+function SetMapMode(DC: HDC; p2: Integer): Integer;
+begin
+{$IFDEF MSWINDOWS}
+  Result := Windows.SetMapMode(DC, p2);
+{$ELSE}
+{$ENDIF}
+end;
+
 function LoadBitmap(hInstance: HINST; lpBitmapName: PAnsiChar): HBITMAP;
 begin
 {$IFDEF MSWINDOWS}
diff --git a/components/orpheus/orpheus.lpk b/components/orpheus/orpheus.lpk
index 007376bd3..43f48309b 100644
--- a/components/orpheus/orpheus.lpk
+++ b/components/orpheus/orpheus.lpk
@@ -31,7 +31,7 @@
 "/>
     <License Value="MPL 1.1
 "/>
-    <Version Minor="1" Release="6"/>
+    <Version Minor="1" Release="7"/>
     <Files Count="1">
       <Item1>
         <Filename Value="myovcreg.pas"/>