
{*******************************************************}
{                                                       }
{       Borland Delphi Visual Component Library         }
{                                                       }
{       Copyright (c) 1997,98 Inprise Corporation       }
{                                                       }
{*******************************************************}

unit mxpivsrc;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Grids, Buttons, Controls, StdCtrls,
  Forms, Dialogs, Bde, DB, DBTables, Menus, ExtCtrls,
  mxConsts, mxdb, mxbutton, mxStore, mxcommon;
type

	TDecisionButtonPosition = (xtHorizontal, xtVertical, xtLeftTop);
	TDecisionPivotOption = (xtRows, xtColumns, xtSummaries);
  TDecisionPivotOptions = set of TDecisionPivotOption;

  TDecisionPivot = class;
  TPivotDataLink = class(TDecisionDataLink)
  protected
		procedure	DecisionDataEvent(Event: TDecisionDataEvent); override;
  public
    constructor Create(aPivot: TDecisionPivot);
    destructor Destroy; override;
  end;

	TDecisionPivot = class(TCustomPanel)
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
		procedure SetBounds(Left, Top, Height, Width: Integer); override;
  published
    property	ButtonAutoSize: Boolean;
		property	DecisionSource: TDecisionSource read FSource write SeTDecisionSource;
		property	GroupLayout: TDecisionButtonPosition read FStyle write SetStyle;// default xtLeftTop;
		property	Groups: TDecisionPivotOptions read FContents write SetContents;
    property	ButtonSpacing: Integer;
    property	ButtonWidth: Integer;// default 60;
    property	ButtonHeight: Integer;// default 30;
    property	GroupSpacing:	Integer;
		property 	BorderWidth: TBorderWidth read GetBorderWidth write SetBorderWidth;
    property 	BorderStyle: TBorderStyle;
  //from the base class
    property Align;
    property Alignment;
    property BevelInner;
    property BevelOuter;
    property BevelWidth;
    property DragCursor;
    property DragMode;
    property Enabled;
    property Font;
    property Color;
    property Ctl3D;
    property ParentColor;
    property ParentCtl3D;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;
    property ShowHint;
    property TabOrder;
    property TabStop;
    property Visible;
    property OnClick;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnResize;
    property OnStartDrag;
  end;

implementation
