mrl.dfm

来自「一个地方税务征收管理系统」· DFM 代码 · 共 119 行

object rl: Trl
  Left = 126
  Top = 88
  BorderStyle = bsDialog
  Caption = #19975#24180#21382
  ClientHeight = 242
  ClientWidth = 489
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 144
    Top = 19
    Width = 12
    Height = 13
    Caption = #24180
  end
  object Label2: TLabel
    Left = 240
    Top = 19
    Width = 12
    Height = 13
    Caption = #26376
  end
  object DrawCalendar1: TDrawCalendar
    Left = 24
    Top = 48
    Width = 441
    Height = 177
    Color = 16446159
    Ctl3D = False
    StartOfWeek = 0
    TabOrder = 0
    DefaultColWidth = 61
    HeaderFont.Charset = DEFAULT_CHARSET
    HeaderFont.Color = clWindowText
    HeaderFont.Height = -16
    HeaderFont.Name = 'MS Sans Serif'
    HeaderFont.Style = []
    TextFont.Charset = DEFAULT_CHARSET
    TextFont.Color = clBlue
    TextFont.Height = -11
    TextFont.Name = 'MS Sans Serif'
    TextFont.Style = []
    DateFont.Charset = GB2312_CHARSET
    DateFont.Color = clBlack
    DateFont.Height = -13
    DateFont.Name = 'Times New Roman'
    DateFont.Style = []
    DateBox = False
    ColumnColor0 = clNone
    ColumnColor1 = clNone
    ColumnColor2 = clNone
    ColumnColor3 = clNone
    ColumnColor4 = clNone
    ColumnColor5 = clNone
    ColumnColor6 = clNone
    TextBackgroundColor = clInfoText
    TextTransparent = False
    RowHeights = (
      24
      24
      24
      24
      24
      24
      24)
  end
  object Edit1: TEdit
    Left = 40
    Top = 16
    Width = 81
    Height = 21
    OEMConvert = True
    TabOrder = 1
    Text = '2003'
    OnChange = Edit1Change
  end
  object UpDown1: TUpDown
    Left = 121
    Top = 16
    Width = 21
    Height = 21
    Associate = Edit1
    Min = 1950
    Max = 2050
    Position = 2003
    TabOrder = 2
    Thousands = False
  end
  object Edit2: TEdit
    Left = 176
    Top = 16
    Width = 41
    Height = 21
    TabOrder = 3
    Text = '1'
    OnChange = Edit1Change
  end
  object UpDown2: TUpDown
    Left = 217
    Top = 16
    Width = 17
    Height = 21
    Associate = Edit2
    Min = 1
    Max = 12
    Position = 1
    TabOrder = 4
  end
end