许明吉博客

摘要： procedure TForm1.DrawBackground;var FScale : integer; FGridX :double; FGridY :double; procedure Line(x, y, x1, y1: Integer); begin Canvas.MoveTo(x, y); Canvas.LineTo(x1, y1); end; function ReverseColor(AColor: TColor): TColor; var iR0, iR1, iG0, iG1, iB0, iB1: integer; begin iR0 := GetRValue(AColor) 阅读全文