TplMultiGraph

type TplMultiGraph = class(TCustomControl)

protected

  frag: TRAG;

  fGridStepHorz: Integer;

  fGridStepVert: Integer;

  fGridColor: TColor;

  fGridWidth: Integer;

  fXScalar: real;

  fValueOffsetPercentage: Integer;

  fTextColor: TColor;

  fTextBackground: Boolean;

  fTextLeftTop: string;

  fTextRightTop: string;

  fTextLeftBottom: string;

  fTextRightBottom: string;

  procedure SetGridStepHorz();

  procedure SetGridStepVert();

  procedure SetGridColor();

  procedure SetGridWidth();

  procedure SetXScalar();

  procedure SetValueOffsetPercentage();

  procedure SetTextColor();

  procedure SetTextBackground();

  procedure SetTextLeftTop();

  procedure SetTextRightTop();

  procedure SetTextLeftBottom();

  procedure SetTextRightBottom();

  procedure FontChanged(); override;

  procedure SetColor(); override;

  procedure Paint; override;

  procedure Resize; override;

  procedure CreateGraph;

public

  constructor Create(); override;

  destructor Destroy; override;

  property TheGraph: TRAG; [r]

published

  property GridStepHorz: Integer; [rw]

  property GridStepVert: Integer; [rw]

  property GridColor: TColor; [rw]

  property GridWidth: Integer; [rw]

  property GridXScalar: real; [rw]

  property GridValueOffsetPercentage: Integer; [rw]

  property GridTextColor: TColor; [rw]

  property GridTextBackground: Boolean; [rw]

  property GridTextLeftTop: string; [rw]

  property GridTextRightTop: string; [rw]

  property GridTextLeftBottom: string; [rw]

  property GridTextRightBottom: string; [rw]

  property Align;

  property Visible;

  property Color;

  property Enabled;

  property Font;

  property ParentColor;

  property ParentFont;

  property ParentShowHint;

  property ShowHint;

  property Anchors;

  property BiDiMode; [w]

  property Constraints;

  property DragKind;

  property ParentBiDiMode;

  property OnClick;

  property OnDblClick;

  property OnPaint;

  property OnResize;

  property OnChangeBounds;

  property OnContextPopup;

  property OnEndDrag;

  property OnMouseDown;

  property OnMouseUp;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseMove;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnMouseWheelHorz;

  property OnMouseWheelLeft;

  property OnMouseWheelRight;

  property OnDragDrop;

  property OnDragOver;

  property OnStartDrag;

  property OnStartDock;

  property OnEndDock;

end;

TplMultiGraph

TObject