ufunctionbasemoduleform.dfm

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

inherited FunctionbaseModuleForm: TFunctionbaseModuleForm
  Left = -37
  Top = 176
  Width = 889
  Height = 584
  BorderStyle = bsSizeable
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter: TSplitter [0]
    Left = 215
    Top = 0
    Width = 3
    Height = 531
    Cursor = crHSplit
  end
  inherited btnClose: TButton
    Left = 801
    Top = 522
  end
  inherited btnHelp: TButton
    Top = 522
  end
  object Panel1: TPanel
    Left = 218
    Top = 0
    Width = 663
    Height = 531
    Align = alClient
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 661
      Height = 178
      Align = alClient
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = #31867#22411
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21517#31216
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Uses'
          PickList.Strings = (
            'Inifiles'
            'Regstry'
            'ShellApi'
            'MMSystem'
            'ShlObj'
            'winsock'
            'ActiveX')
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20316#32773
          Visible = True
        end
        item
          Expanded = False
          FieldName = #26085#26399
          Visible = True
        end
        item
          Expanded = False
          FieldName = #35828#26126
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'id'
          Visible = True
        end>
    end
    object Panel2: TPanel
      Left = 1
      Top = 179
      Width = 661
      Height = 351
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object pnlInfo: TPanel
        Left = 0
        Top = 0
        Width = 203
        Height = 351
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 0
        object Label2: TLabel
          Left = 8
          Top = 41
          Width = 24
          Height = 12
          Caption = #31867#22411
        end
        object Label3: TLabel
          Left = 8
          Top = 88
          Width = 24
          Height = 12
          Caption = #21517#31216
          FocusControl = dbeName
        end
        object Label5: TLabel
          Left = 8
          Top = 136
          Width = 24
          Height = 12
          Caption = 'Uses'
        end
        object Label6: TLabel
          Left = 8
          Top = 183
          Width = 24
          Height = 12
          Caption = #20316#32773
        end
        object Label1: TLabel
          Left = 8
          Top = 231
          Width = 24
          Height = 12
          Caption = #35828#26126
          FocusControl = dbeExplain
        end
        object Label7: TLabel
          Left = 8
          Top = 278
          Width = 24
          Height = 12
          Caption = #26085#26399
          FocusControl = dbeDate
        end
        object dbeName: TDBEdit
          Left = 5
          Top = 108
          Width = 195
          Height = 20
          DataField = #21517#31216
          TabOrder = 0
          OnChange = dbeNameChange
        end
        object dbeExplain: TDBEdit
          Left = 5
          Top = 250
          Width = 195
          Height = 20
          DataField = #35828#26126
          TabOrder = 1
        end
        object dbeDate: TDBEdit
          Left = 5
          Top = 298
          Width = 195
          Height = 20
          DataField = #26085#26399
          TabOrder = 2
        end
        object dbcbType: TDBComboBox
          Left = 5
          Top = 60
          Width = 195
          Height = 20
          DataField = #31867#22411
          ItemHeight = 12
          TabOrder = 3
          OnChange = dbcbTypeChange
        end
        object DBCheckBox1: TDBCheckBox
          Left = 8
          Top = 326
          Width = 49
          Height = 17
          Caption = #25910#34255
          DataField = #25910#34255
          TabOrder = 4
          ValueChecked = 'True'
          ValueUnchecked = 'False'
        end
        object dbeAuthor: TDBEdit
          Left = 5
          Top = 203
          Width = 195
          Height = 20
          DataField = #20316#32773
          DataSource = DataSource1
          TabOrder = 5
        end
        object dbcbUses: TDBComboBox
          Left = 5
          Top = 155
          Width = 194
          Height = 20
          Hint = #21452#20987#21487#23558#20869#23481#22797#21046#21040#21098#36148#26495#19978
          DataField = 'uses'
          ItemHeight = 12
          Items.Strings = (
            'Inifiles'
            'Registry'
            'ShellApi'
            'MMSystem'
            'ShlObj'
            'winsock'
            'ActiveX')
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
          OnDblClick = dbcbUsesDblClick
        end
        object DBNavigator1: TDBNavigator
          Left = 3
          Top = 6
          Width = 198
          Height = 28
          DataSource = DataSource1
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
          Flat = True
          Ctl3D = False
          Hints.Strings = (
            #31532#19968#26465#35760#24405
            #19978#19968#26465#35760#24405
            #19979#19968#26465#35760#24405
            #26368#21518#19968#26465#35760#24405
            #26032#22686#19968#26465#35760#24405
            #21024#38500#19968#26465#35760#24405
            #32534#36753#24403#21069#35760#24405
            #25552#20132
            #21462#28040
            'Refresh data')
          ParentCtl3D = False
          TabOrder = 7
          OnClick = DBNavigator1Click
        end
      end
      object pnltools: TPanel
        Left = 203
        Top = 0
        Width = 458
        Height = 351
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object GroupBox1: TGroupBox
          Left = 0
          Top = 0
          Width = 458
          Height = 318
          Align = alTop
          Caption = #20869#23481
          TabOrder = 0
          object dbmContent: TDBSynEdit
            Left = 2
            Top = 14
            Width = 454
            Height = 302
            Cursor = crIBeam
            Hint = #25903#25345'Delphi'#24555#25463#38190#25805#20316
            DataField = #20869#23481
            Align = alClient
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'Courier New'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            PopupMenu = pmContentRightClick
            TabOrder = 0
            Gutter.Font.Charset = DEFAULT_CHARSET
            Gutter.Font.Color = clWindowText
            Gutter.Font.Height = -11
            Gutter.Font.Name = 'Terminal'
            Gutter.Font.Style = []
            Gutter.Width = 0
            Highlighter = PasFileEditForm.SynPasSyn
            Keystrokes = <
              item
                Command = ecUp
                ShortCut = 38
              end
              item
                Command = ecSelUp
                ShortCut = 8230
              end
              item
                Command = ecScrollUp
                ShortCut = 16422
              end
              item
                Command = ecDown
                ShortCut = 40
              end
              item
                Command = ecSelDown
                ShortCut = 8232
              end
              item
                Command = ecScrollDown
                ShortCut = 16424
              end
              item
                Command = ecLeft
                ShortCut = 37
              end
              item
                Command = ecSelLeft
                ShortCut = 8229
              end
              item
                Command = ecWordLeft
                ShortCut = 16421
              end
              item
                Command = ecSelWordLeft
                ShortCut = 24613
              end
              item
                Command = ecRight
                ShortCut = 39
              end
              item
                Command = ecSelRight
                ShortCut = 8231
              end
              item
                Command = ecWordRight
                ShortCut = 16423
              end
              item
                Command = ecSelWordRight
                ShortCut = 24615
              end