lazarus-ccr/components/rx/rxcustomchartpanel.pas

{ rxcustomchartpanel unit

  Copyright (C) 2005-2010 Lagunov Aleksey alexs@hotbox.ru and Lazarus team
  original conception from rx library for Delphi (c)

  This library is free software; you can redistribute it and/or modify it
  under the terms of the GNU Library General Public License as published by
  the Free Software Foundation; either version 2 of the License, or (at your
  option) any later version with the following modification:

  As a special exception, the copyright holders of this library give you
  permission to link this library with independent modules to produce an
  executable, regardless of the license terms of these independent modules,and
  to copy and distribute the resulting executable under terms of your choice,
  provided that you also meet, for each linked independent module, the terms
  and conditions of the license of that module. An independent module is a
  module which is not derived from or based on this library. If you modify
  this library, you may extend this exception to your version of the library,
  but you are not obligated to do so. If you do not wish to do so, delete this
  exception statement from your version.

  This program is distributed in the hope that it will be useful, but WITHOUT
  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
  for more details.

  You should have received a copy of the GNU Library General Public License
  along with this library; if not, write to the Free Software Foundation,
  Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}

unit rxcustomchartpanel;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type
  TRxCustomChart = class;
  TRxChartSeriesItem = class;
  
  { TRxChartValuesItem }

  TRxChartValuesItem = class(TCollectionItem)
  private
    FCaption: string;
    FColor: TColor;
    FVisible: boolean;
    FLabel:double;
    procedure SetCaption(const AValue: string);
    procedure SetColor(const AValue: TColor);
    procedure SetVisible(const AValue: boolean);
  protected
    function GetDisplayName: string; override;
  public
    constructor Create(ACollection: TCollection); override;
    destructor Destroy; override;
  published
    property Caption:string read FCaption write SetCaption;
    property Color:TColor read FColor write SetColor;
    property Visible:boolean read FVisible write SetVisible;
    property LabelAsFloat:double read FLabel write FLabel;
    property LabelAsDateTime:TDateTime read FLabel write FLabel;
  end;
  
  { TRxChartValues }

  TRxChartValues = class(TCollection)
  private
    FRxChartSeriesItem:TRxChartSeriesItem;
  public
    constructor Create(ARxChartSeriesItem:TRxChartSeriesItem);
  end;
  
  { TRxChartSeriesItem }

  TRxChartSeriesItem = class(TCollectionItem)
  private
    FCaption: string;
    FColor: TColor;
    FVisible: boolean;
    FChartValues:TRxChartValues;
    function GetItems: TRxChartValues;
    procedure SetCaption(const AValue: string);
    procedure SetColor(const AValue: TColor);
    procedure SetItems(const AValue: TRxChartValues);
    procedure SetVisible(const AValue: boolean);
  protected
    function GetDisplayName: string; override;
  public
    constructor Create(ACollection: TCollection); override;
    destructor Destroy; override;
  published
    property Values:TRxChartValues read GetItems write SetItems;
    property Caption:string read FCaption write SetCaption;
    property Color:TColor read FColor write SetColor;
    property Visible:boolean read FVisible write SetVisible;
  end;

  { TRxChartSeries }

  TRxChartSeries = class(TCollection)
  private
    FChart:TRxCustomChart;
    function GetToolbarItem(Index: Integer): TRxChartSeriesItem;
    procedure SetToolbarItem(Index: Integer; const AValue: TRxChartSeriesItem);
  public
    constructor Create(AChart:TRxCustomChart);
    property Items[Index: Integer]: TRxChartSeriesItem read GetToolbarItem write SetToolbarItem; default;
  published
  end;

  { TRxCustomChart }

  TRxCustomChart = class(TCustomPanel)
  private
    FChartSeries:TRxChartSeries;
    function GetItems: TRxChartSeries;
    procedure SetItems(const AValue: TRxChartSeries);
    { Private declarations }
  protected
    property ChartSeries:TRxChartSeries read GetItems write SetItems;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
  end;

  TRxChart = class(TRxCustomChart)
  published
    property ChartSeries;
  
    property Align;
    property Alignment;
    property Anchors;
    property AutoSize;
    property BorderSpacing;
    property BevelInner;
    property BevelOuter;
    property BevelWidth;
    property BorderWidth;
    property BorderStyle;
    property Caption;
    property Constraints;
    property DragMode;
    property Enabled;
    property Font;
    property FullRepaint;
    property ParentColor;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;
    property ShowHint;
    property TabOrder;
    property TabStop;
    property Visible;
    property OnClick;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnResize;
    property OnStartDrag;
  end;
  
implementation



{ TRxChartSeriesItem }

procedure TRxChartSeriesItem.SetCaption(const AValue: string);
begin
  if FCaption=AValue then exit;
  FCaption:=AValue;
end;

function TRxChartSeriesItem.GetItems: TRxChartValues;
begin
  Result:=FChartValues;
end;

procedure TRxChartSeriesItem.SetColor(const AValue: TColor);
begin
  if FColor=AValue then exit;
  FColor:=AValue;
end;

procedure TRxChartSeriesItem.SetItems(const AValue: TRxChartValues);
begin
  FChartValues.Assign(AValue);
end;

procedure TRxChartSeriesItem.SetVisible(const AValue: boolean);
begin
  if FVisible=AValue then exit;
  FVisible:=AValue;
end;

function TRxChartSeriesItem.GetDisplayName: string;
begin
  if FCaption<>'' then
    Result:=FCaption
  else
    Result:=inherited GetDisplayName;
end;

constructor TRxChartSeriesItem.Create(ACollection: TCollection);
begin
  inherited Create(ACollection);
  FChartValues:=TRxChartValues.Create(Self);
end;

destructor TRxChartSeriesItem.Destroy;
begin
  FreeAndNil(FChartValues);
  inherited Destroy;
end;

{ TRxChartSeries }

function TRxChartSeries.GetToolbarItem(Index: Integer): TRxChartSeriesItem;
begin
  result := TRxChartSeriesItem( inherited Items[Index] );
end;

procedure TRxChartSeries.SetToolbarItem(Index: Integer;
  const AValue: TRxChartSeriesItem);
begin
  Items[Index].Assign( AValue );
end;

constructor TRxChartSeries.Create(AChart: TRxCustomChart);
begin
  inherited Create(TRxChartSeriesItem);
  FChart:=AChart;
end;

{ TRxCustomChart }

function TRxCustomChart.GetItems: TRxChartSeries;
begin
  Result:=FChartSeries;
end;

procedure TRxCustomChart.SetItems(const AValue: TRxChartSeries);
begin
  FChartSeries.Assign(AValue);
end;

constructor TRxCustomChart.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FChartSeries:=TRxChartSeries.Create(Self);
end;

destructor TRxCustomChart.Destroy;
begin
  FreeAndNil(FChartSeries);
  inherited Destroy;
end;

{ TRxChartValues }

constructor TRxChartValues.Create(ARxChartSeriesItem: TRxChartSeriesItem);
begin
  inherited Create(TRxChartValuesItem);
  FRxChartSeriesItem := ARxChartSeriesItem;
end;

{ TRxChartValuesItem }

procedure TRxChartValuesItem.SetCaption(const AValue: string);
begin
  if FCaption=AValue then exit;
  FCaption:=AValue;
end;

procedure TRxChartValuesItem.SetColor(const AValue: TColor);
begin
  if FColor=AValue then exit;
  FColor:=AValue;
end;

procedure TRxChartValuesItem.SetVisible(const AValue: boolean);
begin
  if FVisible=AValue then exit;
  FVisible:=AValue;
end;

function TRxChartValuesItem.GetDisplayName: string;
begin
  if FCaption<>'' then
    Result:=FCaption
  else
    Result:=inherited GetDisplayName;
end;

constructor TRxChartValuesItem.Create(ACollection: TCollection);
begin
  inherited Create(ACollection);
end;

destructor TRxChartValuesItem.Destroy;
begin
  inherited Destroy;
end;

end.