CnPack Forum

#1 [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( ..

#1 >>Next Page

Forum:CnVCL 组件包
Thread:[BUG]TCnButtonEdit
Next Thread:多国语言组件的问题 ...

Home
Login

Powered by Discuz!