pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC: remove depricated module rxcustomchartpanel.pas

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4646 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-05-12 05:22:06 +00:00
parent 472fee7c6b
commit adf78c2a5f
4 changed files with 98 additions and 428 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/rx/trunk/registerrx.pas
View File

@ -55,10 +55,8 @@ uses
{$IFDEF USE_TRxAppIcon}
RxAppIcon,
{$ENDIF}
Dialogs, ComponentEditors, DBPropEdits, rxctrls,
RxCustomChartPanel, AutoPanel, pickdate, tooledit, rxclock,
rxspin, RxTimeEdit, rxDateRangeEditUnit,
RxAboutDialog, RxViewsPanel, RxMDI;
Dialogs, ComponentEditors, DBPropEdits, rxctrls, AutoPanel, pickdate, tooledit, rxclock,
rxspin, RxTimeEdit, rxDateRangeEditUnit, RxAboutDialog, RxViewsPanel, RxMDI;
{$IFDEF USE_TRxAppIcon}
procedure RegisterRxAppIcon;
@ -115,11 +113,6 @@ begin
end;
procedure RegisterChartPanel;
begin
RegisterComponents(RxCtrllPageName,[TRxChart]);
end;
procedure RegisterAutoPanel;
begin
RegisterComponents(RxCtrllPageName,[TAutoPanel]);
@ -192,7 +185,6 @@ begin
RegisterUnit('rxappicon', @RegisterRxAppIcon);
{$ENDIF}
RegisterUnit('rxctrls', @RegisterRxCtrls);
RegisterUnit('RxCustomChartPanel', @RegisterChartPanel);
RegisterUnit('AutoPanel', @RegisterAutoPanel);
RegisterUnit('pickdate', @RegisterPickDate);
RegisterUnit('tooledit', @RegisterToolEdit);

318
components/rx/trunk/rxcustomchartpanel.pas
View File

@ -1,318 +0,0 @@
{ rxcustomchartpanel unit
Copyright (C) 2005-2010 Lagunov Aleksey alexs@yandex.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.

184
components/rx/trunk/rxnew.lpk
View File

@ -25,7 +25,7 @@ translate to Lazarus by alexs in 2005 - 2016
"/>
<License Value="LGPL"/>
<Version Major="2" Minor="9" Release="1" Build="183"/>
<Files Count="69">
<Files Count="68">
<Item1>
<Filename Value="autopanel.pas"/>
<UnitName Value="AutoPanel"/>
@ -122,189 +122,185 @@ translate to Lazarus by alexs in 2005 - 2016
<UnitName Value="rxctrls"/>
</Item23>
<Item24>
<Filename Value="rxcustomchartpanel.pas"/>
<UnitName Value="rxcustomchartpanel"/>
</Item24>
<Item25>
<Filename Value="rxdbcolorbox.pas"/>
<UnitName Value="RxDBColorBox"/>
</Item25>
<Item26>
</Item24>
<Item25>
<Filename Value="rxdbcomb.pas"/>
<UnitName Value="rxdbcomb"/>
</Item26>
<Item27>
</Item25>
<Item26>
<Filename Value="rxdbctrls.pas"/>
<UnitName Value="RxDBCtrls"/>
</Item27>
<Item28>
</Item26>
<Item27>
<Filename Value="rxdbgrid.pas"/>
<UnitName Value="rxdbgrid"/>
</Item28>
<Item29>
</Item27>
<Item28>
<Filename Value="rxdbgrid_columsunit.pas"/>
<UnitName Value="rxdbgrid_columsunit"/>
</Item29>
<Item30>
</Item28>
<Item29>
<Filename Value="rxdbgrid_findunit.pas"/>
<UnitName Value="rxdbgrid_findunit"/>
</Item30>
<Item31>
</Item29>
<Item30>
<Filename Value="rxdbspinedit.pas"/>
<UnitName Value="RxDBSpinEdit"/>
</Item31>
<Item32>
</Item30>
<Item31>
<Filename Value="rxdbtimeedit.pas"/>
<UnitName Value="RxDBTimeEdit"/>
</Item32>
<Item33>
</Item31>
<Item32>
<Filename Value="rxdconst.pas"/>
<UnitName Value="rxdconst"/>
</Item33>
<Item34>
</Item32>
<Item33>
<Filename Value="rxdice.pas"/>
<UnitName Value="rxdice"/>
</Item34>
<Item35>
</Item33>
<Item34>
<Filename Value="rxfilterby.pas"/>
<UnitName Value="rxfilterby"/>
</Item35>
<Item36>
</Item34>
<Item35>
<Filename Value="rxiconv.pas"/>
<UnitName Value="rxiconv"/>
</Item36>
<Item37>
</Item35>
<Item36>
<Filename Value="rxlogin.pas"/>
<UnitName Value="rxlogin"/>
</Item37>
<Item38>
</Item36>
<Item37>
<Filename Value="rxlookup.pas"/>
<UnitName Value="rxlookup"/>
</Item38>
<Item39>
</Item37>
<Item38>
<Filename Value="rxmemds.pas"/>
<UnitName Value="rxmemds"/>
</Item39>
<Item40>
</Item38>
<Item39>
<Filename Value="rxpopupunit.pas"/>
<UnitName Value="rxpopupunit"/>
</Item40>
<Item41>
</Item39>
<Item40>
<Filename Value="rxsortmemds.pas"/>
<UnitName Value="rxsortmemds"/>
</Item41>
<Item42>
</Item40>
<Item41>
<Filename Value="rxspin.pas"/>
<UnitName Value="rxspin"/>
</Item42>
<Item43>
</Item41>
<Item42>
<Filename Value="rxswitch.pas"/>
<UnitName Value="rxswitch"/>
</Item43>
<Item44>
</Item42>
<Item43>
<Filename Value="rxsystemservices.pas"/>
<UnitName Value="RxSystemServices"/>
</Item44>
<Item45>
</Item43>
<Item44>
<Filename Value="rxtbrsetup.pas"/>
<UnitName Value="rxtbrsetup"/>
</Item45>
<Item46>
</Item44>
<Item45>
<Filename Value="rxtimeedit.pas"/>
<UnitName Value="RxTimeEdit"/>
</Item46>
<Item47>
</Item45>
<Item46>
<Filename Value="rxtoolbar.pas"/>
<UnitName Value="rxtoolbar"/>
</Item47>
<Item48>
</Item46>
<Item47>
<Filename Value="rxversinfo.pas"/>
<UnitName Value="RxVersInfo"/>
</Item48>
<Item49>
</Item47>
<Item48>
<Filename Value="rxviewspanel.pas"/>
<UnitName Value="RxViewsPanel"/>
</Item49>
<Item50>
</Item48>
<Item49>
<Filename Value="rxxpman.pas"/>
<UnitName Value="rxxpman"/>
</Item50>
<Item51>
</Item49>
<Item50>
<Filename Value="seldsfrm.pas"/>
<UnitName Value="seldsfrm"/>
</Item51>
<Item52>
</Item50>
<Item51>
<Filename Value="tooledit.pas"/>
<UnitName Value="tooledit"/>
</Item52>
<Item53>
</Item51>
<Item52>
<Filename Value="vclutils.pas"/>
<UnitName Value="vclutils"/>
</Item53>
<Item54>
</Item52>
<Item53>
<Filename Value="rxcloseformvalidator.pas"/>
<UnitName Value="RxCloseFormValidator"/>
</Item54>
<Item55>
</Item53>
<Item54>
<Filename Value="rxhistorynavigator.pas"/>
<UnitName Value="RxHistoryNavigator"/>
</Item55>
<Item56>
</Item54>
<Item55>
<Filename Value="ex_rx_bin_datapacket.pas"/>
<UnitName Value="ex_rx_bin_datapacket"/>
</Item56>
<Item57>
</Item55>
<Item56>
<Filename Value="ex_rx_datapacket.pas"/>
<UnitName Value="ex_rx_datapacket"/>
</Item57>
<Item58>
</Item56>
<Item57>
<Filename Value="ex_rx_xml_datapacket.pas"/>
<UnitName Value="ex_rx_xml_datapacket"/>
</Item58>
<Item59>
</Item57>
<Item58>
<Filename Value="rxsortby.lfm"/>
<Type Value="LFM"/>
</Item59>
<Item60>
</Item58>
<Item59>
<Filename Value="rxsortby.pas"/>
<UnitName Value="rxsortby"/>
</Item60>
<Item61>
</Item59>
<Item60>
<Filename Value="rxmdi.pas"/>
<UnitName Value="RxMDI"/>
</Item61>
<Item62>
</Item60>
<Item61>
<Filename Value="rxinipropstorage.pas"/>
<UnitName Value="RxIniPropStorage"/>
</Item62>
<Item63>
</Item61>
<Item62>
<Filename Value="rx_lcl.res"/>
<Type Value="Binary"/>
</Item63>
<Item64>
</Item62>
<Item63>
<Filename Value="rxdaterangeeditunit.pas"/>
<UnitName Value="rxDateRangeEditUnit"/>
</Item64>
<Item65>
</Item63>
<Item64>
<Filename Value="rxdbgridfootertools.pas"/>
<UnitName Value="RxDBGridFooterTools"/>
</Item65>
<Item66>
</Item64>
<Item65>
<Filename Value="rxdbgridfootertools_setup.lfm"/>
<Type Value="LFM"/>
</Item66>
<Item67>
</Item65>
<Item66>
<Filename Value="rxdbgridfootertools_setup.pas"/>
<UnitName Value="rxdbgridfootertools_setup"/>
</Item67>
<Item68>
</Item66>
<Item67>
<Filename Value="rxshortcutunit.lfm"/>
<Type Value="LFM"/>
</Item68>
<Item69>
</Item67>
<Item68>
<Filename Value="rxshortcutunit.pas"/>
<UnitName Value="rxShortCutUnit"/>
</Item69>
</Item68>
</Files>
<LazDoc Paths="docs;\usr\local\share\lazarus\components\rxnew\docs"/>
<i18n>

12
components/rx/trunk/rxnew.pas
View File

@ -11,12 +11,12 @@ uses
AutoPanel, boxprocs, curredit, dbcurredit, dbdateedit, dbutils, duallist,
fduallst, folderlister, pagemngr, pickdate, registerrx, RegisterRxDB,
RegisterRxTools, RxAboutDialog, rxAboutFormUnit, rxappicon, rxapputils,
rxclock, rxconst, rxctrls, rxcustomchartpanel, RxDBColorBox, rxdbcomb,
RxDBCtrls, rxdbgrid, rxdbgrid_columsunit, rxdbgrid_findunit, RxDBSpinEdit,
RxDBTimeEdit, rxdconst, rxdice, rxfilterby, rxiconv, rxlogin, rxlookup,
rxmemds, rxpopupunit, rxsortmemds, rxspin, rxswitch, RxSystemServices,
rxtbrsetup, RxTimeEdit, rxtoolbar, RxVersInfo, RxViewsPanel, rxxpman,
seldsfrm, tooledit, vclutils, RxCloseFormValidator, RxHistoryNavigator,
rxclock, rxconst, rxctrls, RxDBColorBox, rxdbcomb, RxDBCtrls, rxdbgrid,
rxdbgrid_columsunit, rxdbgrid_findunit, RxDBSpinEdit, RxDBTimeEdit,
rxdconst, rxdice, rxfilterby, rxiconv, rxlogin, rxlookup, rxmemds,
rxpopupunit, rxsortmemds, rxspin, rxswitch, RxSystemServices, rxtbrsetup,
RxTimeEdit, rxtoolbar, RxVersInfo, RxViewsPanel, rxxpman, seldsfrm,
tooledit, vclutils, RxCloseFormValidator, RxHistoryNavigator,
ex_rx_bin_datapacket, ex_rx_datapacket, ex_rx_xml_datapacket, rxsortby,
RxMDI, RxIniPropStorage, rxDateRangeEditUnit, RxDBGridFooterTools,
rxdbgridfootertools_setup, rxShortCutUnit, LazarusPackageIntf;