type
TELabelOption=class(tgraphicsobject)
private
mGROW:boolean;
mGrowcolor:tcolor;
procedure writeGROW(newvalue:boolean);
procedure writeGrowcolor(newvalue:tcolor);
{ Private declarations }
// moption:TELAbeloption;
protected { Protected declarations }
public
{ Public declarations }
published
property GROW : boolean read mGROW write writeGrow;
property Growcolor : tcolor read mGrowcolor write writeGrowcolor;
{ Published declarations }
end;
TELabel = class(TLabel)
private
{ Private declarations }
moption:TELAbeloption;
function readoption: telabeloption;
procedure writeoption(newvalue:TElabeloption);
procedure DrawGrow(rect:trect;flags:longint); protected
procedure dodrawtext(var rect:trect;flags:longint);override;
{ Protected declarations }
public
constructor create(aowner:tcomponent); override;
destructor destroy; override; { Public declarations }
published
property Option : TElabeloption read readoption write writeoption; { Published declarations }
end;
问 怎么才能在TELabelOption下的两个属性改变的时候(及在writeoption中),重新画TELabel控件
TELabelOption=class(tgraphicsobject)
private
mGROW:boolean;
mGrowcolor:tcolor;
procedure writeGROW(newvalue:boolean);
procedure writeGrowcolor(newvalue:tcolor);
{ Private declarations }
// moption:TELAbeloption;
protected { Protected declarations }
public
{ Public declarations }
published
property GROW : boolean read mGROW write writeGrow;
property Growcolor : tcolor read mGrowcolor write writeGrowcolor;
{ Published declarations }
end;
TELabel = class(TLabel)
private
{ Private declarations }
moption:TELAbeloption;
function readoption: telabeloption;
procedure writeoption(newvalue:TElabeloption);
procedure DrawGrow(rect:trect;flags:longint); protected
procedure dodrawtext(var rect:trect;flags:longint);override;
{ Protected declarations }
public
constructor create(aowner:tcomponent); override;
destructor destroy; override; { Public declarations }
published
property Option : TElabeloption read readoption write writeoption; { Published declarations }
end;
问 怎么才能在TELabelOption下的两个属性改变的时候(及在writeoption中),重新画TELabel控件
解决方案 »
- 关于DBgrid相关
- 关于shift + 方向键的代码(由于我只有34分了,我只能给10分)
- excel 导入access
- 我设计一个delphi的类A,类A中一个变量为B类型的对象变量;我在释放A类的对象时是否需要同时释放B类的对象?
- ■■■■■使用Servers页中的OutlookApplication时报告“类没有注册”怎么回事?
- 求 当 运行 TForm1.StringGrid1DblClick ()时,相得到StringGrid1该行某个值,怎么实现?100分
- 快来看啊!奇文!《你该相信谁》
- 关于左连接,右连接以union的使用。
- 如何去掉字符串中的空格,有分送
- 多线程问题:怎样强行终止一个线程
- 各位大侠来看下...头都大了.....(条形码)
- 一个关于服务器端文件复制的问题
你说的应该是TELabel 或者tlabel的 Invalidate;
可是我如何实现 在TELabelOption 改变时,telabel知道并且 invalidate