david
8a45a23220
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@7 05c56307-c608-d34a-929d-697000501d7a
43 lines
1.0 KiB
ObjectPascal
43 lines
1.0 KiB
ObjectPascal
unit Office11GroupRowStyleDemoData;
|
|
|
|
interface
|
|
|
|
uses
|
|
Forms, SysUtils, Classes, DB, cxStyles, ImgList,
|
|
Controls, cxEdit, cxEditRepositoryItems, cxDBEditRepository, cxClasses,
|
|
cxGridCardView, DBTables, DemoUtils;
|
|
|
|
type
|
|
TOffice11GroupRowStyleDemoDataDM = class(TDataModule)
|
|
DataBase: TDataBase;
|
|
tblPersons: TTable;
|
|
dsPersons: TDataSource;
|
|
tblPersonsFullName: TStringField;
|
|
StyleRepository: TcxStyleRepository;
|
|
UnreadStyle: TcxStyle;
|
|
tblPersonsFNAME: TStringField;
|
|
tblPersonsLNAME: TStringField;
|
|
procedure tblPersonsCalcFields(DataSet: TDataSet);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
Office11GroupRowStyleDemoDataDM: TOffice11GroupRowStyleDemoDataDM;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TOffice11GroupRowStyleDemoDataDM.tblPersonsCalcFields(
|
|
DataSet: TDataSet);
|
|
begin
|
|
SetStringFieldValue(tblPersonsFullName, Format('%s %s',[tblPersonsFNAME.Value,
|
|
tblPersonsLNAME.Value]));
|
|
end;
|
|
|
|
end.
|
|
|