settingfrm.dfm

一个可以把源代码以语法高亮的形式转换成HTML格式或RTF格式。

inherited FrmSetting: TFrmSetting
  Left = 237
  Top = 127
  BorderStyle = bsDialog
  Caption = #35774#32622'...'
  ClientHeight = 428
  ClientWidth = 452
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PCSetting: TPageControl
    Left = 8
    Top = 8
    Width = 437
    Height = 385
    ActivePage = TSAccidenceMgr
    TabOrder = 0
    object TSAccidenceMgr: TTabSheet
      Caption = #35789#27861#37197#32622#25991#20214#31649#29702
      object LVSrcType: TListView
        Left = 3
        Top = 8
        Width = 316
        Height = 337
        Columns = <
          item
            Caption = #21517#31216
            Width = 100
          end
          item
            AutoSize = True
            Caption = #36335#24452
          end>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        GridLines = True
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        ViewStyle = vsReport
        OnDblClick = LVSrcTypeDblClick
        OnInfoTip = LVSrcTypeInfoTip
      end
      object BtnAdd: TButton
        Left = 328
        Top = 8
        Width = 91
        Height = 23
        Action = acAdd
        Default = True
        TabOrder = 1
      end
      object BtnEdit: TButton
        Left = 328
        Top = 66
        Width = 91
        Height = 23
        Action = acEdit
        TabOrder = 3
      end
      object BtnDel: TButton
        Left = 328
        Top = 96
        Width = 91
        Height = 23
        Action = acDel
        TabOrder = 4
      end
      object BtnNew: TButton
        Left = 328
        Top = 37
        Width = 91
        Height = 23
        Action = acNew
        TabOrder = 2
      end
      object btnSaveAS: TButton
        Left = 328
        Top = 125
        Width = 91
        Height = 23
        Action = acSaveAs
        TabOrder = 5
      end
      object btnMoveUp: TButton
        Left = 328
        Top = 154
        Width = 91
        Height = 23
        Action = acMoveup
        TabOrder = 6
      end
      object btnMoveDown: TButton
        Left = 328
        Top = 184
        Width = 91
        Height = 23
        Action = acMoveDown
        TabOrder = 7
      end
    end
  end
  object btnCancel: TButton
    Left = 346
    Top = 400
    Width = 75
    Height = 23
    Caption = #21462#28040'(&C)'
    TabOrder = 1
    OnClick = btnCancelClick
  end
  object btnOK: TButton
    Left = 248
    Top = 400
    Width = 75
    Height = 23
    Caption = #30830#23450'(&O)'
    TabOrder = 2
    OnClick = btnOKClick
  end
  object ActionList: TActionList
    Left = 248
    Top = 176
    object acAdd: TAction
      Caption = '&Add...'
      OnExecute = acAddExecute
    end
    object acNew: TAction
      Caption = '&New...'
      OnExecute = acNewExecute
    end
    object acEdit: TAction
      Caption = '&Edit...'
      OnExecute = acEditExecute
      OnUpdate = acEditUpdate
    end
    object acDel: TAction
      Caption = '&Delete'
      OnExecute = acDelExecute
      OnUpdate = acEditUpdate
    end
    object acSaveAs: TAction
      Caption = 'Save  &As...'
      OnExecute = acSaveAsExecute
      OnUpdate = acEditUpdate
    end
    object acMoveup: TAction
      Caption = 'Move up'
      OnExecute = acMoveupExecute
      OnUpdate = acMoveupUpdate
    end
    object acMoveDown: TAction
      Caption = 'Move down'
      OnExecute = acMoveDownExecute
      OnUpdate = acMoveDownUpdate
    end
  end
end