Skip to content

Commit 6f0837d

Browse files
committed
delphi: Remove the Data Grid table
In this example, data structure is not in the focus of demonstration. Data Grid table draws attention from the localization examples.
1 parent d08c196 commit 6f0837d

2 files changed

Lines changed: 2 additions & 100 deletions

File tree

Delphi/uMainForm.dfm

Lines changed: 2 additions & 80 deletions
Original file line numberDiff line numberDiff line change
@@ -4,8 +4,8 @@ object MainForm: TMainForm
44
BorderIcons = [biSystemMenu, biMinimize, biHelp]
55
BorderStyle = bsSingle
66
Caption = 'DevExpress Reports Localization Example'
7-
ClientHeight = 399
8-
ClientWidth = 558
7+
ClientHeight = 111
8+
ClientWidth = 411
99
Color = clBtnFace
1010
Font.Charset = DEFAULT_CHARSET
1111
Font.Color = clWindowText
@@ -14,84 +14,6 @@ object MainForm: TMainForm
1414
Font.Style = []
1515
OnCreate = FormCreate
1616
TextHeight = 15
17-
object cxGroupBox2: TcxGroupBox
18-
Left = 8
19-
Top = 110
20-
Caption = 'Example Data Source'
21-
TabOrder = 2
22-
Height = 277
23-
Width = 537
24-
object cxGrid1: TcxGrid
25-
Left = 16
26-
Top = 24
27-
Width = 505
28-
Height = 241
29-
TabOrder = 0
30-
DragOpening = False
31-
object gvCategories: TcxGridDBTableView
32-
DataController.DataSource = DataModule1.dsCategories
33-
DataController.KeyFieldNames = 'CategoryID'
34-
object gvCategoriesCategoryID: TcxGridDBColumn
35-
DataBinding.FieldName = 'CategoryID'
36-
end
37-
object gvCategoriesCategoryName: TcxGridDBColumn
38-
DataBinding.FieldName = 'CategoryName'
39-
end
40-
object gvCategoriesDescription: TcxGridDBColumn
41-
DataBinding.FieldName = 'Description'
42-
end
43-
end
44-
object gvProducts: TcxGridDBTableView
45-
DataController.DataSource = DataModule1.dsProducts
46-
DataController.DetailKeyFieldNames = 'CategoryID'
47-
DataController.KeyFieldNames = 'ProductID'
48-
DataController.MasterKeyFieldNames = 'CategoryID'
49-
object gvProductsProductID: TcxGridDBColumn
50-
DataBinding.FieldName = 'ProductID'
51-
end
52-
object gvProductsProductName: TcxGridDBColumn
53-
DataBinding.FieldName = 'ProductName'
54-
Width = 244
55-
end
56-
object gvProductsSupplierID: TcxGridDBColumn
57-
DataBinding.FieldName = 'SupplierID'
58-
end
59-
object gvProductsCategoryID: TcxGridDBColumn
60-
DataBinding.FieldName = 'CategoryID'
61-
end
62-
object gvProductsQuantityPerUnit: TcxGridDBColumn
63-
DataBinding.FieldName = 'QuantityPerUnit'
64-
Width = 124
65-
end
66-
object gvProductsUnitPrice: TcxGridDBColumn
67-
DataBinding.FieldName = 'UnitPrice'
68-
end
69-
object gvProductsUnitsInStock: TcxGridDBColumn
70-
DataBinding.FieldName = 'UnitsInStock'
71-
end
72-
object gvProductsUnitsOnOrder: TcxGridDBColumn
73-
DataBinding.FieldName = 'UnitsOnOrder'
74-
end
75-
object gvProductsReorderLevel: TcxGridDBColumn
76-
DataBinding.FieldName = 'ReorderLevel'
77-
end
78-
object gvProductsDiscontinued: TcxGridDBColumn
79-
DataBinding.FieldName = 'Discontinued'
80-
Width = 34
81-
end
82-
object gvProductsEAN13: TcxGridDBColumn
83-
DataBinding.FieldName = 'EAN13'
84-
Width = 76
85-
end
86-
end
87-
object cxGrid1Level1: TcxGridLevel
88-
GridView = gvCategories
89-
object cxGrid1Level2: TcxGridLevel
90-
GridView = gvProducts
91-
end
92-
end
93-
end
94-
end
9517
object cxGroupBox1: TcxGroupBox
9618
Left = 211
9719
Top = 17

Delphi/uMainForm.pas

Lines changed: 0 additions & 20 deletions
Original file line numberDiff line numberDiff line change
@@ -23,30 +23,10 @@ TMainForm = class(TForm)
2323
dxBackendDataConnectionManager1dxBackendDataSetJSONConnection1: TdxBackendDataSetJSONConnection;
2424
itmProducts: TdxBackendDataSetCollectionItem;
2525
itmCategories: TdxBackendDataSetCollectionItem;
26-
cxGrid1: TcxGrid;
27-
gvCategories: TcxGridDBTableView;
28-
gvCategoriesCategoryID: TcxGridDBColumn;
29-
gvCategoriesCategoryName: TcxGridDBColumn;
30-
gvCategoriesDescription: TcxGridDBColumn;
31-
gvProducts: TcxGridDBTableView;
32-
gvProductsProductID: TcxGridDBColumn;
33-
gvProductsProductName: TcxGridDBColumn;
34-
gvProductsSupplierID: TcxGridDBColumn;
35-
gvProductsCategoryID: TcxGridDBColumn;
36-
gvProductsQuantityPerUnit: TcxGridDBColumn;
37-
gvProductsUnitPrice: TcxGridDBColumn;
38-
gvProductsUnitsInStock: TcxGridDBColumn;
39-
gvProductsUnitsOnOrder: TcxGridDBColumn;
40-
gvProductsReorderLevel: TcxGridDBColumn;
41-
gvProductsDiscontinued: TcxGridDBColumn;
42-
gvProductsEAN13: TcxGridDBColumn;
43-
cxGrid1Level1: TcxGridLevel;
44-
cxGrid1Level2: TcxGridLevel;
4526
cxRadioGroup1: TcxRadioGroup;
4627
cxRadioButton1: TcxRadioButton;
4728
cxRadioButton2: TcxRadioButton;
4829
cxGroupBox1: TcxGroupBox;
49-
cxGroupBox2: TcxGroupBox;
5030
procedure FormCreate(Sender: TObject);
5131
procedure btnShowDesignerClick(Sender: TObject);
5232
procedure btnViewReportClick(Sender: TObject);

0 commit comments

Comments
 (0)