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