paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 22:20:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TLazCanvas cleanup of unused variables

Browse Source 
git-svn-id: trunk@35221 -
This commit is contained in:
zeljko 2012-02-07 12:04:19 +00:00
parent 884f78a7c0
commit 0a251c34b1
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/lazcanvas.pas
View File

@ -592,8 +592,6 @@ procedure TLazCanvas.CanvasCopyRect(ASource: TLazCanvas; const ADestX, ADestY,
ASourceX, ASourceY, ASourceWidth, ASourceHeight: Integer);
var
x, y, CurDestX, CurDestY, CurSrcX, CurSrcY: Integer;
MaskValue, InvMaskValue: Word;
CurColor: TFPColor;
lDrawWidth, lDrawHeight: Integer;
lColor: TFPColor;
begin