[JVCL-Checkins] CVS: jvcl/source JvColorCombo.pas,1.11,1.12

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/jvcl/source
In directory usw-pr-cvs1:/tmp/cvs-serv31780/source

Modified Files:
	JvColorCombo.pas 
Log Message:
Mantis #363

Index: JvColorCombo.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvColorCombo.pas,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** JvColorCombo.pas	11 Oct 2002 13:03:09 -0000	1.11
--- JvColorCombo.pas	12 Oct 2002 11:08:57 -0000	1.12
***************
*** 456,460 ****
      Inc(FCustCnt);
      ItemIndex := Items.Count - 2;
!     ColorValue := Value;
    end;
  end;
--- 456,460 ----
      Inc(FCustCnt);
      ItemIndex := Items.Count - 2;
!     FColorValue := Value;
    end;
  end;
***************
*** 755,762 ****
    var DisplayName: string): boolean;
  begin
    if Assigned(FOnInsertColor) then
!     FOnInsertColor(self, AColor, DisplayName, Result)
!   else
!     Result := true;
  end;
  
--- 755,761 ----
    var DisplayName: string): boolean;
  begin
+   Result := true;
    if Assigned(FOnInsertColor) then
!     FOnInsertColor(self, AColor, DisplayName, Result);
  end;