[Qt] Lazarus build problem is reported at russian forum

Paul Ishenin ip at kmiac.ru
Wed Jun 10 09:09:03 CEST 2009

zeljko wrote:

> Fixed in  r20567


Btw, regards that code:

procedure TQtWidget.InitializeWidget;
   // default color roles
   if InheritsFrom(TQtAbstractButton) then

Why do you use InheritsFrom? Why not to call some virtual method and 
otherride it in TQtAbstractButton, TQtHintWindow, ...?

Imo it is not a good way at all to compare in ancestor class inheritance 
from descendant and execute descendant code. And moreover various 
"InheritsFrom", "is", "as", '.ClassType = TSomeClass' links all that 
classes into executable even if they are not used in real.

Can you refactor this piece of code please?

Best regards,
Paul Ishenin.

More information about the Qt mailing list