TcyVirtualChart

type TcyVirtualChart = class(TComponent)

protected

  procedure UpdateChartDimensions;

public

  constructor Create(); override;

  function ChartValueToPixelPoint();

  function PixelValueToXAxisValue();

  function PixelValueToYAxisValue();

  procedure Clear();

  procedure DrawHorizontalGuideLine();

  procedure DrawVerticalGuideLine();

  procedure DrawLine();

  procedure DrawText();

  property ChartRect: TRect; [r]

  property ChartWidth: Integer; [r]

  property ChartHeight: Integer; [r]

published

  property Canvas_Width: Word; [rw]

  property Canvas_Height: Word; [rw]

  property Canvas_LeftMargin: Word; [rw]

  property Canvas_TopMargin: Word; [rw]

  property Canvas_RightMargin: Word; [rw]

  property Canvas_BottomMargin: Word; [rw]

  property XAxisMin: Extended; [rw]

  property XAxisMax: Extended; [rw]

  property YAxisMin: Extended; [rw]

  property YAxisMax: Extended; [rw]

end;

TcyVirtualChart

TObject