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

mbColorLib: one test forgotten in prev commit...

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5518 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-16 15:04:18 +00:00
parent 0563e04bea
commit f2809fba90
3 changed files with 18 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/mbColorLib/mbColorPickerControl.pas
View File

@ -250,10 +250,10 @@ end;
procedure TmbCustomPicker.InternalDrawMarker(X, Y: Integer; C: TColor);
begin
case MarkerStyle of
msCircle: DrawSelCirc(x, y, Canvas);
msSquare: DrawSelSquare(x, y, Canvas);
msCross: DrawSelCross(x, y, Canvas, c);
msCrossCirc: DrawSelCrossCirc(x, y, Canvas, c);
msCircle : DrawSelCirc(x, y, Canvas);
msSquare : DrawSelSquare(x, y, Canvas);
msCross : DrawSelCross(x, y, Canvas, c);
msCrossCirc : DrawSelCrossCirc(x, y, Canvas, c);
end;
end;
(*
@ -317,8 +317,8 @@ end;
procedure TmbCustomPicker.WebSafeChanged;
begin
CreateGradient;
Invalidate;
CreateGradient;
Invalidate;
end;
end.