This one displays anything below in the private section, does not work at all 
TCustomWSocket = class( {$IFNDEF NO_DEBUG_LOG} TIcsBaseLogComp {$ELSE} 
TComponent {$ENDIF})


Displays TCustomWSocket as a private var an puts all other privat vars under 
protected
{$IFNDEF NO_DEBUG_LOG}
    TCustomWSocket = class(TIcsBaseLogComp)
{$ELSE}
    TCustomWSocket = class(TComponent)
{$ENDIF}
private
    FDnsResult          : String;

Best result but displays TCustomWSocket as a private var 
{$IFNDEF NO_DEBUG_LOG}
    TCustomWSocket = class(TIcsBaseLogComp)
    private
{$ELSE}
    TCustomWSocket = class(TComponent)
    private
{$ENDIF}
    FDnsResult          : String;

Any idea how to convince to compiler? Or is the object inspector confused only?
-- 
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

Reply via email to