unit1.dfm

来自「delphi课程设计的内容,包括源代码,文本的设计,菜单的设计等.」· DFM 代码 · 共 125 行

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clRed
  Font.Height = -24
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 29
  object Label1: TLabel
    Left = 24
    Top = 24
    Width = 24
    Height = 29
    Caption = '红'
  end
  object Label2: TLabel
    Left = 24
    Top = 72
    Width = 24
    Height = 29
    Caption = '绿'
  end
  object Label3: TLabel
    Left = 24
    Top = 128
    Width = 24
    Height = 29
    Caption = '蓝'
  end
  object redlabel: TLabel
    Left = 208
    Top = 24
    Width = 39
    Height = 29
    Caption = '255'
  end
  object greenlabel: TLabel
    Left = 208
    Top = 80
    Width = 39
    Height = 29
    Caption = '255'
  end
  object bluelabel: TLabel
    Left = 208
    Top = 128
    Width = 39
    Height = 29
    Caption = '255'
  end
  object redscroll: TScrollBar
    Left = 56
    Top = 32
    Width = 137
    Height = 17
    Max = 255
    PageSize = 0
    Position = 255
    TabOrder = 0
    OnChange = redscrollChange
  end
  object greenscroll: TScrollBar
    Left = 56
    Top = 80
    Width = 137
    Height = 17
    Max = 255
    PageSize = 0
    Position = 255
    TabOrder = 1
    OnChange = greenscrollChange
  end
  object bluescroll: TScrollBar
    Left = 56
    Top = 136
    Width = 137
    Height = 17
    Max = 255
    PageSize = 0
    Position = 255
    TabOrder = 2
    OnChange = bluescrollChange
  end
  object rededit: TEdit
    Left = 344
    Top = 24
    Width = 105
    Height = 25
    TabOrder = 3
    Text = 'rededit'
  end
  object greenedit: TEdit
    Left = 344
    Top = 80
    Width = 105
    Height = 25
    TabOrder = 4
    Text = 'greenedit'
  end
  object blueedit: TEdit
    Left = 344
    Top = 128
    Width = 105
    Height = 25
    TabOrder = 5
    Text = 'blueedit'
  end
  object Memo1: TMemo
    Left = 48
    Top = 192
    Width = 401
    Height = 97
    Lines.Strings = (
      'Memo1')
    TabOrder = 6
  end
end