TAbBaseViewer

type TAbBaseViewer = class(TCustomGrid)

protected

  FAllowInvalidate: Boolean;

  FAttributes: TAbViewAttributes;

  FDisplayOptions: TAbDisplayOptions;

  FSortAttributes: TAbSortAttributes;

  FColMap: array [TAbViewAttribute] of Integer;

  FColSizing: Boolean;

  FColMoving: Boolean;

  FHeadings: TAbColHeadings;

  FItemList: TAbArchiveList;

  FRowMap: TAbRowMap;

  FFileName: string;

  FFontSize: Integer;

  FItemIndex: LongInt;

  FColors: TAbColors;

  FButtonDown: Boolean;

  FIcons: TStringList;

  FSelList: TAbSelList;

  FMultiSelecting: Boolean;

  FShiftState: TShiftState;

  FSortCol: Integer;

  RowAnchor: LongInt;

  ViewMouseCoord: TGridCoord;

  FOnChange: TNotifyEvent;

  FOnClick: TNotifyEvent;

  FOnDblClick: TNotifyEvent;

  FOnSorted: TAbSortedEvent;

  FOnDrawSortArrow: TAbDrawSortArrowEvent;

  function AttrToSortAttribute();

  function AttrToStr();

  function ColMap();

  procedure ColorsChange();

  procedure DrawHeaderButton();

  procedure DrawSortArrow;

  function DrawTextFormat();

  function GetCount;

  function GetActiveRow;

  function GetHeaderRowHeight;

  function GetSelCount;

  function GetSelected();

  procedure InitColMap;

  procedure InvalidateRow();

  procedure MoveColumn();

  procedure RefreshCell();

  procedure RefreshRow();

  procedure SetActiveRow();

  procedure SetAttributes();

  procedure SetDisplayOptions();

  procedure SetSortAttributes();

  procedure SetHeaderRowHeight();

  procedure SetHeadings();

  procedure SetSelected();

  procedure SetVersion();

  function UpdateColCount();

  procedure WMSize(); message;

  procedure WMEraseBkgnd(); message;

  procedure Click; override;

  procedure DblClick; override;

  procedure KeyDown(); override;

  procedure KeyUp(); override;

  procedure Loaded; override;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure MouseMove(); override;

  procedure DrawCell(); override;

  procedure TopLeftChanged; override;

  procedure DoChange(); virtual;

  procedure DoLoad(); virtual;

  procedure DoSorted(); virtual;

  property Attributes: TAbViewAttributes; [rw]

  property DisplayOptions: TAbDisplayOptions; [rw]

  property HeaderRowHeight: Integer; [rw]

  property Headings: TAbColHeadings; [rw]

  property ItemList: TAbArchiveList; [rw]

  property SortAttributes: TAbSortAttributes; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnClick: TNotifyEvent; [rw]

  property OnDblClick: TNotifyEvent; [rw]

  property OnSorted: TAbSortedEvent; [rw]

  property OnDrawSortArrow: TAbDrawSortArrowEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure BeginUpdate;

  procedure EndUpdate;

  procedure ClearSelections;

  procedure SelectAll;

  property ActiveRow: LongInt; [rw]

  property Colors: TAbColors; [rw]

  property Count: LongInt; [r]

  property SelCount: LongInt; [r]

  property Selected []: Boolean; [rw]

  property ColWidths;

  property RowHeights;

published

  property OnDragDrop;

  property OnDragOver;

end;

TAbBaseViewer

TObject