david
08e42642b8
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@21 05c56307-c608-d34a-929d-697000501d7a
114 lines
3.7 KiB
ObjectPascal
114 lines
3.7 KiB
ObjectPascal
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.
|