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

mbColorLib: Rename internal FGradientBmp to FBufferBmp

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5501 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-15 09:05:53 +00:00
parent 9d70cf2465
commit b956e84c19
16 changed files with 81 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/mbColorLib/HSColorPicker.pas
View File

@@ -91,7 +91,7 @@ end;
function THSColorPicker.GetGradientColor2D(X, Y: Integer): TColor;
begin
Result := HSLRangeToRGB(x, FGradientBmp.Height - 1 - y, 120);
Result := HSLRangeToRGB(x, FBufferBmp.Height - 1 - y, 120);
end;
procedure THSColorPicker.CorrectCoords(var x, y: integer);
@@ -130,7 +130,7 @@ end;
procedure THSColorPicker.Paint;
begin
Canvas.StretchDraw(ClientRect, FGradientBmp);
Canvas.StretchDraw(ClientRect, FBufferBmp);
CorrectCoords(mxx, myy);
DrawMarker(mxx, myy);
end;