iwwebgrid.pas

TMS IntraWEb增强控件TMSIntraWeb_v2.3.2.1_D2007.rar

    FSpinEditMinValue: Integer;
    FSpinEditAutoSpin: Boolean;
    {$IFDEF TMSIW6}
    FCursor: TIWCursor;
    {$ENDIF}
    procedure SetTemplate(const Value: string);
    procedure SeTIWColor(const Value: TIWColor);
    procedure SetTitle(const Value: string);
    procedure SetColumnHeaderColor(const Value: TIWColor);
    procedure SetWidth(const Value: integer);
    procedure SetWidthType(const Value: TTIWWidthType);
    procedure SetAlignment(const Value: TAlignment);
    procedure SetColumnType(const Value: TTIWColumnType);
    procedure SetButtonText(const Value: string);
    procedure SetColumnHeaderClick(const Value: boolean);
    procedure SetColumnHeaderAlignment(const Value: TAlignment);
    procedure SetFont(const Value: TIWFont);
    procedure SetColumnHeaderFont(const Value: TIWFont);
    procedure SetComboItems(const Value: TStringList);
    procedure SetComboValues(const Value: TStringList);    
    procedure SetFooterText(const Value: string);
    procedure SetFooterType(const Value: TTIWFooterType);
    procedure SetFooterAlignment(const Value: TAlignment);
    property CalcValue: Double read FCalcValue write FCalcValue;
    procedure SetFooterFormat(const Value: string);
    procedure SetImageIndex(const Value: Integer);
    procedure SetFilterList(const Value: TStringList);
    procedure SetSubTitle(const Value: string);
    procedure SetSubTitleSpan(const Value: Integer);
    procedure SetTitleSpan(const Value: Integer);
    procedure SetVisible(const Value: Boolean);
    procedure SetTitleRowSpan(const Value: Boolean);
  protected
    function GetDisplayName: string; override;
  public
    constructor Create(AOwner: TCollection); override;
    destructor Destroy; override;
    procedure Changed;
    procedure Assign(Source: TPersistent); override;
    procedure AssignVisualProperties(Source: TPersistent); virtual;
  published
    property Alignment: TAlignment read FAlignment write SetAlignment;
    property AllowSizing: Boolean read FAllowSizing write FAllowSizing;
    property ButtonColor: TIWColor read FButtonColor write FButtonColor default clNone;
    property ButtonText: string read FButtonText write SetButtonText;
    property ButtonWidth: integer read FButtonWidth write FButtonWidth;
    property CheckTrue: string read FCheckTrue write FCheckTrue;
    property CheckFalse: string read FCheckFalse write FCheckFalse;
    property ClickConfirm: string read FClickConfirm write FClickConfirm;
    property Color: TIWColor read FColor write SeTIWColor;
    property ColumnHeaderAlignment: TAlignment read FColumnHeaderAlignment write
      SetColumnHeaderAlignment;
    property ColumnHeaderClick: boolean read FColumnHeaderClick write
      SetColumnHeaderClick;
    property ColumnHeaderColor: TIWColor read FColumnHeaderColor write
      SetColumnHeaderColor;
    property ColumnHeaderFont: TIWFont read FColumnHeaderFont write
      SetColumnHeaderFont;
    property ColumnHeaderGradient1: TIWColor read FColumnHeaderGradient1 write
      FColumnHeaderGradient1;
    property ColumnHeaderGradient2: TIWColor read FColumnHeaderGradient2 write
      FColumnHeaderGradient2;
    property ColumnHeaderGradientDirection: TTIWGradientDirection read
      FGradientDirection write FGradientDirection;
    property ColumnHeaderCheckBox: Boolean read FColumnHeaderCheckBox write
      FColumnHeaderCheckBox;
    property ColumnHeaderNode: Boolean read FColumnHeaderNode write
      FColumnHeaderNode;
    property ColumnType: TTIWColumnType read FColumnType write SetColumnType;
    property ComboItems: TStringList read FComboItems write SetComboItems;
    property ComboValues: TStringList read FComboValues write SetComboValues;
    {$IFDEF TMSIW6}
    property Cursor: TIWCursor read FCursor write FCursor default crAuto;
    {$ENDIF}
    property DataButtonType: TTIWDataButtonType read FDataButtonType write FDataButtonType;
    property DefaultDynEdit: string read FDefaultDynEdit write FDefaultDynEdit;
    property DefaultDynText: string read FDefaultDynText write FDefaultDynText;
    property DetailColor: TIWColor read FDetailColor write FDetailColor default clNone;
    property DetailTemplate: string read FDetailTemplate write FDetailTemplate;
    property DetailSpan: Integer read FDetailSpan write FDetailSpan;
    property DynPrecision: Integer read FDynPrecision write FDynPrecision;
    property DynEditor: TTIWDynEditType read FDynEditor write FDynEditor;
    property Hint: string read FHint write FHint;
    property ImageIndex: Integer read FImageIndex write SetImageIndex;
    property Editor: TTIWColumnEditor read FEditor write FEditor;
    property Filter: Boolean read FFilter write FFilter;
    property FilterIndex: Integer read FFilterIndex write FFilterIndex;
    property FilterList: TStringList read FFilterList write SetFilterList;
    property Font: TIWFont read FFont write SetFont;
    property FooterAlignment: TAlignment read FFooterAlignment write SetFooterAlignment;
    property FooterFormat: string read FFooterFormat write SetFooterFormat;
    property FooterGradient1: TIWColor read FFooterGradient1 write FFooterGradient1;
    property FooterGradient2: TIWColor read FFooterGradient2 write FFooterGradient2;
    property FooterText: string read FFooterText write SetFooterText;
    property FooterType: TTIWFooterType read FFooterType write SetFooterType;
    property Formula: string read FFormula write FFormula;
    property MaxLength: Integer read FMaxLength write FMaxLength;
    property Name: string read FName write FName;
    property PopupColor: TIWColor read FPopupColor write FPopupColor;
    property PopupColorTo: TIWColor read FPopupColorTo write FPopupColorTo;       
    property PopupColorGradientDirection: TTIWGradientDirection read FPopupColorGradientDirection write FPopupColorGradientDirection;
    property ImageHeight: Integer read FImageHeight write FImageHeight;
    property ImageWidth: Integer read FImageWidth write FImageWidth;
    property PopupHeight: Integer read FPopupHeight write FPopupHeight;
    property PopupWidth: Integer read FPopupWidth write FPopupWidth;
    property ProgressColor: TIWColor read FProgressColor write FProgressColor;
    property RequiredMsg: string read FRequiredMsg write FRequiredMsg;
    property ShowHint: Boolean read FShowHint write FShowHint;
    property SpinEditMaxValue: Integer read FSpinEditMaxValue write FSpinEditMaxValue default 0;
    property SpinEditMinValue: Integer read FSpinEditMinValue write FSpinEditMinValue default 100;
    property SpinEditAutoSpin: Boolean read FSpinEditAutoSpin write FSpinEditAutoSpin default True;     
    property SubTitle: string read FSubTitle write SetSubTitle;
    property SubTitleSpan: Integer read FSubTitleSpan write SetSubTitleSpan;
    property SubTitleVAlign: TTIWVAlign read FSubTitleVAlign write FSubTitleVAlign;
    property Template: string read FTemplate write SetTemplate;
    property Tag: Integer read FTag write FTag;
    property Title: string read FTitle write SetTitle;
    property TitleRowSpan: Boolean read FTitleRowSpan write SetTitleRowSpan;
    property TitleSpan: Integer read FTitleSpan write SetTitleSpan;
    property TitleVAlign: TTIWValign read FTitleVAlign write FTitleVAlign;
    property VAlign: TTIWVAlign read FVAlign write FVAlign;
    property Visible: Boolean read FVisible write SetVisible;
    property Width: integer read FWidth write SetWidth;
    property WidthType: TTIWWidthType read FWidthType write SetWidthType;
  end;

  TTIWWebGridColumns = class(TCollection)
  private
    FOwner: TTIWCustomWebGrid;
    function GetItem(Index: Integer): TTIWWebGridColumn;
    procedure SetItem(Index: Integer; const Value: TTIWWebGridColumn);
  public
    function GetItemClass: TCollectionItemClass; virtual;
    function Add: TTIWWebGridColumn;
    procedure Update(Item: TCollectionItem); override;
    function Insert(index: Integer): TTIWWebGridColumn;
    property Items[Index: Integer]: TTIWWebGridColumn read GetItem write
    SetItem; default;
    constructor Create(AOwner: TTIWCustomWebGrid);
    function GetOwner: TPersistent; override;
    property Grid: TTIWCustomWebGrid read FOwner;
  end;

  TControllerPosition = (cpTop, cpBottom, cpNone, cpBoth);

  TControllerPager = (cpPrevNext, cpPageList, cpAlphaList, cpPrevNextFirstLast, cpDropDownList);

  TControllerPagerType = (cptLink, cptButton, cptImage, cptImageButton);

  TControllerIndicatorType = (itNone, itRecordNr, itPageNr, itRecordFromTo);

  TTIWAdvWebGridController = class(TPersistent)
  private
    FPosition: TControllerPosition;
    FControllerPager: TControllerPager;
    FTextNext: string;
    FTextPrev: string;
    FAlignment: TAlignment;
    FControllerBorders: TTIWRGBorders;
    FFont: TIWFont;
    FHeight: Integer;
    FColor: TIWColor;
    FTextLast: string;
    FTextFirst: string;
    FIndicatorFormat: string;
    FIndicatorType: TControllerIndicatorType;
    FGradient1: TIWColor;
    FGradient2: TIWColor;
    FPageType: TControllerPagerType;
    FCaption: string;
    FImgPrev: TIPicture;
    FImgNext: TIPicture;
    FImgLast: TIPicture;
    FImgFirst: TIPicture;
    FGradientDirection: TTIWGradientDirection;
    FMaxPages: Integer;
    FHintFirst: string;
    FHintPrev: string;
    FHintNext: string;
    FHintLast: string;
    FShowPagersAlways: Boolean;
    FOnChange: TNotifyEvent;
    FRowCountSelect: Boolean;
    FRowCountValues: TStringList;
    FShowFind: Boolean;
    FHintFind: string;
    procedure SetPosition(const Value: TControllerPosition);
    procedure SetControllerPager(const Value: TControllerPager);
    procedure SetTextNext(const Value: string);
    procedure SetTextPrev(const Value: string);
    procedure SetAlignment(const Value: TAlignment);
    procedure SetFont(const Value: TIWFont);
    procedure SeTIWColor(const Value: TIWColor);
    procedure SetHeight(const Value: Integer);
    procedure SetTextFirst(const Value: string);
    procedure SetTextLast(const Value: string);
    procedure SetIndicatorFormat(const Value: string);
    procedure SetIndicatorType(const Value: TControllerIndicatorType);
    procedure SetPagerType(const Value: TControllerPagerType);
    procedure SetCaption(const Value: string);
    procedure SetImgFirst(const Value: TIPicture);
    procedure SetImgLast(const Value: TIPicture);
    procedure SetImgNext(const Value: TIPicture);
    procedure SetImgPrev(const Value: TIPicture);
    procedure SetRowCountValues(const Value: TStringList);
  protected
  public
    constructor Create;
    destructor Destroy; override;
    procedure Changed;
  published
    property Alignment: TAlignment read FAlignment write SetAlignment;
    property Borders: TTIWRGBorders read FControllerBorders write FControllerBorders;
    property Caption: string read FCaption write SetCaption;
    property Color: TIWColor read FColor write SeTIWColor;
    property Font: TIWFont read FFont write SetFont;
    property Gradient1: TIWColor read FGradient1 write FGradient1;
    property Gradient2: TIWColor read FGradient2 write FGradient2;
    property GradientDirection: TTIWGradientDirection read FGradientDirection
      write FGradientDirection;
    property Height: Integer read FHeight write SetHeight;
    property MaxPages: Integer read FMaxPages write FMaxPages;
    property Position: TControllerPosition read FPosition write SetPosition;
    property Pager: TControllerPager read FControllerPager write
      SetControllerPager;
    property PagerType: TControllerPagerType read FPageType write SetPagerType;

    property IndicatorFormat: string read FIndicatorFormat write
      SetIndicatorFormat;
    property IndicatorType: TControllerIndicatorType read FIndicatorType write
      SetIndicatorType;

    property TextPrev: string read FTextPrev write SetTextPrev;
    property TextNext: string read FTextNext write SetTextNext;
    property TextFirst: string read FTextFirst write SetTextFirst;
    property TextLast: string read FTextLast write SetTextLast;

    property ImgPrev: TIPicture read FImgPrev write SetImgPrev;
    property ImgNext: TIPicture read FImgNext write SetImgNext;
    property ImgFirst: TIPicture read FImgFirst write SetImgFirst;
    property ImgLast: TIPicture read FImgLast write SetImgLast;

    property HintPrev: string read FHintPrev write FHintPrev;
    property HintNext: string read FHintNext write FHintNext;
    property HintFirst: string read FHintFirst write FHintFirst;
    property HintLast: string read FHintLast write FHintLast;

    property RowCountSelect: Boolean read FRowCountSelect write FRowCountSelect;
    property RowCountValues: TStringList read FRowCountValues write SetRowCountValues;

    property ShowFind: Boolean read FShowFind write FShowFind default False;
    property HintFind: string read FHintFind write FHintFind;

    property ShowPagersAlways: Boolean read FShowPagersAlways write FShowPagersAlways;

    property OnChange: TNotifyEvent read FOnChange write FOnChange;
  end;

  TTIWAdvWebGridBands = class(TPersistent)
  private
    FOwner: TTIWCustomWebGrid;
    FActive: Boolean;
    FPrimaryColor: TIWColor;
    FSecondaryColor: TIWColor;
    procedure SetActive(const Value: Boolean);
    procedure SetPrimaryColor(const Value: TIWColor);
    procedure SetSecondaryColor(const Value: TIWColor);
  protected
  public
    constructor Create(AOwner: TTIWCustomWebGrid);
  published
    property Active: Boolean read FActive write SetActive;
    property PrimaryColor: TIWColor read FPrimaryColor write SetPrimaryColor;
    property SecondaryColor: TIWColor read FSecondaryColor write
      SetSecondaryColor;
  end;


  TTIWRGIndicators = class(TPersistent)
  private
    FOwner: TTIWCustomWebGrid;
    FInsert: TBitmap;
    FEdit: TBitmap;
    FBrowse: TBitmap;
    procedure SetBrowse(const Value: TBitmap);
    procedure SetEdit(const Value: TBitmap);
    procedure SetInsert(const Value: TBitmap);
  public
    constructor Create(AOwner: TTIWCustomWebGrid);
    destructor Destroy; override;
  published
    property Browse: TBitmap read FBrowse write SetBrowse;
    property Insert: TBitmap read FInsert write SetInsert;
    property Edit: TBitmap read FEdit write SetEdit;
  end;

  TSortDirection = (sdAscending, sdDescending);

  TTIWRGSortSettings = class(TPersistent)
  private
    FOwner: TTIWCustomWebGrid;
    FShow: Boolean;
    FColumn: Integer;
    FAscending: TBitmap;
    FDescending: TBitmap;
    FDirection: TSortDirection;
    FInitSortDir: TSortDirection;
    procedure SetAscending(const Value: TBitmap);
    procedure SetColumn(const Value: Integer);
    procedure SetDescending(const Value: TBitmap);
    procedure SetDirection(const Value: TSortDirection);
    procedure SetShow(const Value: Boolean);
  public
    constructor Create(AOwner: TTIWCustomWebGrid);
    destructor Destroy; override;
  published
    property Show: Boolean read FShow write SetShow;
    property Column: Integer read FColumn write SetColumn;
    property Direction: TSortDirection read FDirection write SetDirection;
    property Ascending: TBitmap read FAscending write SetAscending;
    property Descending: TBitmap read FDescending write SetDescending;
    property InitSortDir: TSortDirection read FInitSortDir write FInitSortDir;
  end;

  TTIWRGGlyphs = class(TPersistent)
  private
    FOwner: TTIWCustomWebGrid;
    FCancelButton: TBitmap;
    FPostButton: TBitmap;
    FEditButton: TBitmap;