unit1.dfm

这是所谓的折叠函数的代码,有兴趣的可拿去研究研究,经典

object Form1: TForm1
  Left = 87
  Top = 87
  Width = 860
  Height = 540
  Caption = #25240#21472#20989#25968#24037#20855#65293'(by csw)'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object UPClickSplitter2: TUPClickSplitter
    Left = 0
    Top = 41
    Width = 852
    Height = 7
    Cursor = crVSplit
    Align = alTop
    Version = 'Version 0.7'
  end
  object Panel1: TPanel
    Left = 0
    Top = 48
    Width = 852
    Height = 465
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 0
    object UPClickSplitter1: TUPClickSplitter
      Left = 169
      Top = 1
      Width = 6
      Height = 444
      Cursor = crHSplit
      Visible = False
      Version = 'Version 0.7'
    end
    object SynMemo1: TSynMemo
      Left = 175
      Top = 1
      Width = 676
      Height = 444
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Courier New'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ShowHint = False
      TabOrder = 0
      OnClick = SynMemo1Click
      OnKeyDown = SynMemo1KeyDown
      OnKeyUp = SynMemo1KeyUp
      BookMarkOptions.BookmarkImages = ImageList1
      Gutter.AutoSize = True
      Gutter.Color = clSkyBlue
      Gutter.Font.Charset = DEFAULT_CHARSET
      Gutter.Font.Color = clGray
      Gutter.Font.Height = -13
      Gutter.Font.Name = 'Courier New'
      Gutter.Font.Style = []
      Gutter.LeftOffset = 2
      Gutter.RightOffset = 0
      Gutter.ShowLineNumbers = True
      Gutter.UseFontStyle = False
      Gutter.ZeroStart = True
      Highlighter = SynPasSyn1
      OnChange = SynMemo1Change
      OnGutterClick = SynMemo1GutterClick
      OnScroll = SynMemo1Scroll
      OnPaintTransient = SynMemo1PaintTransient
    end
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 168
      Height = 444
      Align = alLeft
      Caption = 'Panel2'
      TabOrder = 1
      Visible = False
      object TreeView1: TTreeView
        Left = 1
        Top = 1
        Width = 166
        Height = 426
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        Images = ImageList1
        Indent = 19
        ParentFont = False
        TabOrder = 0
        OnClick = TreeView1Click
        OnCollapsing = TreeView1Collapsing
        OnExpanded = TreeView1Expanded
      end
      object Panel3: TPanel
        Left = 1
        Top = 427
        Width = 166
        Height = 16
        Align = alBottom
        BevelOuter = bvNone
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
    end
    object sBar1: TFriendlyStatusBar
      Left = 1
      Top = 445
      Width = 850
      Height = 19
      Panels = <
        item
          Text = #24635#34892#25968#65306
          Width = 150
        end
        item
          Text = #21152#36733#20989#25968#21518', '#35831#20808#28857#20987' '#8216#25240#21472#21047#26032#8217#65292#21542#21017#19981#33021#25240#21472#12290
          Width = 50
        end>
      SimplePanel = False
    end
    object Memo1: TMemo
      Left = 456
      Top = 200
      Width = 185
      Height = 89
      Lines.Strings = (
        'Memo1')
      TabOrder = 3
      Visible = False
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 852
    Height = 41
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 288
      Top = 8
      Width = 126
      Height = 20
      Caption = #25240#21472#20989#25968#24037#20855
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -20
      Font.Name = #20223#23435'_GB2312'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
      Visible = False
    end
    object Button4: TButton
      Left = 130
      Top = 9
      Width = 57
      Height = 25
      Caption = #25240#21472#21047#26032
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = Button4Click
    end
    object Button1: TButton
      Left = 744
      Top = 16
      Width = 75
      Height = 25
      Caption = 'test'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Visible = False
      OnClick = Button1Click
    end
    object Button3: TButton
      Left = 16
      Top = 9
      Width = 54
      Height = 25
      Caption = #25171#24320#25991#20214
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button2: TButton
      Left = 197
      Top = 9
      Width = 54
      Height = 25
      Caption = #25240#21472#32423#25968
      TabOrder = 3
      OnClick = Button2Click
    end
    object Button6: TButton
      Left = 280
      Top = 9
      Width = 54
      Height = 25
      Caption = #23637#24320#32423#25968
      TabOrder = 4
      OnClick = Button6Click
    end
    object Edit1: TEdit
      Left = 250
      Top = 11
      Width = 25
      Height = 23
      AutoSize = False
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 5
      Text = '1'
    end
    object Edit2: TEdit
      Left = 333
      Top = 11
      Width = 25
      Height = 23