pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Release 0.17 (20070903): Recent changes to LCL broke Orpheus compilation; this release provides workaround so it can be compiled.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@257 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
macpgmr
2007-09-04 01:50:14 +00:00
parent 77e718ba57
commit e043736652
3 changed files with 45 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
components/orpheus/OrphStatus.html
View File

@ -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>

27
components/orpheus/mymisc.pas
View File

@ -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}

2
components/orpheus/orpheus.lpk
View File

@ -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"/>