CnPack Forum » CnVCL 组件包 » [BUG]TCnButtonEdit


2012-3-12 22:28 jAmEs_
[BUG]TCnButtonEdit

这个问题N年前就发现,当时因为没有使用,没有细看,刚才使用到这个,修正一下:

增加函数:
procedure FreeBtnEdtGlyph;
var
  Kind: TButtonKind;
begin
  for Kind := Low(TButtonKind) to High(TButtonKind) do
  begin
    if BtnEdtGlyphs[Kind] <> nil then
      BtnEdtGlyphs[Kind].Free;
    BtnEdtGlyphs[Kind] := nil;
  end;
end;


修改释构函数:
destructor TCnButtonEdit.Destroy;
//var
//  Kind: TButtonKind;
begin
//  for Kind := Low(TButtonKind) to High(TButtonKind) do
//  begin
//    BtnEdtGlyphs[Kind].Free;
//    BtnEdtGlyphs[Kind] := nil;
//  end;
  inherited;
end;

//单元finalization

initialization

finalization
  FreeBtnEdtGlyph;

2012-3-13 09:17 Passion
收到。查了一下,确实如此,我们疏忽了。:L
感谢报告。

页: [1]
查看完整版本: [BUG]TCnButtonEdit


Powered by Discuz! Archiver 5.0.0  © 2001-2006 Comsenz Inc.