赞
踩
for i:=0 to bitMap.Height-1 do begin bitMap.Canvas.Pen.Color := clGreen - (i * setup); bitMap.Canvas.MoveTo(0, i); bitMap.Canvas.LineTo(bitMap.Width, i); end;