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

lcl: don't fire ColorDialog when TColorListBox ItemIndex was changed by LCL code

Browse Source 
git-svn-id: trunk@17334 -
This commit is contained in:
paul 2008-11-11 04:43:02 +00:00
parent 7272ed2dee
commit 8277d0556e
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/colorbox.pas
View File

@ -835,10 +835,13 @@ end;
procedure TCustomColorListBox.DoSelectionChange(User: Boolean);
begin
if (cbCustomColor in Style) and (ItemIndex = 0) then // custom color has been selected
PickCustomColor;
if ItemIndex <> -1 then
FSelected := Colors[ItemIndex];
if User then
begin
if (cbCustomColor in Style) and (ItemIndex = 0) then // custom color has been selected
PickCustomColor;
if ItemIndex <> -1 then
FSelected := Colors[ItemIndex];
end;
inherited DoSelectionChange(User);
end;