J
jack2004
Unregistered / Unconfirmed
GUEST, unregistred user!
TMyGlyphs = class(TPersistent)
private
FGlyph: TBitmap;
procedure SetGlyph(Value: TBitmap);
protected
public
constructor Create;
destructor Destroy; override;
published
property Glyph: TBitmap read FGlyph write SetGlyph;
end;
.............
procedure TMyGlyphs.SetGlyph(Value: TBitmap);
begin
if Value <> FGlyph then
FGlyph.Assign(Value);
end;
上面的程序被另一继承自TPersistent的程序引用,然后在一控件中引用。
上面控件,使用TBitmap时,图片可以正确载入,使用TPicture时,图片不能载入?什么原因??
另外,载入图片后,控件不能立即显示图片内容,必须刷新屏幕才可以(例如在IDE环境下,点击控件)
private
FGlyph: TBitmap;
procedure SetGlyph(Value: TBitmap);
protected
public
constructor Create;
destructor Destroy; override;
published
property Glyph: TBitmap read FGlyph write SetGlyph;
end;
.............
procedure TMyGlyphs.SetGlyph(Value: TBitmap);
begin
if Value <> FGlyph then
FGlyph.Assign(Value);
end;
上面的程序被另一继承自TPersistent的程序引用,然后在一控件中引用。
上面控件,使用TBitmap时,图片可以正确载入,使用TPicture时,图片不能载入?什么原因??
另外,载入图片后,控件不能立即显示图片内容,必须刷新屏幕才可以(例如在IDE环境下,点击控件)