Hot Shareware 32/hot34.iso/ficheros/9APLI/32PSHD30.ZIP/_SETUP.1/HAO30.exe/0/RCDATA/TSUMMARYDLG/TSUMMARYDLG.txt

Text File | 1998-02-19 | 6KB | 226 lines

object SummaryDlg: TSummaryDlg
  Left = 163
  Top = 100
  Hint = 'Select '#39'Summary By'#39' data field'
  ActiveControl = OKBtn
  BorderStyle = bsDialog
  Caption = 'Summary'
  ClientHeight = 362
  ClientWidth = 560
  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 = 200
    Top = 333
    Width = 34
    Height = 13
    Caption = 'Total:'
  end
  object Label3: TLabel
    Left = 264
    Top = 333
    Width = 63
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
  end
  object Label4: TLabel
    Left = 328
    Top = 333
    Width = 83
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
  end
  object Label5: TLabel
    Left = 240
    Top = 20
    Width = 82
    Height = 13
    Caption = 'Numeric Field:'
    Visible = 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 = 452
    Height = 289
    ColCount = 4
    DefaultRowHeight = 16
    FixedCols = 0
    RowCount = 17
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
    TabOrder = 2
    OnDrawCell = StringGrid1DrawCell
    ColWidths = (
      250
      58
      83
      38)
  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 ComboBox2: TComboBox
    Left = 322
    Top = 16
    Width = 145
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 7
    OnChange = ComboBox2Change
  end
  object DetailShell1: TDetailShell
    OnBodyBefore = DetailShell1BodyBefore
    OnRowPrint = DetailShell1RowPrint
    OnRowAfter = DetailShell1RowAfter
    Left = 496
    Top = 216
  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 = 496
    Top = 264
  end
end