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

Changes so Orpheus package can be compiled with current Laz 0.9.31.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2483 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
macpgmr
2012-07-27 21:15:43 +00:00
parent 5c4b3718b1
commit dd4607f1c9
4 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/orpheus/mymisc.pas
View File

@ -319,7 +319,7 @@ procedure RecreateWnd(const AWinControl:TWinControl);
procedure Frame3D(Canvas: TCanvas; var Rect: TRect;
TopColor, BottomColor: TColor; Width: Integer);
{This should be a TCanvas method}
// {This should be a TCanvas method} <--it is now, but still needed for TBitMap.BrushCopy.
procedure BrushCopy(DestCanvas: TCanvas; const Dest: TRect; Bitmap: TBitmap;
const Source: TRect; Color: TColor);