Guadagnini David schreef:
TLabel have not OnPaint property. If you want you can add this but you
must modify the component TCustomLabel
It has. This code is possible with Lazarus.
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.OnPaint := nil;
end;
Vincent Snijders ha scritto:
Hi,
At this moment TGraphicControl.OnPaint is a public property. I am
thinking about publishing in some descendants like TShape.
At the same time I think it is better to make TGraphicControl.OnPaint
a protected property. If this is done, TLabel.OnPaint is not public
anymore.
Is anybody using TLabel.OnPaint? Would this change break anybody's code?
My question is: Is anybody using it, because I think it is better to modify the LCL,
so that you cannot do this anymore, unless you have create a new component which
made TCustomLabel.OnPaint public or published.
Vincent
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
