unboundcolumnsdemomain.pas

来自「胜天进销存源码,国产优秀的进销存」· PAS 代码 · 共 114 行

unit UnboundColumnsDemoMain;

interface

uses
  Windows, Forms, Messages, SysUtils, Classes, ActnList, ImgList, Controls, Menus,
  StdCtrls, cxButtons, cxCheckBox, cxContainer, cxEdit, cxTextEdit,
  cxMaskEdit, cxSpinEdit, ExtCtrls, cxGridLevel, cxGridCustomTableView,
  cxGridCardView, cxGridDBCardView, cxClasses, cxControls,
  cxGridCustomView, cxGrid, ComCtrls, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, DB, cxDBData, cxDataStorage, cxLookAndFeelPainters,
  cxLookAndFeels, cxHyperLinkEdit, cxImageComboBox, cxDBLookupComboBox,
  cxMemo, cxCalendar, cxBlobEdit, cxGridTableView, cxGridBandedTableView,
  cxGridDBBandedTableView;

type
  TUnboundColumnsDemoMainForm = class(TForm)
    mmMain: TMainMenu;
    miAbout: TMenuItem;
    miFile: TMenuItem;
    miExit: TMenuItem;
    sbMain: TStatusBar;
    lbDescrip: TLabel;
    LookAndFeelController: TcxLookAndFeelController;
    cxStyleRepository1: TcxStyleRepository;
    styChecked: TcxStyle;
    Grid: TcxGrid;
    BandedTableView: TcxGridDBBandedTableView;
    BandedTableViewFIRSTNAME: TcxGridDBBandedColumn;
    BandedTableViewLASTNAME: TcxGridDBBandedColumn;
    BandedTableViewCOMPANYNAME: TcxGridDBBandedColumn;
    BandedTableViewPURCHASEDATE: TcxGridDBBandedColumn;
    BandedTableViewPAYMENTAMOUNT: TcxGridDBBandedColumn;
    BandedTableViewCOPIES: TcxGridDBBandedColumn;
    BandedTableViewSelected: TcxGridDBBandedColumn;
    BandedTableViewSupportRequests: TcxGridDBBandedColumn;
    BandedTableViewLastSupportRequest: TcxGridDBBandedColumn;
    BandedTableViewComments: TcxGridDBBandedColumn;
    Level: TcxGridLevel;
    cxStyle1: TcxStyle;
    procedure miAboutClick(Sender: TObject);
    procedure miExitClick(Sender: TObject);
    procedure BandedTableViewStylesGetContentStyle(
      Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
      AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
  public
    constructor Create(AOwner: TComponent); override;
  private
    procedure GenerateUnboundData;
  end;

var
  UnboundColumnsDemoMainForm: TUnboundColumnsDemoMainForm;

implementation

{$R *.dfm}

uses
  UnboundColumnsDemoData, Dialogs, AboutDemoForm;

constructor TUnboundColumnsDemoMainForm.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  GenerateUnboundData;
end;

procedure TUnboundColumnsDemoMainForm.miAboutClick(Sender: TObject);
begin
  ShowAboutDemoForm;
end;

procedure TUnboundColumnsDemoMainForm.miExitClick(Sender: TObject);
begin
  Close;
end;

procedure TUnboundColumnsDemoMainForm.GenerateUnboundData;

  procedure SetRecordValue(ARecordIndex, AItemIndex: Integer; AValue: Variant);
  begin
    BandedTableView.DataController.SetValue(ARecordIndex, AItemIndex, AValue);
  end;

var
  I: Integer;
begin
  Randomize;
  BandedTableView.BeginUpdate;
  try
    for I := 0 to BandedTableView.DataController.RecordCount - 1 do
    begin
      SetRecordValue(I, BandedTableViewSelected.Index, Random(100) mod 2 = 1);
      SetRecordValue(I, BandedTableViewSupportRequests.Index, 1 + Random(20));
      SetRecordValue(I, BandedTableViewLastSupportRequest.Index,
        EncodeDate(2000 + Random(4), 1 + Random(11), 1 + Random(27)));
      SetRecordValue(I, BandedTableViewComments.Index, 'Put your comments here...');
    end;
  finally
    BandedTableView.EndUpdate;
  end;
end;

procedure TUnboundColumnsDemoMainForm.BandedTableViewStylesGetContentStyle(
  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
begin
  if (ARecord is TcxGridDataRow) and not ARecord.Selected and
    (ARecord.Values[BandedTableViewSelected.Index] = True) then
    AStyle := styChecked;
end;

end.