From 14c9b6cdd66fb74e0fde12092fc927cf63fad482 Mon Sep 17 00:00:00 2001 From: yangjixian Date: Tue, 19 Apr 2011 13:57:38 +0000 Subject: [PATCH] git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1584 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/colorpalette/colorpalette.pas | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/components/colorpalette/colorpalette.pas b/components/colorpalette/colorpalette.pas index 9c53a1d51..7ab0cc61d 100644 --- a/components/colorpalette/colorpalette.pas +++ b/components/colorpalette/colorpalette.pas @@ -187,13 +187,12 @@ begin X := X div FButtonWidth; Y := Y div FButtonHeight; -// if X + Y * FCols < 0 then -// Exit; + if X + Y * FCols < 0 then + Exit; if X + Y * FCols < FColors.Count then begin PickedColor := TColor(FColors.Items[X + Y * FCols]); - //if PickedColor <> clNone then ColorPick(PickedColor, Shift); PickShift := Shift; end; end;