Archivado/Componentes.Terceros.DevExpressVCL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
master
Componentes.Terceros.DevExp.../internal/x.36/1/ExpressVerticalGrid/Demos/Delphi/StylesMultiDemo/StylesMultiDemoData.pas
david 5678df5538 Versión x.36 oficial sin skins. 
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@31 05c56307-c608-d34a-929d-697000501d7a
2008-09-04 11:31:51 +00:00

379 lines
12 KiB
ObjectPascal
Raw Permalink Blame History

unit StylesMultiDemoData;
interface
uses
SysUtils, cxClasses, cxStyles, DB, Classes, cxVGrid, DBTables, Forms;
type
TStylesMultiDemoDataDM = class(TDataModule)
DataBase: TDataBase;
strepPredefined: TcxStyleRepository;
strepUserDefined: TcxStyleRepository;
queOrders: TQuery;
queOrdersPurchaseDate: TDateTimeField;
queOrdersTime: TDateTimeField;
queOrdersPaymentType: TStringField;
queOrdersPaymentAmount: TFloatField;
queOrdersQuantity: TIntegerField;
queOrdersFirstName: TStringField;
queOrdersLastName: TStringField;
queOrdersCompany: TStringField;
queOrdersPrefix: TStringField;
queOrdersTitle: TStringField;
queOrdersAddress: TStringField;
queOrdersCity: TStringField;
queOrdersState: TStringField;
queOrdersZipCode: TStringField;
queOrdersSource: TStringField;
queOrdersCustomer: TStringField;
queOrdersHomePhone: TStringField;
queOrdersFaxPhone: TStringField;
queOrdersSpouse: TStringField;
queOrdersOccupation: TStringField;
queOrdersEmail: TStringField;
queOrdersTrademark: TStringField;
queOrdersModel: TStringField;
queOrdersHP: TSmallintField;
queOrdersLiter: TFloatField;
queOrdersCyl: TSmallintField;
queOrdersTransmissSpeedCount: TSmallintField;
queOrdersTransmissAutomatic: TStringField;
queOrdersMPG_City: TSmallintField;
queOrdersMPG_Highway: TSmallintField;
queOrdersCategory: TStringField;
queOrdersCars_Description: TMemoField;
queOrdersHyperlink: TStringField;
queOrdersPicture: TBlobField;
queOrdersPrice: TFloatField;
dsOrders: TDataSource;
cxVerticalGridStyleSheetDevExpress: TcxVerticalGridStyleSheet;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
cxStyle3: TcxStyle;
cxStyle4: TcxStyle;
cxStyle5: TcxStyle;
cxStyle6: TcxStyle;
cxStyle7: TcxStyle;
cxVerticalGridStyleSheetUserFormat1: TcxVerticalGridStyleSheet;
cxStyle8: TcxStyle;
cxStyle9: TcxStyle;
cxStyle10: TcxStyle;
cxStyle11: TcxStyle;
cxStyle12: TcxStyle;
cxStyle13: TcxStyle;
cxVerticalGridStyleSheetUserFormat2: TcxVerticalGridStyleSheet;
cxStyle14: TcxStyle;
cxStyle15: TcxStyle;
cxStyle16: TcxStyle;
cxStyle17: TcxStyle;
cxStyle18: TcxStyle;
cxStyle19: TcxStyle;
cxVerticalGridStyleSheetUserFormat3: TcxVerticalGridStyleSheet;
cxStyle20: TcxStyle;
cxStyle21: TcxStyle;
cxStyle22: TcxStyle;
cxStyle23: TcxStyle;
cxStyle24: TcxStyle;
cxStyle25: TcxStyle;
cxVerticalGridStyleSheetUserFormat4: TcxVerticalGridStyleSheet;
cxStyle26: TcxStyle;
cxStyle27: TcxStyle;
cxStyle28: TcxStyle;
cxStyle29: TcxStyle;
cxStyle30: TcxStyle;
cxStyle31: TcxStyle;
cxStyle32: TcxStyle;
cxVerticalGridStyleSheetBrick: TcxVerticalGridStyleSheet;
cxStyle33: TcxStyle;
cxStyle34: TcxStyle;
cxStyle35: TcxStyle;
cxStyle36: TcxStyle;
cxStyle37: TcxStyle;
cxStyle38: TcxStyle;
cxVerticalGridStyleDesert: TcxVerticalGridStyleSheet;
cxStyle39: TcxStyle;
cxStyle40: TcxStyle;
cxStyle41: TcxStyle;
cxStyle42: TcxStyle;
cxStyle43: TcxStyle;
cxStyle44: TcxStyle;
cxVerticalGridStyleSheetEggplant: TcxVerticalGridStyleSheet;
cxStyle45: TcxStyle;
cxStyle46: TcxStyle;
cxStyle47: TcxStyle;
cxStyle48: TcxStyle;
cxStyle49: TcxStyle;
cxStyle50: TcxStyle;
cxVerticalGridStyleSheetLilac: TcxVerticalGridStyleSheet;
cxStyle51: TcxStyle;
cxStyle52: TcxStyle;
cxStyle53: TcxStyle;
cxStyle54: TcxStyle;
cxStyle55: TcxStyle;
cxStyle56: TcxStyle;
cxVerticalGridStyleSheetMaple: TcxVerticalGridStyleSheet;
cxStyle57: TcxStyle;
cxStyle58: TcxStyle;
cxStyle59: TcxStyle;
cxStyle60: TcxStyle;
cxStyle61: TcxStyle;
cxStyle62: TcxStyle;
cxVerticalGridStyleSheetMarineHighColor: TcxVerticalGridStyleSheet;
cxStyle63: TcxStyle;
cxStyle64: TcxStyle;
cxStyle65: TcxStyle;
cxStyle66: TcxStyle;
cxStyle67: TcxStyle;
cxStyle68: TcxStyle;
cxVerticalGridStyleSheetPlumHighColor: TcxVerticalGridStyleSheet;
cxStyle69: TcxStyle;
cxStyle70: TcxStyle;
cxStyle71: TcxStyle;
cxStyle72: TcxStyle;
cxStyle73: TcxStyle;
cxStyle74: TcxStyle;
cxVerticalGridStyleSheetPumpkinLarge: TcxVerticalGridStyleSheet;
cxStyle75: TcxStyle;
cxStyle76: TcxStyle;
cxStyle77: TcxStyle;
cxStyle78: TcxStyle;
cxStyle79: TcxStyle;
cxStyle80: TcxStyle;
cxVerticalGridStyleSheetRainyDay: TcxVerticalGridStyleSheet;
cxStyle81: TcxStyle;
cxStyle82: TcxStyle;
cxStyle83: TcxStyle;
cxStyle84: TcxStyle;
cxStyle85: TcxStyle;
cxStyle86: TcxStyle;
cxVerticalGridStyleSheetRedWhiteAndBlueVGA: TcxVerticalGridStyleSheet;
cxStyle87: TcxStyle;
cxStyle88: TcxStyle;
cxStyle89: TcxStyle;
cxStyle90: TcxStyle;
cxStyle91: TcxStyle;
cxStyle92: TcxStyle;
cxVerticalGridStyleSheetRose: TcxVerticalGridStyleSheet;
cxStyle93: TcxStyle;
cxStyle94: TcxStyle;
cxStyle95: TcxStyle;
cxStyle96: TcxStyle;
cxStyle97: TcxStyle;
cxStyle98: TcxStyle;
cxVerticalGridStyleSheetRoseLarge: TcxVerticalGridStyleSheet;
cxStyle99: TcxStyle;
cxStyle100: TcxStyle;
cxStyle101: TcxStyle;
cxStyle102: TcxStyle;
cxStyle103: TcxStyle;
cxStyle104: TcxStyle;
cxVerticalGridStyleSheetSlate: TcxVerticalGridStyleSheet;
cxStyle105: TcxStyle;
cxStyle106: TcxStyle;
cxStyle107: TcxStyle;
cxStyle108: TcxStyle;
cxStyle109: TcxStyle;
cxStyle110: TcxStyle;
cxVerticalGridStyleSheetSpruce: TcxVerticalGridStyleSheet;
cxStyle111: TcxStyle;
cxStyle112: TcxStyle;
cxStyle113: TcxStyle;
cxStyle114: TcxStyle;
cxStyle115: TcxStyle;
cxStyle116: TcxStyle;
cxVerticalGridStyleSheetStormVGA: TcxVerticalGridStyleSheet;
cxStyle117: TcxStyle;
cxStyle118: TcxStyle;
cxStyle119: TcxStyle;
cxStyle120: TcxStyle;
cxStyle121: TcxStyle;
cxStyle122: TcxStyle;
cxVerticalGridStyleSheetTealVGA: TcxVerticalGridStyleSheet;
cxStyle123: TcxStyle;
cxStyle124: TcxStyle;
cxStyle125: TcxStyle;
cxStyle126: TcxStyle;
cxStyle127: TcxStyle;
cxStyle128: TcxStyle;
cxVerticalGridStyleSheetWheat: TcxVerticalGridStyleSheet;
cxStyle129: TcxStyle;
cxStyle130: TcxStyle;
cxStyle131: TcxStyle;
cxStyle132: TcxStyle;
cxStyle133: TcxStyle;
cxStyle134: TcxStyle;
cxVerticalGridStyleSheetWindowsClassic: TcxVerticalGridStyleSheet;
cxStyle135: TcxStyle;
cxStyle136: TcxStyle;
cxStyle137: TcxStyle;
cxStyle138: TcxStyle;
cxStyle139: TcxStyle;
cxVerticalGridStyleSheetWindowsClassicLarge: TcxVerticalGridStyleSheet;
cxStyle140: TcxStyle;
cxStyle141: TcxStyle;
cxStyle142: TcxStyle;
cxStyle143: TcxStyle;
cxStyle144: TcxStyle;
cxVerticalGridStyleSheetWindowsStandard: TcxVerticalGridStyleSheet;
cxStyle145: TcxStyle;
cxStyle146: TcxStyle;
cxStyle147: TcxStyle;
cxStyle148: TcxStyle;
cxStyle149: TcxStyle;
cxVerticalGridStyleSheetWindowsStandardLarge: TcxVerticalGridStyleSheet;
cxStyle150: TcxStyle;
cxStyle151: TcxStyle;
cxStyle152: TcxStyle;
cxStyle153: TcxStyle;
cxStyle154: TcxStyle;
cxVerticalGridStyleSheetHighContrast1: TcxVerticalGridStyleSheet;
cxStyle155: TcxStyle;
cxStyle156: TcxStyle;
cxStyle157: TcxStyle;
cxStyle158: TcxStyle;
cxStyle159: TcxStyle;
cxStyle160: TcxStyle;
cxVerticalGridStyleSheetHighContrast1Large: TcxVerticalGridStyleSheet;
cxStyle161: TcxStyle;
cxStyle162: TcxStyle;
cxStyle163: TcxStyle;
cxStyle164: TcxStyle;
cxStyle165: TcxStyle;
cxStyle166: TcxStyle;
cxVerticalGridStyleSheetHighContrast2: TcxVerticalGridStyleSheet;
cxStyle167: TcxStyle;
cxStyle168: TcxStyle;
cxStyle169: TcxStyle;
cxStyle170: TcxStyle;
cxStyle171: TcxStyle;
cxVerticalGridStyleSheetHighContrast2Large: TcxVerticalGridStyleSheet;
cxStyle172: TcxStyle;
cxStyle173: TcxStyle;
cxStyle174: TcxStyle;
cxStyle175: TcxStyle;
cxStyle176: TcxStyle;
cxVerticalGridStyleSheetHighContrastBlack: TcxVerticalGridStyleSheet;
cxStyle177: TcxStyle;
cxStyle178: TcxStyle;
cxStyle179: TcxStyle;
cxStyle180: TcxStyle;
cxStyle181: TcxStyle;
cxStyle182: TcxStyle;
cxVerticalGridStyleSheetHighContrastBlackLarge: TcxVerticalGridStyleSheet;
cxStyle183: TcxStyle;
cxStyle184: TcxStyle;
cxStyle185: TcxStyle;
cxStyle186: TcxStyle;
cxStyle187: TcxStyle;
cxStyle188: TcxStyle;
cxVerticalGridStyleSheetHighContrastWhite: TcxVerticalGridStyleSheet;
cxStyle189: TcxStyle;
cxStyle190: TcxStyle;
cxStyle191: TcxStyle;
cxStyle192: TcxStyle;
cxStyle193: TcxStyle;
cxVerticalGridStyleSheetHighContrastWhiteLarge: TcxVerticalGridStyleSheet;
cxStyle194: TcxStyle;
cxStyle195: TcxStyle;
cxStyle196: TcxStyle;
cxStyle197: TcxStyle;
cxStyle198: TcxStyle;
cxStyle199: TcxStyle;
cxStyle200: TcxStyle;
cxStyle201: TcxStyle;
cxStyle202: TcxStyle;
cxStyle203: TcxStyle;
cxStyle204: TcxStyle;
cxStyle205: TcxStyle;
cxStyle206: TcxStyle;
cxStyle207: TcxStyle;
cxStyle208: TcxStyle;
cxStyle209: TcxStyle;
cxStyle210: TcxStyle;
cxStyle211: TcxStyle;
cxStyle212: TcxStyle;
cxStyle213: TcxStyle;
cxStyle214: TcxStyle;
cxStyle215: TcxStyle;
cxStyle216: TcxStyle;
cxStyle217: TcxStyle;
cxStyle218: TcxStyle;
cxStyle219: TcxStyle;
cxStyle220: TcxStyle;
cxStyle221: TcxStyle;
cxStyle222: TcxStyle;
cxStyle223: TcxStyle;
cxStyle224: TcxStyle;
cxStyle225: TcxStyle;
cxStyle226: TcxStyle;
Classic: TcxVerticalGridStyleSheet;
Alternative: TcxVerticalGridStyleSheet;
Bitmaps: TcxVerticalGridStyleSheet;
cxStyle227: TcxStyle;
cxStyle228: TcxStyle;
cxStyle229: TcxStyle;
cxStyle230: TcxStyle;
cxStyle231: TcxStyle;
cxStyle232: TcxStyle;
updOrders: TUpdateSQL;
updCustomers: TUpdateSQL;
updCars: TUpdateSQL;
procedure queOrdersUpdateRecord(DataSet: TDataSet;
UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
procedure queOrdersAfterPost(DataSet: TDataSet);
procedure queOrdersAfterCancel(DataSet: TDataSet);
procedure StylesMultiDemoDataDMCreate(Sender: TObject);
end;
var
StylesMultiDemoDataDM: TStylesMultiDemoDataDM;
procedure PopulateStyleSheetsList(const AList: TList);
implementation
{$R *.dfm}
procedure PopulateStyleSheetsList(const AList: TList);
var
I: Integer;
begin
if AList <> nil then
begin
AList.Clear;
with StylesMultiDemoDataDM.strepUserDefined do
for I:= 0 to StyleSheetCount - 1 do
AList.Add(StyleSheets[I]);
end;
end;
procedure TStylesMultiDemoDataDM.queOrdersUpdateRecord(DataSet: TDataSet;
UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
begin
updOrders.Apply(UpdateKind);
updCustomers.Apply(UpdateKind);
updCars.Apply(UpdateKind);
UpdateAction := uaApplied;
end;
procedure TStylesMultiDemoDataDM.queOrdersAfterPost(DataSet: TDataSet);
begin
queOrders.ApplyUpdates;
end;
procedure TStylesMultiDemoDataDM.queOrdersAfterCancel(DataSet: TDataSet);
begin
queOrders.CancelUpdates;
end;
procedure TStylesMultiDemoDataDM.StylesMultiDemoDataDMCreate(
Sender: TObject);
begin
updOrders.DataSet := queOrders;
updCustomers.DataSet := queOrders;
updCars.DataSet := queOrders;
end;
end.
Reference in New Issue View Git Blame Copy Permalink