unit1.dfm

delphi写的大小写转换程序

object Form1: TForm1
  Left = 229
  Top = 158
  Width = 405
  Height = 313
  Caption = #33258#21160#36716#25442#22823#20889
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010100001000400280100001600000028000000100000002000
    0000010004000000000080000000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000FFF
    FFFFFFFFFFF00F000000000000F00F0CCCCCCCCCC0F00F000000000000F00F0C
    CCCCCCCCC0F00F000000000000F00F0CCCCCCCCCC0F00F000000000000F00F0C
    CCCCCCCCC0F00F000000000000F00F0CCCCCCCCCC0F00F00000000FFFFF00F00
    000000F777000F00CCC0CCF770000F00000000F700000FFFFFFFFFF00000FFFF
    0000FFFF0000E0070000FFFF0000E0070000FFFF0000E0070000FFFF0000E007
    0000FFFF0000E0070000FFFF0000FFE30000F1270000FFEF0000FFFF0000}
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 397
    Height = 240
    Align = alClient
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 240
    Width = 397
    Height = 46
    Align = alBottom
    TabOrder = 1
    DesignSize = (
      397
      46)
    object btnClose: TButton
      Left = 312
      Top = 8
      Width = 75
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #20851#38381
      TabOrder = 0
      OnClick = btnCloseClick
    end
    object rbUpper: TRadioButton
      Left = 144
      Top = 13
      Width = 65
      Height = 17
      Caption = #36716#22823#20889
      Enabled = False
      TabOrder = 1
      OnClick = OnCheckChange
    end
    object rbLower: TRadioButton
      Left = 80
      Top = 13
      Width = 65
      Height = 17
      Caption = #36716#23567#20889
      Checked = True
      Enabled = False
      TabOrder = 2
      TabStop = True
      OnClick = OnCheckChange
    end
    object cbStart: TCheckBox
      Left = 8
      Top = 13
      Width = 57
      Height = 17
      Caption = #21551#29992
      TabOrder = 3
      OnClick = cbStartClick
    end
    object Button1: TButton
      Left = 232
      Top = 5
      Width = 75
      Height = 25
      Caption = #38544#34255
      TabOrder = 4
      OnClick = Button1Click
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 184
    Top = 96
    object O1: TMenuItem
      Caption = #25171#24320'(&O)'
      OnClick = O1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object X1: TMenuItem
      Caption = #20851#38381'(&X)'
      OnClick = X1Click
    end
  end
end