|
From: Peter T. <pe...@us...> - 2004-12-18 12:03:40
|
Update of /cvsroot/jvcl/dev/JVCL3/run In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12496/run Modified Files: JvParameterListParameter.pas Log Message: - Mantis 0002394: FGlyph is nil in TJvButtonParameter Index: JvParameterListParameter.pas =================================================================== RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvParameterListParameter.pas,v retrieving revision 1.48 retrieving revision 1.49 diff -C2 -d -r1.48 -r1.49 *** JvParameterListParameter.pas 14 Dec 2004 12:09:23 -0000 1.48 --- JvParameterListParameter.pas 18 Dec 2004 12:03:27 -0000 1.49 *************** *** 69,72 **** --- 69,74 ---- procedure SetWinControlProperties; override; public + constructor Create(AParameterList: TJvParameterList); override; + destructor Destroy;override; procedure Assign(Source: TPersistent); override; procedure CreateWinControlOnParent(ParameterParent: TWinControl); override; *************** *** 600,603 **** --- 602,611 ---- end; + constructor TJvButtonParameter.Create(AParameterList: TJvParameterList); + begin + inherited Create(AParameterList); + FGlyph := TBitmap.Create; + end; + procedure TJvButtonParameter.CreateWinControlOnParent(ParameterParent: TWinControl); begin *************** *** 610,613 **** --- 618,627 ---- end; + destructor TJvButtonParameter.Destroy; + begin + FGlyph.Free; + inherited Destroy; + end; + procedure TJvButtonParameter.SetWinControlProperties; var *************** *** 2255,2258 **** --- 2269,2274 ---- ); + + initialization RegisterUnitVersion(HInstance, UnitVersioning); |