Delphi與DirectX之DelphiX(81): TDIB.ColoredLine();(2)

窗體文件:

object Form1: TForm1
　 Left = 0
　 Top = 0
　 Caption = 'Form1'
　 ClIEntHeight = 214
　 ClIEntWidth = 335
　 Color = clBtnFace
　 Font.Charset = DEFAULT_CHARSET
　 Font.Color = clWindowText
　 Font.Height = -11
　 Font.Name = 'Tahoma'
　 Font.Style = []
　 OldCreateOrder = False
　 OnCreate = FormCreate
　 PixelsPerInch = 96
　 TextHeight = 13
　 object DXPaintBox1: TDXPaintBox
　　 Left = 0
　　 Top = 0
　　 Width = 121
　　 Height = 129
　　 AutoStretch = False
　　 Center = False
　　 KeepASPect = False
　　 Stretch = False
　　 VIEwWidth = 0
　　 VIEwHeight = 0
　 end
　 object RadioGroup1: TRadioGroup
　　 Left = 8
　　 Top = 135
　　 Width = 97
　　 Height = 71
　　 Caption = 'RadioGroup1'
　　 TabOrder = 0
　 end
　 object RadioGroup2: TRadioGroup
　　 Left = 111
　　 Top = 135
　　 Width = 138
　　 Height = 71
　　 Caption = 'RadioGroup2'
　　 TabOrder = 1
　 end
　 object Button1: TButton
　　 Left = 255
　　 Top = 181
　　 Width = 75
　　 Height = 25
　　 Caption = 'Button1'
　　 TabOrder = 2
　　 OnClick = Button1Click
　 end
　 object LabeledEdit1: TLabeledEdit
　　 Left = 263
　　 Top = 154
　　 Width = 43
　　 Height = 21
　　 EditLabel.Width = 61
　　 EditLabel.Height = 13
　　 EditLabel.Caption = 'LabeledEdit1'
　　 TabOrder = 3
　 end
end