home *** CD-ROM | disk | FTP | other *** search
- object FormMonthly: TFormMonthly
- Left = 172
- Top = 112
- Width = 558
- Height = 415
- ActiveControl = RadioGroup1
- Caption = 'Monthly and Weekly Database Charts'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Chart1: TChart
- Left = 0
- Top = 81
- Width = 550
- Height = 307
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- Title.Text.Strings = (
- 'TChart')
- BottomAxis.DateTimeFormat = 'MM/yy'
- Legend.Visible = False
- Align = alClient
- TabOrder = 0
- object Series1: TBarSeries
- Marks.ArrowLength = 20
- Marks.Style = smsValue
- Marks.Visible = True
- SeriesColor = clRed
- ValueFormat = '#,##0'
- XValues.DateTime = False
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Bar'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 550
- Height = 81
- Align = alTop
- TabOrder = 1
- object Label1: TLabel
- Left = 256
- Top = 24
- Width = 25
- Height = 13
- Caption = 'Year:'
- end
- object LabelRemind: TLabel
- Left = 256
- Top = 43
- Width = 110
- Height = 13
- Caption = '(year filter in 32-bit only)'
- end
- object RadioGroup2: TRadioGroup
- Left = 152
- Top = 8
- Width = 81
- Height = 65
- ItemIndex = 0
- Items.Strings = (
- 'Monthly'
- 'Weekly')
- TabOrder = 0
- OnClick = RadioGroup2Click
- end
- object RadioGroup1: TRadioGroup
- Left = 16
- Top = 8
- Width = 121
- Height = 65
- Caption = 'Chart:'
- ItemIndex = 1
- Items.Strings = (
- 'Count'
- 'Sum of Amount')
- TabOrder = 1
- OnClick = RadioGroup1Click
- end
- object ComboBox1: TComboBox
- Left = 288
- Top = 19
- Width = 73
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- '(all)'
- '1989'
- '1992'
- '1993'
- '1994')
- TabOrder = 2
- OnChange = ComboBox1Change
- end
- object Button1: TButton
- Left = 400
- Top = 16
- Width = 75
- Height = 25
- Caption = '&Edit...'
- TabOrder = 3
- OnClick = Button1Click
- end
- object CheckBox1: TCheckBox
- Left = 400
- Top = 48
- Width = 97
- Height = 17
- Caption = 'Marks'
- State = cbChecked
- TabOrder = 4
- OnClick = CheckBox1Click
- end
- end
- object DataSource1: TDataSource
- DataSet = Table1
- Left = 240
- Top = 96
- end
- object Table1: TTable
- Active = True
- DatabaseName = 'dbdemos'
- TableName = 'ORDERS.DB'
- Left = 184
- Top = 96
- end
- end
-