Skip to content

Commit 4239a4f

Browse files
committed
delphi: Display the State grid column
- Add the State column to display the dashboard UI state BLOB. - Rename and reorder columns. - Remove the unused TdxReport component. - Remove the TdxSkinController component. DevExpress skin settings are now available directly in the project menu.
1 parent 390d85a commit 4239a4f

File tree

4 files changed

+16
-20
lines changed

4 files changed

+16
-20
lines changed

Delphi/uData.dfm

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -174,12 +174,6 @@ object DataModule1: TDataModule1
174174
end
175175
end
176176
end
177-
object dxSkinController1: TdxSkinController
178-
NativeStyle = False
179-
SkinName = 'WXI'
180-
Left = 288
181-
Top = 84
182-
end
183177
object mdRevenueByIndustry: TdxMemData
184178
Active = True
185179
Indexes = <>

Delphi/uData.pas

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -15,7 +15,6 @@ TDataModule1 = class(TDataModule)
1515
mdLayoutsLayout: TBlobField;
1616
mdLayoutsName: TWideStringField;
1717
dxBackendDataConnectionManager1: TdxBackendDataConnectionManager;
18-
dxSkinController1: TdxSkinController;
1918
mdRevenueByIndustry: TdxMemData;
2019
mdRevenueByIndustryCity: TStringField;
2120
mdRevenueByIndustryIndustry: TStringField;

Delphi/uMainForm.dfm

Lines changed: 15 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -20,6 +20,8 @@ object MainForm: TMainForm
2020
Align = alClient
2121
TabOrder = 0
2222
AutoSize = True
23+
ExplicitWidth = 837
24+
ExplicitHeight = 519
2325
object btnDesign: TcxButton
2426
Left = 287
2527
Top = 12
@@ -63,16 +65,23 @@ object MainForm: TMainForm
6365
DataBinding.FieldName = 'RecId'
6466
Visible = False
6567
end
66-
object gvLayoutsLayout: TcxGridDBColumn
67-
Caption = 'Report Layout'
68-
DataBinding.FieldName = 'Layout'
69-
Options.Editing = False
70-
end
7168
object gvLayoutsName: TcxGridDBColumn
72-
Caption = 'Report Name'
69+
Caption = 'Dashboard Name'
7370
DataBinding.FieldName = 'Name'
7471
PropertiesClassName = 'TcxTextEditProperties'
7572
Properties.OnValidate = gvLayoutsNamePropertiesValidate
73+
Width = 246
74+
end
75+
object gvLayoutsLayout: TcxGridDBColumn
76+
Caption = 'Dashboard Layout'
77+
DataBinding.FieldName = 'Layout'
78+
Options.Editing = False
79+
Width = 275
80+
end
81+
object gvLayoutsColumn1: TcxGridDBColumn
82+
Caption = 'Dashboard State'
83+
DataBinding.FieldName = 'State'
84+
Width = 269
7685
end
7786
end
7887
object cxGrid2Level1: TcxGridLevel
@@ -84,7 +93,6 @@ object MainForm: TMainForm
8493
Top = 184
8594
Width = 819
8695
Height = 340
87-
Parameters = <>
8896
TabOrder = 4
8997
OnLayoutChanged = dxDashboardControl1LayoutChanged
9098
OnStateChanged = dxDashboardControl1StateChanged
@@ -177,9 +185,4 @@ object MainForm: TMainForm
177185
Index = 2
178186
end
179187
end
180-
object dxReport1: TdxReport
181-
Parameters = <>
182-
Left = 48
183-
Top = 88
184-
end
185188
end

Delphi/uMainForm.pas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,6 @@ interface
1616

1717
type
1818
TMainForm = class(TForm)
19-
dxReport1: TdxReport;
2019
btnNewDashboard: TcxButton;
2120
btnDesign: TcxButton;
2221
btnDelete: TcxButton;
@@ -35,6 +34,7 @@ TMainForm = class(TForm)
3534
liBtnDelete: TdxLayoutItem;
3635
liGrid: TdxLayoutItem;
3736
liDashboardControl: TdxLayoutItem;
37+
gvLayoutsColumn1: TcxGridDBColumn;
3838
procedure btnNewDashboardClick(Sender: TObject);
3939
procedure btnDesignClick(Sender: TObject);
4040
procedure btnDeleteClick(Sender: TObject);

0 commit comments

Comments
 (0)