[JVCL-Checkins] CVS: jvcl/source JvSpecialImage.pas,1.2,1.3

[Michael B. <be...@us...>]

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

Modified Files:
	JvSpecialImage.pas 
Log Message:
Fixed bug (FOriginal was not assigned from Picture)

Index: JvSpecialImage.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvSpecialImage.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvSpecialImage.pas	20 Jul 2002 11:52:36 -0000	1.2
--- JvSpecialImage.pas	22 Sep 2002 23:57:23 -0000	1.3
***************
*** 55,58 ****
--- 55,59 ----
      procedure SetPicture(const Value: TPicture);
    protected
+     procedure Loaded; override;  
    public
      constructor Create(AOwner: TComponent); override;
***************
*** 253,256 ****
--- 254,263 ----
  begin
    Result := inherited Picture;
+ end;
+ 
+ procedure TJvSpecialImage.Loaded;
+ begin
+   inherited;
+   FOriginal.Assign(Picture);
  end;