paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 09:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

ColorListBox: use same logic for Style as TColorBox. Issue .

Browse Source 
git-svn-id: trunk@47583 -
This commit is contained in:
bart 2015-02-02 18:21:18 +00:00
parent f05054dd59
commit 2ef47b3812
1 changed files with 3 additions and 2 deletions

5
lcl/colorbox.pas
View File

@ -839,7 +839,9 @@ begin
begin
if not (cbStandardColors in Style) and (Index < StandardColorsCount) then
Exit;
if not (cbExtendedColors in Style) and (Index < StandardColorsCount + ExtendedColorCount) then
if not (cbExtendedColors in Style) and
(Index < StandardColorsCount + ExtendedColorCount) and
(Index >= StandardColorsCount) then
Exit;
end;
@ -920,7 +922,6 @@ begin
// we need to wait while we finish loading since we depend on style and OnGetColors event
if (csLoading in ComponentState) then
Exit;
OldSelected := FSelected;
with Items do
begin