[JVCL-Checkins] dev/JVCL3/run JvScrollMax.pas,1.40,1.41 - Fixed Mantis #2395 - can't place a JVScrollMax on a Form, Se

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27133/run

Modified Files:
	JvScrollMax.pas 
Log Message:
Fixed Mantis #2395 - can't place a JVScrollMax on a Form, SetParentBackground is called before the subcomponents are created.


Index: JvScrollMax.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvScrollMax.pas,v
retrieving revision 1.40
retrieving revision 1.41
diff -C2 -d -r1.40 -r1.41
*** JvScrollMax.pas	10 Sep 2004 19:38:26 -0000	1.40
--- JvScrollMax.pas	3 Jan 2005 14:30:16 -0000	1.41
***************
*** 109,113 ****
    public
      constructor Create(AOwner: TComponent); override;
-     destructor Destroy; override;
      property Data: Pointer read FData write FData;
    published
--- 109,112 ----
***************
*** 590,594 ****
      NoBorder := False;
      ParentColor := True;
-     {o}
      {$IFDEF VCL}
      FButton.ParentBiDiMode := True;
--- 589,592 ----
***************
*** 598,606 ****
  end;
  
- destructor TJvScrollMaxBand.Destroy;
- begin
-   inherited Destroy;
- end;
- 
  procedure TJvScrollMaxBand.Loaded;
  begin
--- 596,599 ----
***************
*** 1117,1121 ****
    end;
    {$IFDEF JVCLThemesEnabled}
-   // (ahuser) FPnlEdit and FScrollBar must be created
    ParentBackground := True;
    {$ENDIF JVCLThemesEnabled}
--- 1110,1113 ----
***************
*** 1132,1137 ****
  begin
    inherited SetParentBackground(Value);
!   FPnlEdit.ParentBackground := Value;
!   FScrollBar.ParentBackground := Value;
  end;
  {$ENDIF JVCLThemesEnabled}
--- 1124,1131 ----
  begin
    inherited SetParentBackground(Value);
!   if Assigned(FPnlEdit) then
!     FPnlEdit.ParentBackground := Value;
!   if Assigned(FScrollBar) then
!     FScrollBar.ParentBackground := Value;
  end;
  {$ENDIF JVCLThemesEnabled}