vcl-dashboards-store-layout-template-database/Delphi/uMainForm.dfm at f15173d5fb41cf9e9724d4a91f536ca92f52918d · DevExpress-Examples/vcl-dashboards-store-layout-template-database · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
object MainForm: TMainForm
  Left = 0
  Top = 0
  Caption = 'DevExpress VCL: Store Dashboard Layout in a Database'
  ClientHeight = 536
  ClientWidth = 843
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  OnCreate = FormCreate
  TextHeight = 15
  object dxLayoutControl1: TdxLayoutControl
    Left = 0
    Top = 0
    Width = 843
    Height = 536
    Align = alClient
    TabOrder = 0
    AutoSize = True
    ExplicitWidth = 837
    ExplicitHeight = 519
    object btnDesign: TcxButton
      Left = 287
      Top = 12
      Width = 269
      Height = 25
      Caption = 'Design Dashboard'
      SpeedButtonOptions.CanBeFocused = False
      TabOrder = 1
      OnClick = btnDesignClick
    end
    object cxGrid2: TcxGrid
      Left = 12
      Top = 44
      Width = 819
      Height = 133
      TabOrder = 3
      object gvLayouts: TcxGridDBTableView
        Navigator.Buttons.First.Visible = False
        Navigator.Buttons.PriorPage.Visible = False
        Navigator.Buttons.NextPage.Visible = False
        Navigator.Buttons.Last.Visible = False
        Navigator.Buttons.Insert.Visible = False
        Navigator.Buttons.Edit.Visible = False
        Navigator.Buttons.Post.Visible = True
        Navigator.Buttons.Cancel.Visible = False
        Navigator.Buttons.Refresh.Visible = False
        Navigator.Buttons.SaveBookmark.Visible = False
        Navigator.Buttons.GotoBookmark.Visible = False
        Navigator.Buttons.Filter.Visible = False
        Navigator.Visible = True
        OnEditValueChanged = gvLayoutsEditValueChanged
        OnFocusedRecordChanged = gvLayoutsFocusedRecordChanged
        DataController.DataSource = DataModule1.dsLayouts
        OptionsData.CancelOnExit = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Inserting = False
        OptionsView.ColumnAutoWidth = True
        OptionsView.GroupByBox = False
        OptionsView.Indicator = True
        object gvLayoutsRecId: TcxGridDBColumn
          DataBinding.FieldName = 'RecId'
          Visible = False
        end
        object gvLayoutsName: TcxGridDBColumn
          Caption = 'Dashboard Name'
          DataBinding.FieldName = 'Name'
          PropertiesClassName = 'TcxTextEditProperties'
          Properties.OnValidate = gvLayoutsNamePropertiesValidate
          Width = 246
        end
        object gvLayoutsLayout: TcxGridDBColumn
          Caption = 'Dashboard Layout'
          DataBinding.FieldName = 'Layout'
          Options.Editing = False
          Width = 275
        end
        object gvLayoutsColumn1: TcxGridDBColumn
          Caption = 'Dashboard State'
          DataBinding.FieldName = 'State'
          Width = 269
        end
      end
      object cxGrid2Level1: TcxGridLevel
        GridView = gvLayouts
      end
    end
    object dxDashboardControl1: TdxDashboardControl
      Left = 12
      Top = 184
      Width = 819
      Height = 340
      TabOrder = 4
      OnLayoutChanged = dxDashboardControl1LayoutChanged
      OnStateChanged = dxDashboardControl1StateChanged
      DesignSize = (
        819
        340)
    end
    object btnNewDashboard: TcxButton
      Left = 12
      Top = 12
      Width = 268
      Height = 25
      Caption = 'New Dashboard'
      TabOrder = 0
      OnClick = btnNewDashboardClick
    end
    object btnDelete: TcxButton
      Left = 563
      Top = 12
      Width = 268
      Height = 25
      Caption = 'Delete Dashboard'
      TabOrder = 2
      OnClick = btnDeleteClick
    end
    object dxLayoutControl1Group_Root: TdxLayoutGroup
      AlignHorz = ahClient
      AlignVert = avClient
      Hidden = True
      ShowBorder = False
      Index = -1
    end
    object liBtnShowDesigner: TdxLayoutItem
      Parent = lgButtons
      AlignHorz = ahClient
      CaptionOptions.Text = 'btnShowDesigner'
      CaptionOptions.Visible = False
      Control = btnDesign
      ControlOptions.OriginalHeight = 25
      ControlOptions.OriginalWidth = 75
      ControlOptions.ShowBorder = False
      Index = 1
    end
    object liGrid: TdxLayoutItem
      Parent = dxLayoutControl1Group_Root
      CaptionOptions.Text = 'cxGrid2'
      CaptionOptions.Visible = False
      Control = cxGrid2
      ControlOptions.OriginalHeight = 133
      ControlOptions.OriginalWidth = 377
      ControlOptions.ShowBorder = False
      Index = 1
    end
    object liDashboardControl: TdxLayoutItem
      Parent = dxLayoutControl1Group_Root
      AlignVert = avClient
      Control = dxDashboardControl1
      ControlOptions.OriginalHeight = 449
      ControlOptions.OriginalWidth = 733
      ControlOptions.ShowBorder = False
      Index = 2
    end
    object liBtnNew: TdxLayoutItem
      Parent = lgButtons
      AlignHorz = ahClient
      CaptionOptions.Text = 'cxButton1'
      CaptionOptions.Visible = False
      Control = btnNewDashboard
      ControlOptions.OriginalHeight = 25
      ControlOptions.OriginalWidth = 75
      ControlOptions.ShowBorder = False
      Index = 0
    end
    object lgButtons: TdxLayoutGroup
      Parent = dxLayoutControl1Group_Root
      CaptionOptions.Text = 'New Group'
      LayoutDirection = ldHorizontal
      ShowBorder = False
      Index = 0
    end
    object liBtnDelete: TdxLayoutItem
      Parent = lgButtons
      AlignHorz = ahClient
      CaptionOptions.Text = 'cxButton1'
      CaptionOptions.Visible = False
      Control = btnDelete
      ControlOptions.OriginalHeight = 25
      ControlOptions.OriginalWidth = 75
      ControlOptions.ShowBorder = False
      Index = 2
    end
  end
end