ucommentconstructorform.dfm

Delphi函数工厂。。。。。。。。。。。。。

inherited CommentConstructorForm: TCommentConstructorForm
  Left = 251
  Top = 183
  ClientHeight = 467
  ClientWidth = 501
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object pcCommentKinds: TPageControl [0]
    Left = 5
    Top = 8
    Width = 488
    Height = 417
    ActivePage = tbHeadComment
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabIndex = 0
    TabOrder = 0
    object tbHeadComment: TTabSheet
      Caption = #21333#20803#22836#27880#37322
      DesignSize = (
        480
        390)
      object lblCommentKeyChar: TLabel
        Left = 8
        Top = 16
        Width = 72
        Height = 12
        Caption = #27880#37322#23383#31526'(&C):'
        FocusControl = cbCommentKeyChar
      end
      object lblLanguage: TLabel
        Left = 256
        Top = 16
        Width = 48
        Height = 12
        Caption = #35821#35328'(&L):'
        FocusControl = cbLanguage
      end
      object gbAlignment: TGroupBox
        Left = 248
        Top = 264
        Width = 225
        Height = 105
        Caption = #23545#40784#35774#32622
        TabOrder = 0
        object lblLineWidth: TLabel
          Left = 16
          Top = 24
          Width = 60
          Height = 12
          Caption = #34892#23485#24230'(&W):'
        end
        object lblFillChar: TLabel
          Left = 96
          Top = 24
          Width = 108
          Height = 12
          Caption = #39318#23614#34892#22635#20805#23383#31526'(&F):'
          FocusControl = cbFillChar
        end
        object seLineWidth: TSpinEdit
          Left = 16
          Top = 40
          Width = 65
          Height = 21
          MaxValue = 380
          MinValue = 40
          TabOrder = 0
          Value = 70
          OnChange = AnySpinEditChange
          OnKeyPress = AnySpinEditKeyPress
        end
        object cbFillChar: TComboBox
          Left = 96
          Top = 40
          Width = 105
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          ItemIndex = 2
          TabOrder = 1
          Text = '-'
          OnChange = edtUnitChange
          Items.Strings = (
            '/'
            '='
            '-'
            '#'
            '+'
            '*')
        end
        object cbEmptyLine: TCheckBox
          Left = 16
          Top = 72
          Width = 137
          Height = 17
          Caption = #21508#39033#30446#34892#38388#30041#31354#34892'(&E)'
          Checked = True
          State = cbChecked
          TabOrder = 2
          OnClick = edtUnitChange
        end
      end
      object cbCommentKeyChar: TComboBox
        Left = 88
        Top = 12
        Width = 150
        Height = 20
        Style = csDropDownList
        Anchors = [akLeft, akTop, akRight]
        ItemHeight = 12
        ItemIndex = 0
        TabOrder = 1
        Text = '//        '#21452#26012#26464#27880#37322
        OnChange = edtUnitChange
        Items.Strings = (
          '//        '#21452#26012#26464#27880#37322
          '{ ... }   '#23545#33457#25324#21495#27880#37322
          '(* ... *) '#23545#25324#21495#19982#23545#26143#21495#27880#37322)
      end
      object gbCommentInfo: TGroupBox
        Left = 8
        Top = 48
        Width = 462
        Height = 194
        Anchors = [akLeft, akTop, akRight, akBottom]
        Caption = #27880#37322#20449#24687
        TabOrder = 2
        object lblUnit: TLabel
          Left = 16
          Top = 16
          Width = 60
          Height = 12
          Caption = #21333#20803#21517'(&U):'
          FocusControl = edtUnit
        end
        object lblAutor: TLabel
          Left = 240
          Top = 16
          Width = 48
          Height = 12
          Caption = #20316#32773'(&A):'
          FocusControl = edtAuthor
        end
        object lblVer: TLabel
          Left = 16
          Top = 56
          Width = 48
          Height = 12
          Caption = #29256#26412'(&V):'
          FocusControl = edtVer
        end
        object lblDate: TLabel
          Left = 240
          Top = 56
          Width = 48
          Height = 12
          Caption = #26085#26399'(&D):'
          FocusControl = dtpDate
        end
        object lblDescription: TLabel
          Left = 16
          Top = 96
          Width = 84
          Height = 12
          Caption = #29992#36884#19982#25551#36848'(&D):'
          FocusControl = mmDescription
        end
        object edtUnit: TEdit
          Left = 16
          Top = 32
          Width = 209
          Height = 20
          TabOrder = 0
          OnChange = edtUnitChange
        end
        object edtAuthor: TEdit
          Left = 240
          Top = 32
          Width = 209
          Height = 20
          TabOrder = 1
          OnChange = edtUnitChange
        end
        object edtVer: TEdit
          Left = 16
          Top = 72
          Width = 209
          Height = 20
          TabOrder = 2
          Text = 'V1.0'
          OnChange = edtUnitChange
        end
        object dtpDate: TDateTimePicker
          Left = 240
          Top = 72
          Width = 209
          Height = 20
          CalAlignment = dtaLeft
          Date = 37622
          Time = 37622
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 3
          OnChange = edtUnitChange
        end
        object mmDescription: TMemo
          Left = 16
          Top = 112
          Width = 433
          Height = 73
          ScrollBars = ssBoth
          TabOrder = 4
          OnChange = edtUnitChange
        end
      end
      object cbLanguage: TComboBox
        Left = 312
        Top = 12
        Width = 161
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        ItemIndex = 1
        TabOrder = 3
        Text = #31616#20307#20013#25991
        OnChange = edtUnitChange
        Items.Strings = (
          #33521#25991
          #31616#20307#20013#25991)
      end
      object mmComment: TMemo
        Left = 8
        Top = 248
        Width = 233
        Height = 137
        ScrollBars = ssBoth
        TabOrder = 4
        OnChange = mmCommentChange
      end
    end
    object tsCopyrightComment: TTabSheet
      Caption = #29256#26435#27880#37322
      ImageIndex = 1
      TabVisible = False
    end
    object tsMethodComment: TTabSheet
      Caption = #26041#27861'('#36807#31243'/'#20989#25968')'#27880#37322
      ImageIndex = 2
      TabVisible = False
    end
  end
  object btnCopy: TButton [1]
    Left = 341
    Top = 432
    Width = 75
    Height = 23
    Anchors = [akRight, akBottom]
    Caption = #22797#21046'(&C)'
    TabOrder = 1
    OnClick = btnCopyClick
  end
  inherited btnClose: TButton
    Left = 418
    Top = 432
    TabOrder = 2
  end
  inherited btnHelp: TButton
    Top = 432
    TabOrder = 3
  end
end