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

* Use TControl.Width/Height instead of TBitmap.Width/Height: it's faster

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1077 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-23 04:12:17 +00:00
parent bfc8f654a8
commit 3e6b2b7bd9
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/smnetgradient/smnetgradient.pas
View File

@@ -503,13 +503,13 @@ begin
{ Calculate the color band's left and right coordinates }
fdLeftToRight, fdRightToLeft:
begin
ColorBand.Left := MulDiv (I, Width, FNumberOfColors);
ColorBand.Right := MulDiv (I + 1, Width, FNumberOfColors);
ColorBand.Left := MulDiv (I, Self.Width, FNumberOfColors);
ColorBand.Right := MulDiv (I + 1, Self.Width, FNumberOfColors);
end;
ftTopToBottom, ftBottomToTop:
begin
ColorBand.Top := MulDiv (I, Height, FNumberOfColors);
ColorBand.Bottom := MulDiv (I + 1, Height, FNumberOfColors);
ColorBand.Top := MulDiv (I, Self.Height, FNumberOfColors);
ColorBand.Bottom := MulDiv (I + 1, Self.Height, FNumberOfColors);
end;
end;
{ Calculate the color band's color }