From: Michael B. <be...@us...> - 2002-09-22 23:57:28
|
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; |