delphi方面问题，

用GDI

无非是画表格,画曲线, 跟windows的看cpu使用率差不多
------------------------
procedure TLineControl.DrawGrid;
var
XPos, YPos: Integer;
begin
Canvas.Pen.Color := FGridColor;
YPos := FGridDistanceY;
while YPos < Height do
begin
Canvas.MoveTo(0, YPos);
Canvas.LineTo(Width, YPos);
Inc(YPos, FGridDistanceY);
end;
XPos := FGridDistanceX + FGridOffset;
while XPos < Width do
begin
Canvas.MoveTo(XPos, 0);
Canvas.LineTo(XPos, Height);
Inc(XPos, FGridDistanceX);
end;
end;
-----------------
procedure TLineControl.DrawLine;
var
i: Integer;
pt1, pt2: TSmallPoint;
begin
Canvas.Pen.Color := FLineColor;
for i := 0 to FList.Count - 2 do
begin
pt1 := TSmallPoint(FList[i]);
pt2 := TSmallPoint(FList[i + 1]);
Canvas.MoveTo(pt1.x, pt1.y);
Canvas.LineTo(pt2.x, pt2.y)