unit1.~dfm

TColor到RGB色的渐变

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 665
  Height = 482
  Caption = 'TColor'#20540#21040'RGB'#20540#30340#36716#21464'-'#39118#20113#24037#20316#23460' LLK'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2222
    2222222222222222222222222222222222222222222222222222222222222222
    2222222222222222222222222222222222222222222222222222222222222222
    2222222222222222222222222222222222222222222222222222222222222000
    9999900099999033333000333322209909999099099999033330330333222299
    9099909990999990333033303322220999999909999999903330333333222230
    9999999099999999033033333322223099999990999999999003333333222233
    0999999909999999900003333322223309999999099999999909903333222233
    3099999990999999990999000022223333099999990999999990999900222233
    3309999999099999999909999922223333309999999099999999099999222233
    33309999999099999999909999222244330009999900099999990009992222AA
    4449999999999999999999999922222222244422222222222222222222222222
    2222224442222222222222222222222222222222244422222222222222222222
    2222222222224444222222222222222222222222222222224444222222222222
    2222222222222222222244222222AAAAAAAAAAAAAAAAAAAAAAAAAA44AA220000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0200000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 136
    Top = 40
    Width = 70
    Height = 19
    Caption = #39068#33394'R'#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 136
    Top = 96
    Width = 70
    Height = 19
    Caption = #39068#33394'G'#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 136
    Top = 152
    Width = 70
    Height = 19
    Caption = #39068#33394'B'#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 136
    Top = 208
    Width = 80
    Height = 19
    Caption = #28176#21464#33394#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 136
    Top = 264
    Width = 140
    Height = 19
    Caption = #28176#21464#33394#21021#22987#20540#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 136
    Top = 312
    Width = 140
    Height = 19
    Caption = #28176#21464#33394#32467#26463#20540#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #24188#22278
    Font.Style = []
    ParentFont = False
  end
  object edit1: TEdit
    Left = 264
    Top = 40
    Width = 89
    Height = 21
    TabOrder = 0
    Text = '80'
  end
  object Edit2: TEdit
    Left = 264
    Top = 96
    Width = 89
    Height = 21
    TabOrder = 1
    Text = '100'
  end
  object Edit3: TEdit
    Left = 264
    Top = 152
    Width = 89
    Height = 21
    TabOrder = 2
    Text = '30'
  end
  object Edit4: TEdit
    Left = 264
    Top = 208
    Width = 89
    Height = 21
    TabOrder = 3
    Text = 'G'
  end
  object Edit5: TEdit
    Left = 264
    Top = 264
    Width = 89
    Height = 21
    TabOrder = 4
    Text = '0'
  end
  object Edit6: TEdit
    Left = 264
    Top = 312
    Width = 89
    Height = 21
    TabOrder = 5
    Text = '255'
  end
  object Button1: TButton
    Left = 216
    Top = 384
    Width = 121
    Height = 33
    Caption = #26174#31034
    Font.Charset = ANSI_CHARSET
    Font.Color = clTeal
    Font.Height = -24
    Font.Name = #23435#20307
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
    TabOrder = 6
    OnClick = Button1Click
  end
end