TAbBaseBrowser

type TAbBaseBrowser = class(TAbBaseComponent)

public

  FArchive: TAbArchive;

protected

  FSpanningThreshold: LongInt;

  FItemProgressMeter: TAbCustomMeter;

  FArchiveProgressMeter: TAbCustomMeter;

  FBaseDirectory: string;

  FFileName: string;

  FLogFile: string;

  FLogging: Boolean;

  FOnArchiveProgress: TAbArchiveProgressEvent;

  FOnArchiveItemProgress: TAbArchiveItemProgressEvent;

  FOnChange: TNotifyEvent;

  FOnConfirmProcessItem: TAbArchiveItemConfirmEvent;

  FOnLoad: TAbArchiveEvent;

  FOnProcessItemFailure: TAbArchiveItemFailureEvent;

  FOnRequestImage: TAbRequestImageEvent;

  FTempDirectory: string;

  FArchiveType: TAbArchiveType;

  FForceType: Boolean;

  function GetCount;

  function GetItem();

  function GetSpanned;

  function GetStatus;

  procedure ResetMeters; virtual;

  procedure SetArchiveProgressMeter();

  procedure SetCompressionType();

  procedure SetBaseDirectory();

  procedure SetItemProgressMeter();

  procedure SetSpanningThreshold();

  procedure SetLogFile();

  procedure SetLogging();

  procedure SetTempDirectory();

  procedure Loaded; override;

  procedure Notification(); override;

  procedure DoArchiveItemProgress(); virtual;

  procedure DoArchiveProgress(); virtual;

  procedure DoChange; virtual;

  procedure DoConfirmProcessItem(); virtual;

  procedure DoLoad(); virtual;

  procedure DoProcessItemFailure(); virtual;

  procedure SetOnRequestImage(); virtual;

  procedure InitArchive; virtual;

  procedure SetFileName(); virtual; abstract;

  property Archive: TAbArchive; [r]

  property ArchiveProgressMeter: TAbCustomMeter; [rw]

  property BaseDirectory: string; [rw]

  property FileName: string; [rw]

  property SpanningThreshold: LongInt; [rw]

  property ItemProgressMeter: TAbCustomMeter; [rw]

  property LogFile: string; [rw]

  property Logging: Boolean; [rw]

  property Spanned: Boolean; [r]

  property TempDirectory: string; [rw]

  property OnArchiveProgress: TAbArchiveProgressEvent; [rw]

  property OnArchiveItemProgress: TAbArchiveItemProgressEvent; [rw]

  property OnConfirmProcessItem: TAbArchiveItemConfirmEvent; [rw]

  property OnProcessItemFailure: TAbArchiveItemFailureEvent; [rw]

  property OnRequestImage: TAbRequestImageEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure ClearTags;

  function FindItem();

  function FindFile();

  procedure TagItems();

  procedure UnTagItems();

  procedure CloseArchive;

  procedure OpenArchive();

  property Count: Integer; [r]

  property Items []: TAbArchiveItem; default; [r]

  property Status: TAbArchiveStatus; [r]

  property ArchiveType: TAbArchiveType; [rw]

  property ForceType: Boolean; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnLoad: TAbArchiveEvent; [rw]

end;

TAbBaseBrowser

TAbBaseComponent

TObject