home *** CD-ROM | disk | FTP | other *** search
- object SummaryDlg: TSummaryDlg
- Left = 206
- Top = 104
- Hint = 'Select '#39'Summary By'#39' data field'
- ActiveControl = OKBtn
- BorderStyle = bsDialog
- Caption = 'Summary'
- ClientHeight = 366
- ClientWidth = 564
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Position = poScreenCenter
- ShowHint = True
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 8
- Top = 8
- Width = 465
- Height = 345
- Shape = bsFrame
- IsControl = True
- end
- object Label1: TLabel
- Left = 16
- Top = 20
- Width = 73
- Height = 13
- Caption = 'Summary By:'
- end
- object Label2: TLabel
- Left = 296
- Top = 333
- Width = 34
- Height = 13
- Caption = 'Total:'
- end
- object Label3: TLabel
- Left = 341
- Top = 333
- Width = 63
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- end
- object OKBtn: TBitBtn
- Left = 476
- Top = 8
- Width = 77
- Height = 27
- Hint = 'Close Summary Window'
- Caption = '&Close'
- TabOrder = 0
- Kind = bkOK
- Margin = 2
- Spacing = -1
- IsControl = True
- end
- object HelpBtn: TBitBtn
- Left = 476
- Top = 40
- Width = 77
- Height = 27
- Hint = 'Display Help Window'
- TabOrder = 1
- OnClick = HelpBtnClick
- Kind = bkHelp
- Margin = 2
- Spacing = -1
- IsControl = True
- end
- object StringGrid1: TStringGrid
- Left = 16
- Top = 40
- Width = 455
- Height = 289
- ColCount = 3
- DefaultRowHeight = 16
- FixedCols = 0
- RowCount = 17
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
- TabOrder = 2
- OnDrawCell = StringGrid1DrawCell
- ColWidths = (
- 328
- 58
- 46)
- end
- object ComboBox1: TComboBox
- Left = 90
- Top = 16
- Width = 145
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 3
- OnChange = ComboBox1Change
- end
- object BitBtn1: TBitBtn
- Left = 476
- Top = 72
- Width = 77
- Height = 27
- Hint = 'Display Graph'
- Caption = '&Graph'
- Default = True
- TabOrder = 4
- OnClick = BitBtn1Click
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300030003
- 0003333377737773777333333333333333333FFFFFFFFFFFFFFF770000000000
- 0000777777777777777733039993BBB3CCC3337F737F737F737F37039993BBB3
- CCC3377F737F737F737F33039993BBB3CCC33F7F737F737F737F77079997BBB7
- CCC77777737773777377330399930003CCC3337F737F7773737F370399933333
- CCC3377F737F3333737F330399933333CCC33F7F737FFFFF737F770700077777
- CCC77777777777777377330333333333CCC3337F33333333737F370333333333
- 0003377F33333333777333033333333333333F7FFFFFFFFFFFFF770777777777
- 7777777777777777777733333333333333333333333333333333}
- Margin = 2
- NumGlyphs = 2
- Spacing = -1
- IsControl = True
- end
- object SortBy: TRadioGroup
- Left = 478
- Top = 144
- Width = 81
- Height = 65
- Caption = 'Sort By'
- ItemIndex = 0
- Items.Strings = (
- 'Name'
- 'Value')
- TabOrder = 6
- OnClick = SortByClick
- end
- object BitBtn2: TBitBtn
- Left = 476
- Top = 104
- Width = 77
- Height = 27
- Hint = 'Print Summary'
- Caption = '&Print'
- Default = True
- TabOrder = 5
- OnClick = BitBtn2Click
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
- 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
- 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
- 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
- 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
- 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
- 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
- 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
- 33333337FFFF7733333333300000033333333337777773333333}
- Margin = 2
- NumGlyphs = 2
- Spacing = -1
- IsControl = True
- end
- object DetailShell1: TDetailShell
- OnBodyBefore = DetailShell1BodyBefore
- OnRowPrint = DetailShell1RowPrint
- OnRowAfter = DetailShell1RowAfter
- Left = 488
- Top = 224
- end
- object ReportSystem1: TReportSystem
- TitleSetup = 'Report Setup'
- TitleStatus = 'Report Status'
- TitlePreview = 'Report Preview'
- SystemSetups = [ssAllowCopies, ssAllowCollate, ssAllowDuplex, ssAllowDestPreview, ssAllowDestPrinter, ssAllowDestFile, ssAllowPrinterSetup]
- SystemFiler.StatusFormat = 'Generating page %p'
- SystemPreview.ZoomFactor = 100.000000000000000000
- SystemPrinter.MarginBottom = 1.000000000000000000
- SystemPrinter.MarginTop = 1.000000000000000000
- SystemPrinter.ScaleX = 100.000000000000000000
- SystemPrinter.ScaleY = 100.000000000000000000
- SystemPrinter.StatusFormat = 'Printing page %p'
- SystemPrinter.Title = 'ReportPrinter Report'
- SystemPrinter.UnitsFactor = 1.000000000000000000
- OnPrint = ReportSystem1Print
- Left = 488
- Top = 264
- end
- end
-