[JVCL-Checkins] CVS: dev/JVCL3/run JvWinampLabel.pas,1.9,1.10 - Update

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

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1:/tmp/cvs-serv10656/run

Modified Files:
	JvWinampLabel.pas 
Log Message:
Update

Index: JvWinampLabel.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvWinampLabel.pas,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** JvWinampLabel.pas	13 Jan 2004 16:13:24 -0000	1.9
--- JvWinampLabel.pas	19 Jan 2004 18:29:05 -0000	1.10
***************
*** 33,37 ****
  uses
    Windows, SysUtils, Messages, Classes, Graphics, Controls, StdCtrls,
!   JVCLVer;
  
  type
--- 33,37 ----
  uses
    Windows, SysUtils, Messages, Classes, Graphics, Controls, StdCtrls,
!   JvExStdCtrls;
  
  type
***************
*** 45,51 ****
    end;
  
!   TJvWinampLabel = class(TCustomLabel)
    private
-     FAboutJVCL: TJVCLAboutInfo;
      FBitmap: TBitmap;
      FPicture: TPicture;
--- 45,50 ----
    end;
  
!   TJvWinampLabel = class(TJvExCustomLabel)
    private
      FBitmap: TBitmap;
      FPicture: TPicture;
***************
*** 76,81 ****
      function GetRow(Ch: Char): Word;
      procedure SetText(Value: string);
-     procedure CMColorChanged(var Msg: TMessage); message CM_COLORCHANGED;
    protected
      procedure Paint; override;
      // (rom) made protected property
--- 75,80 ----
      function GetRow(Ch: Char): Word;
      procedure SetText(Value: string);
    protected
+     procedure ColorChanged; override;
      procedure Paint; override;
      // (rom) made protected property
***************
*** 86,90 ****
      destructor Destroy; override;
    published
-     property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False;
      property Active: Boolean read FActive write SetActive;
      property Stretch: Boolean read FStretch write SetStretch;
--- 85,88 ----
***************
*** 450,457 ****
  end;
  
! procedure TJvWinampLabel.CMColorChanged(var Msg: TMessage);
  begin
    FText := '';
!   inherited;
  end;
  
--- 448,455 ----
  end;
  
! procedure TJvWinampLabel.ColorChanged;
  begin
    FText := '';
!   inherited ColorChanged;
  end;