101 lines
3.5 KiB
ObjectPascal
101 lines
3.5 KiB
ObjectPascal
|
unit RowsMultiEditorsDemoMain;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
||
|
|
Dialogs, DemoBasicMain, cxLookAndFeels, ActnList, ImgList, Menus,
|
||
|
|
StdCtrls, ComCtrls, cxStyles, cxGraphics, cxEdit, cxVGrid, cxControls,
|
||
|
|
cxInplaceContainer, cxEditRepositoryItems, cxClasses, cxDBVGrid, cxTimeEdit,
|
||
|
|
cxSpinEdit, cxCurrencyEdit, cxCheckBox, cxBlobEdit, cxImage, cxHyperLinkEdit;
|
||
|
|
type
|
||
|
|
TRowsMultiEditorsDemoMainForm = class(TDemoBasicMainForm)
|
||
|
|
EditRepository: TcxEditRepository;
|
||
|
|
cxStyleRepository1: TcxStyleRepository;
|
||
|
|
cxVerticalGridStyleSheetDevExpress: TcxVerticalGridStyleSheet;
|
||
|
|
cxStyle1: TcxStyle;
|
||
|
|
cxStyle2: TcxStyle;
|
||
|
|
cxStyle3: TcxStyle;
|
||
|
|
cxStyle4: TcxStyle;
|
||
|
|
cxStyle5: TcxStyle;
|
||
|
|
cxStyle6: TcxStyle;
|
||
|
|
cxStyle7: TcxStyle;
|
||
|
|
miSeparator1: TMenuItem;
|
||
|
|
Layout1: TMenuItem;
|
||
|
|
MultiRecord1: TMenuItem;
|
||
|
|
SingleRecord1: TMenuItem;
|
||
|
|
BandsView1: TMenuItem;
|
||
|
|
cxDBVerticalGrid: TcxDBVerticalGrid;
|
||
|
|
merPurchaseDateTime: TcxDBMultiEditorRow;
|
||
|
|
merPaymentDescr: TcxDBMultiEditorRow;
|
||
|
|
merCustomer: TcxDBMultiEditorRow;
|
||
|
|
merCustomerInfo: TcxDBMultiEditorRow;
|
||
|
|
erAddress: TcxDBEditorRow;
|
||
|
|
merWork: TcxDBMultiEditorRow;
|
||
|
|
merMailData: TcxDBMultiEditorRow;
|
||
|
|
merPhones: TcxDBMultiEditorRow;
|
||
|
|
erEmail: TcxDBEditorRow;
|
||
|
|
merCarName: TcxDBMultiEditorRow;
|
||
|
|
merCarEngine: TcxDBMultiEditorRow;
|
||
|
|
merTransmiss: TcxDBMultiEditorRow;
|
||
|
|
erCarDescr: TcxDBEditorRow;
|
||
|
|
erCarImage: TcxDBEditorRow;
|
||
|
|
erHyperlink: TcxDBEditorRow;
|
||
|
|
erPrice: TcxDBEditorRow;
|
||
|
|
erepCarPictEditing: TcxEditRepositoryBlobItem;
|
||
|
|
erepCarPictEdit: TcxEditRepositoryImageItem;
|
||
|
|
erepPaymentAmountEditing: TcxEditRepositoryCalcItem;
|
||
|
|
ctgOrder: TcxCategoryRow;
|
||
|
|
ctgCustomer: TcxCategoryRow;
|
||
|
|
ctgCar: TcxCategoryRow;
|
||
|
|
ImageList: TImageList;
|
||
|
|
procedure erCarImagePropertiesGetEditingProperties(
|
||
|
|
Sender: TcxCustomEditorRowProperties; ARecordIndex: Integer;
|
||
|
|
var AProperties: TcxCustomEditProperties);
|
||
|
|
procedure erCarImagePropertiesGetEditProperties(
|
||
|
|
Sender: TcxCustomEditorRowProperties; ARecordIndex: Integer;
|
||
|
|
var AProperties: TcxCustomEditProperties);
|
||
|
|
procedure merPaymentDescrEditors2GetEditingProperties(
|
||
|
|
Sender: TcxCustomEditorRowProperties; ARecordIndex: Integer;
|
||
|
|
var AProperties: TcxCustomEditProperties);
|
||
|
|
procedure miLayoutStyleClick(Sender: TObject);
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
RowsMultiEditorsDemoMainForm: TRowsMultiEditorsDemoMainForm;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses RowsMultiEditorsDemoData;
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
procedure TRowsMultiEditorsDemoMainForm.erCarImagePropertiesGetEditingProperties(
|
||
|
|
Sender: TcxCustomEditorRowProperties; ARecordIndex: Integer;
|
||
|
|
var AProperties: TcxCustomEditProperties);
|
||
|
|
begin
|
||
|
|
AProperties := erepCarPictEditing.Properties;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TRowsMultiEditorsDemoMainForm.erCarImagePropertiesGetEditProperties(
|
||
|
|
Sender: TcxCustomEditorRowProperties; ARecordIndex: Integer;
|
||
|
|
var AProperties: TcxCustomEditProperties);
|
||
|
|
begin
|
||
|
|
AProperties := erepCarPictEdit.Properties;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TRowsMultiEditorsDemoMainForm.merPaymentDescrEditors2GetEditingProperties(
|
||
|
|
Sender: TcxCustomEditorRowProperties; ARecordIndex: Integer;
|
||
|
|
var AProperties: TcxCustomEditProperties);
|
||
|
|
begin
|
||
|
|
AProperties := erepPaymentAmountEditing.Properties;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TRowsMultiEditorsDemoMainForm.miLayoutStyleClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
TMenuItem(Sender).Checked := True;
|
||
|
|
cxDBVerticalGrid.LayoutStyle := TcxvgLayoutStyle(TMenuItem(Sender).Tag);
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|