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

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1584 8e941d3f-bd1b-0410-a28a-d453659cc2b4

Browse Source
This commit is contained in:
yangjixian
2011-04-19 13:57:38 +00:00
parent 6b59df8592
commit 14c9b6cdd6
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/colorpalette/colorpalette.pas
View File

@@ -187,13 +187,12 @@ begin
X := X div FButtonWidth; X := X div FButtonWidth;
Y := Y div FButtonHeight; Y := Y div FButtonHeight;
// if X + Y * FCols < 0 then if X + Y * FCols < 0 then
// Exit; Exit;
if X + Y * FCols < FColors.Count then if X + Y * FCols < FColors.Count then
begin begin
PickedColor := TColor(FColors.Items[X + Y * FCols]); PickedColor := TColor(FColors.Items[X + Y * FCols]);
//if PickedColor <> clNone then ColorPick(PickedColor, Shift);
PickShift := Shift; PickShift := Shift;
end; end;
end; end;