[JVCL-Checkins] CVS: jvcl/source JvxCtrls.pas,1.9,1.10

[Remko B. <rem...@us...>]

Update of /cvsroot/jvcl/jvcl/source
In directory sc8-pr-cvs1:/tmp/cvs-serv28832

Modified Files:
	JvxCtrls.pas 
Log Message:
Mantis #468

Index: JvxCtrls.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvxCtrls.pas,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** JvxCtrls.pas	26 Nov 2002 18:18:21 -0000	1.9
--- JvxCtrls.pas	29 Nov 2002 00:24:52 -0000	1.10
***************
*** 13,17 ****
  The Initial Developers of the Original Code are: Fedor Koshevnikov, Igor Pavluk and Serge Korolev
  Copyright (c) 1997, 1998 Fedor Koshevnikov, Igor Pavluk and Serge Korolev
! Copyright (c) 2001,2002 SGB Software          
  All Rights Reserved.
  
--- 13,17 ----
  The Initial Developers of the Original Code are: Fedor Koshevnikov, Igor Pavluk and Serge Korolev
  Copyright (c) 1997, 1998 Fedor Koshevnikov, Igor Pavluk and Serge Korolev
! Copyright (c) 2001,2002 SGB Software
  All Rights Reserved.
[...5464 lines suppressed...]
***************
*** 5141,5145 ****
    inherited ActionChange(Sender, CheckDefaults);
    if Sender is TCustomAction then
!     with TCustomAction(Sender) do begin
        if (not CheckDefaults or (Self.Down = False)) and (FGroupIndex <> 0) then
          Self.Down := Checked;
--- 5727,5732 ----
    inherited ActionChange(Sender, CheckDefaults);
    if Sender is TCustomAction then
!     with TCustomAction(Sender) do
!     begin
        if (not CheckDefaults or (Self.Down = False)) and (FGroupIndex <> 0) then
          Self.Down := Checked;
***************
*** 5162,5163 ****
--- 5749,5751 ----
  {$ENDIF}
  end.
+