unit1.~dfm

文字实现加解密的delphi源码

object Form1: TForm1
  Left = 201
  Top = 101
  Width = 908
  Height = 592
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 50
    Width = 900
    Height = 488
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 443
      Top = 1
      Height = 467
      Color = clLime
      ParentColor = False
    end
    object RichEdit1: TRichEdit
      Left = 1
      Top = 1
      Width = 442
      Height = 467
      Align = alLeft
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #24494#36719#38597#40657
      Font.Style = []
      ParentFont = False
      ScrollBars = ssBoth
      TabOrder = 0
    end
    object RichEdit2: TRichEdit
      Left = 446
      Top = 1
      Width = 453
      Height = 467
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #24494#36719#38597#40657
      Font.Style = []
      ParentFont = False
      ScrollBars = ssBoth
      TabOrder = 1
    end
    object StatusBar1: TStatusBar
      Left = 1
      Top = 468
      Width = 898
      Height = 19
      Panels = <>
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 900
    Height = 50
    Align = alTop
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 23
      Top = 12
      Width = 97
      Height = 25
      Caption = #21152#23494
      Flat = True
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 127
      Top = 12
      Width = 97
      Height = 25
      Caption = #35299#23494
      Flat = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 232
      Top = 12
      Width = 97
      Height = 25
      Caption = #35774#32622
      Flat = True
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 336
      Top = 12
      Width = 97
      Height = 25
      Caption = #36864#20986
      Flat = True
      OnClick = SpeedButton4Click
    end
    object Edit1: TEdit
      Left = 479
      Top = 8
      Width = 98
      Height = 21
      TabOrder = 0
      Text = '5'
      Visible = False
    end
    object TrackBar1: TTrackBar
      Left = 679
      Top = 8
      Width = 202
      Height = 41
      Max = 22
      Min = 9
      Position = 9
      SelEnd = 48
      SelStart = 9
      TabOrder = 1
      OnChange = TrackBar1Change
    end
  end
  object MainMenu1: TMainMenu
    Left = 176
    Top = 48
    object N1: TMenuItem
      Caption = #25991#20214
      object N2: TMenuItem
        Caption = #25171#24320
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #36864#20986
      end
    end
    object N4: TMenuItem
      Caption = #35774#32622
      object N5: TMenuItem
        Caption = #23383#20307
        OnClick = N5Click
      end
    end
    object N6: TMenuItem
      Caption = #24110#21161
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 56
    Top = 105
  end
  object SaveDialog1: TSaveDialog
    Left = 112
    Top = 97
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 152
    Top = 105
  end
  object ColorDialog1: TColorDialog
    Left = 200
    Top = 113
  end
end