[JVCL-Checkins] dev/JVCL3/run JvParameterListParameter.pas,1.48,1.49 - - Mantis 0002394: FGlyph is nil in TJvButtonParameter

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

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);