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);

8
components/orpheus/ovclabel.pas
View File

@ -680,11 +680,11 @@ begin
RctTemp := Rect(0, IV + Round(I*Step), CR.Right-CR.Left, IV + Round((I+1)*Step))
else
RctTemp := Rect(IU + Round(I*Step), 0, IU + Round((I+1)*Step), CR.Bottom-CR.Top);
{$IFNDEF LCL}
//{$IFNDEF LCL}
BmpWork.Canvas.BrushCopy(RctTemp, BmpTemp, RctTemp, BmpTemp.Canvas.Font.Color);
{$ELSE}
BrushCopy(BmpWork.Canvas, RctTemp, BmpTemp, RctTemp, BmpTemp.Canvas.Font.Color);
{$ENDIF}
//{$ELSE}
// BrushCopy(BmpWork.Canvas, RctTemp, BmpTemp, RctTemp, BmpTemp.Canvas.Font.Color);
//{$ENDIF}
end;
end;

8
components/orpheus/ovctcbmp.pas
View File

@ -185,11 +185,11 @@ procedure TOvcTCBaseBitMap.tcPaint(TableCanvas : TCanvas;
Bottom := Top + DisplayHt;
end;
{brush copy the bitmap onto the table}
{$IFNDEF LCL}
TableCanvas.BrushCopy(DestRect, BMInfo^.BM, SrcRect, TransparentColor);
{$ELSE}
//{$IFNDEF LCL}
// TableCanvas.BrushCopy(DestRect, BMInfo^.BM, SrcRect, TransparentColor);
//{$ELSE}
BrushCopy(TableCanvas, DestRect, BMInfo^.BM, SrcRect, TransparentColor);
{$ENDIF}
//{$ENDIF}
end;
function TOvcTCBaseBitMap.EditHandle : THandle;

8
components/orpheus/ovctccbx.pas
View File

@ -615,11 +615,11 @@ procedure TOvcTCCustomComboBox.DrawButton(Canvas : TCanvas;
Right := Left + Wd;
Bottom := Top + Ht;
end;
{$IFNDEF LCL}
//{$IFNDEF LCL}
BrushCopy(DestRect, OvcComboBoxBitmap, SrcRect, clSilver);
{$ELSE}
BrushCopy(Canvas, DestRect, OvcComboBoxBitmap, SrcRect, clSilver);
{$ENDIF}
//{$ELSE}
// BrushCopy(Canvas, DestRect, OvcComboBoxBitmap, SrcRect, clSilver);
//{$ENDIF}
end;
end;
{--------}