sjcustombrowsefrm.dfm

供水营销打印程序源码

inherited SJCustomBrowseForm: TSJCustomBrowseForm
  Left = 234
  Top = 161
  Width = 627
  Height = 428
  Caption = 'SJCustomBrowseForm'
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object grdBrowse: TDBGridEh [0]
    Left = 0
    Top = 0
    Width = 619
    Height = 401
    Align = alClient
    ColumnDefValues.EndEllipsis = True
    EditActions = [geaCutEh, geaCopyEh, geaPasteEh, geaDeleteEh, geaSelectAllEh]
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghEnterAsTab, dghTraceColSizing, dghIncSearch, dghPreferIncSearch, dghRowHighlight]
    PopupMenu = pmBrowse
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    UseMultiTitle = True
    VTitleMargin = 3
  end
  inherited PropStorage: TPropStorageEh
    Active = False
  end
  object pmBrowse: TPopupMenu
    OwnerDraw = True
    Left = 80
    Top = 8
    object S1: TMenuItem
      Action = actBrowseSaveAs
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object X1: TMenuItem
      Action = actBrowseCut
    end
    object C1: TMenuItem
      Action = actBrowseCopy
    end
    object P1: TMenuItem
      Action = actBrowsePaste
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object A1: TMenuItem
      Action = actBrowseSelectAll
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Action = actBrowseNew
    end
    object E1: TMenuItem
      Action = actBrowseEdit
    end
    object D1: TMenuItem
      Action = actBrowseDelete
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object F1: TMenuItem
      Action = actBrowseFind
    end
    object R1: TMenuItem
      Action = actBrowseRefresh
    end
  end
  object XPMenu1: TXPMenu
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    Left = 112
    Top = 8
  end
  object ActList: TActionList
    Images = Images
    OnUpdate = ActListUpdate
    Left = 16
    Top = 40
    object actBrowseSaveAs: TAction
      Tag = 101
      Caption = #21478#23384#20026#25991#20214'(&S)...'
      ImageIndex = 5
      ShortCut = 113
      OnExecute = actBrowseSaveAsExecute
    end
    object actBrowseCut: TAction
      Tag = 102
      Caption = #21098#20999'(&X)'
      ImageIndex = 24
      ShortCut = 16472
      OnExecute = actBrowseSaveAsExecute
    end
    object actBrowseCopy: TAction
      Tag = 103
      Caption = #22797#21046'(&C)'
      ImageIndex = 25
      ShortCut = 16451
      OnExecute = actBrowseSaveAsExecute
    end
    object actBrowsePaste: TAction
      Tag = 104
      Caption = #31896#36148'(&P)'
      ImageIndex = 26
      ShortCut = 16470
      OnExecute = actBrowseSaveAsExecute
    end
    object actBrowseSelectAll: TAction
      Tag = 105
      Caption = #20840#37096#36873#25321'(&A)'
      ShortCut = 16449
      OnExecute = actBrowseSaveAsExecute
    end
    object actBrowseNew: TAction
      Tag = 106
      Caption = #26032#22686'(&N)...'
      ImageIndex = 151
      ShortCut = 16429
      OnExecute = actBrowseSaveAsExecute
    end
    object actBrowseEdit: TAction
      Tag = 107
      Caption = #32534#36753'(&E)...'
      ImageIndex = 150
      ShortCut = 13
      OnExecute = actBrowseSaveAsExecute
    end
    object actBrowseDelete: TAction
      Tag = 108
      Caption = #21024#38500'(&D)'
      ImageIndex = 153
      ShortCut = 16430
      OnExecute = actBrowseSaveAsExecute
    end
    object actBrowseFind: TAction
      Tag = 109
      Caption = #26597#25214'(&F)...'
      ImageIndex = 28
      ShortCut = 16454
      OnExecute = actBrowseSaveAsExecute
    end
    object actBrowseRefresh: TAction
      Tag = 110
      Caption = #21047#26032'(&R)'
      ImageIndex = 201
      ShortCut = 116
      OnExecute = actBrowseSaveAsExecute
    end
    object actBrowsePreview: TAction
      Caption = #25171#21360#39044#35272'(&R)...'
      ImageIndex = 11
      OnExecute = actBrowsePreviewExecute
    end
    object actBrowsePrintSetup: TAction
      Caption = #39029#38754#35774#32622'(&U)...'
      OnExecute = actBrowsePrintSetupExecute
    end
    object actBrowsePrint: TAction
      Caption = #25171#21360'(&P)...'
      ImageIndex = 12
      ShortCut = 16464
      OnExecute = actBrowsePrintExecute
    end
  end
  object Savedlg: TSaveDialog
    FileName = 'file1'
    Filter = 
      #25991#26412#25991#20214' (*.txt)|*.TXT|'#36887#21495#20998#38548#31526#25991#20214' (*.csv)|*.CSV|'#36229#25991#26412#25991#20214' (*.htm)|*.HTM|'#26684#24335#25991 +
      #20214' (*.rtf)|*.RTF|'#30005#23376#34920#26684#25991#20214'(*.xls)|*.XLS'
    Left = 47
    Top = 40
  end
  object FilterDialog: TwwFilterDialog