[JVCL-Checkins] CVS: jvcl/source JvLinkLabel.pas,1.3,1.4

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

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

Modified Files:
	JvLinkLabel.pas 
Log Message:
Changed to preserve formatting

Index: JvLinkLabel.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvLinkLabel.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** JvLinkLabel.pas	10 Aug 2002 16:37:05 -0000	1.3
--- JvLinkLabel.pas	9 Oct 2002 12:24:27 -0000	1.4
***************
*** 54,58 ****
    private
      FCaption: TCaption;
!     FText: TStringList;
      FRenderer: IRenderer;
      FActiveLinkNode: TLinkNode;
--- 54,58 ----
    private
      FCaption: TCaption;
!     FText: TStrings;
      FRenderer: IRenderer;
      FActiveLinkNode: TLinkNode;
***************
*** 90,94 ****
      procedure SetMarginHeight(const Value: Integer);
      procedure SetMarginWidth(const Value: Integer);
!     procedure SetText(const Value: TStringList);
  
    protected
--- 90,94 ----
      procedure SetMarginHeight(const Value: Integer);
      procedure SetMarginWidth(const Value: Integer);
!     procedure SetText(const Value: TStrings);
  
    protected
***************
*** 115,119 ****
      property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False;
      property Caption: TCaption read FCaption write SetCaption;
!     property Text: TStringList read FText write SetText;
      property Transparent: Boolean read GetTransparent write SetTransparent;
      property LinkColor: TColor read GetLinkColor write SetLinkColor;
--- 115,119 ----
      property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False;
      property Caption: TCaption read FCaption write SetCaption;
!     property Text: TStrings read FText write SetText;
      property Transparent: Boolean read GetTransparent write SetTransparent;
      property LinkColor: TColor read GetLinkColor write SetLinkColor;
***************
*** 527,534 ****
  end;
  
! procedure TJvCustomLinkLabel.SetText(const Value: TStringList);
  begin
    FText.Assign(Value);
!   SetCaption(TStringTools.RemoveCRLF(FText.Text));
  end;
  
--- 527,534 ----
  end;
  
! procedure TJvCustomLinkLabel.SetText(const Value: TStrings);
  begin
    FText.Assign(Value);
!   SetCaption(FText.Text);
  end;