unit1.dfm

来自「有关delphi的一个分布式开发实例,是客户-服务器模式的」· DFM 代码 · 共 119 行

DFM
119
字号
object Form1: TForm1
  Left = 277
  Top = 135
  Width = 561
  Height = 404
  Caption = #30331#24405#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 281
    Height = 377
    Align = alLeft
    BevelInner = bvLowered
    BorderStyle = bsSingle
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 2
      Top = 2
      Width = 273
      Height = 369
      Align = alClient
      Caption = #30331#24405#29992#25143
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object ListBox1: TListBox
        Left = 2
        Top = 14
        Width = 269
        Height = 353
        Align = alClient
        Color = clBtnFace
        ItemHeight = 12
        TabOrder = 0
      end
    end
  end
  object Panel2: TPanel
    Left = 281
    Top = 0
    Width = 272
    Height = 377
    Align = alClient
    TabOrder = 1
    object B_save: TBitBtn
      Left = 72
      Top = 336
      Width = 129
      Height = 33
      Caption = #20445#23384#26085#24535
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = B_saveClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
        00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
        00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
        00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
        0003737FFFFFFFFF7F7330099999999900333777777777777733}
      NumGlyphs = 2
    end
    object GroupBox2: TGroupBox
      Left = 1
      Top = 1
      Width = 270
      Height = 328
      Align = alTop
      Caption = #24037#20316#26085#24535
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object Memo1: TMemo
        Left = 2
        Top = 15
        Width = 266
        Height = 311
        Align = alClient
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 0
      end
    end
  end
  object SaveDialog1: TSaveDialog
    Filter = 'Txt File(*.txt)|*.txt'
    Left = 298
    Top = 337
  end
end

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?