TKLog

type TKLog = class(TComponent)

protected

  procedure ClearStatusBar;

  function LogTypeToText();

  procedure SetHoverTime();

  procedure StatusLogTimer();

  procedure Notification(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Clear;

  procedure Log();

  procedure LogStr();

  procedure StatusLog();

  procedure StatusLogStr();

published

  property Events: TKLogEventObjects; [r]

  property HoverTime: Cardinal; [rw]

  property InternalStorage: Boolean; [rw]

  property ListBox: TListBox; [rw]

  property LogDirection: TKLogDirection; [rw]

  property LogMask: TKLogMask; [rw]

  property LogText: string; [r]

  property StatusBar: TStatusBar; [rw]

  property StatusCode: TKLogType; [r]

  property StatusPanel: Integer; [rw]

  property StatusText: string; [rw]

  property OnLog: TKLogEvent; [rw]

end;

TKLog

TObject