829 lines
23 KiB
ObjectPascal
829 lines
23 KiB
ObjectPascal
|
|
||
|
|
{******************************************}
|
||
|
|
{ }
|
||
|
|
{ FastReport v4.0 }
|
||
|
|
{ Chart design editor }
|
||
|
|
{ }
|
||
|
|
{ Copyright (c) 1998-2008 }
|
||
|
|
{ by Alexander Tzyganenko, }
|
||
|
|
{ Fast Reports Inc. }
|
||
|
|
{ }
|
||
|
|
{******************************************}
|
||
|
|
|
||
|
|
unit FMX.frxChartEditor;
|
||
|
|
|
||
|
|
interface
|
||
|
|
{$I frx.inc}
|
||
|
|
{$I tee.inc}
|
||
|
|
uses
|
||
|
|
System.SysUtils, System.Classes, System.UITypes, FMX.Controls, FMX.Forms, FMX.Dialogs,
|
||
|
|
FMX.Menus, FMX.ExtCtrls, FMX.frxClass, FMX.frxChart, FMX.frxCustomEditors,
|
||
|
|
FMX.frxCtrls, FMX.frxInsp, FMX.Edit, FMX.ListBox, FMX.Layouts, FMX.TreeView,
|
||
|
|
FMX.Types, FMXTee.Procs, FMXTee.Engine, FMXTee.Chart, FMXTee.Series, {$IFDEF TeeChartPro}FMXTee.Commander, FMXTee.Editor.EditorPanel,{$ENDIF}
|
||
|
|
System.Variants, FMX.frxFMX, FMXTee.Chart.GalleryPanel, FMX.frxBaseModalForm
|
||
|
|
{$IFDEF DELPHI18}
|
||
|
|
,FMX.StdCtrls
|
||
|
|
{$ENDIF}
|
||
|
|
{$IFDEF DELPHI19}
|
||
|
|
, FMX.Graphics
|
||
|
|
{$ENDIF}
|
||
|
|
{$IFDEF DELPHI21}
|
||
|
|
, FMX.ComboEdit, FMX.Controls.Presentation
|
||
|
|
{$ENDIF}
|
||
|
|
{$IFDEF DELPHI28}
|
||
|
|
, FMX.BaseTypeAliases, FMX.FormTypeAliases
|
||
|
|
{$ENDIF};
|
||
|
|
|
||
|
|
|
||
|
|
type
|
||
|
|
TfrxChartEditor = class(TfrxViewEditor)
|
||
|
|
public
|
||
|
|
function Edit: Boolean; override;
|
||
|
|
function HasEditor: Boolean; override;
|
||
|
|
procedure GetMenuItems(OnClickEvent: TNotifyEvent); override;
|
||
|
|
function Execute(Tag: Integer; Checked: Boolean): Boolean; override;
|
||
|
|
end;
|
||
|
|
|
||
|
|
{$IFDEF LINUX}
|
||
|
|
TfrxChartEditorForm = class(TfrxForm)
|
||
|
|
{$ELSE}
|
||
|
|
TfrxChartEditorForm = class(TForm)
|
||
|
|
{$ENDIF}
|
||
|
|
OkB: TButton;
|
||
|
|
Panel1: TPanel;
|
||
|
|
Panel2: TPanel;
|
||
|
|
CancelB: TButton;
|
||
|
|
SourcePanel: TPanel;
|
||
|
|
DataSourceGB: TGroupBox;
|
||
|
|
DBSourceRB: TRadioButton;
|
||
|
|
BandSourceRB: TRadioButton;
|
||
|
|
FixedDataRB: TRadioButton;
|
||
|
|
DatasetsCB: TComboBox;
|
||
|
|
DatabandsCB: TComboBox;
|
||
|
|
ValuesGB: TGroupBox;
|
||
|
|
Values1CB: TComboEdit;
|
||
|
|
Values1L: TLabel;
|
||
|
|
Values2L: TLabel;
|
||
|
|
Values2CB: TComboEdit;
|
||
|
|
Values3L: TLabel;
|
||
|
|
Values3CB: TComboEdit;
|
||
|
|
Values4L: TLabel;
|
||
|
|
Values4CB: TComboEdit;
|
||
|
|
OptionsGB: TGroupBox;
|
||
|
|
ShowTopLbl: TLabel;
|
||
|
|
CaptionLbl: TLabel;
|
||
|
|
SortLbl: TLabel;
|
||
|
|
XLbl: TLabel;
|
||
|
|
TopNE: TEdit;
|
||
|
|
TopNCaptionE: TEdit;
|
||
|
|
SortCB: TComboBox;
|
||
|
|
XTypeCB: TComboBox;
|
||
|
|
InspSite: TPanel;
|
||
|
|
Values5L: TLabel;
|
||
|
|
Values5CB: TComboEdit;
|
||
|
|
HintL: TLabel;
|
||
|
|
Values6L: TLabel;
|
||
|
|
Values6CB: TComboEdit;
|
||
|
|
Panel3: TPanel;
|
||
|
|
TreePanel: TPanel;
|
||
|
|
AddB: TSpeedButton;
|
||
|
|
DeleteB: TSpeedButton;
|
||
|
|
EditB: TSpeedButton;
|
||
|
|
UPB: TSpeedButton;
|
||
|
|
DownB: TSpeedButton;
|
||
|
|
ChartTree: TfrxTreeView;
|
||
|
|
procedure FormShow(Sender: TObject);
|
||
|
|
procedure ChartTreeClick(Sender: TObject);
|
||
|
|
procedure AddBClick(Sender: TObject);
|
||
|
|
procedure DeleteBClick(Sender: TObject);
|
||
|
|
procedure DoClick(Sender: TObject);
|
||
|
|
procedure FormCreate(Sender: TObject);
|
||
|
|
procedure UpDown1Click(Sender: TObject);
|
||
|
|
procedure FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);
|
||
|
|
procedure DatasetsCBClick(Sender: TObject);
|
||
|
|
procedure DatabandsCBClick(Sender: TObject);
|
||
|
|
procedure DBSourceRBClick(Sender: TObject);
|
||
|
|
procedure OkBClick(Sender: TObject);
|
||
|
|
procedure EditBClick(Sender: TObject);
|
||
|
|
procedure ChartTreeEdited(Sender: TObject; Node: TfrxTreeViewItem;
|
||
|
|
var S: String);
|
||
|
|
procedure ChartTreeEditing(Sender: TObject; OldNode: TfrxTreeViewItem; NewNode: TfrxTreeViewItem);
|
||
|
|
procedure UPBClick(Sender: TObject);
|
||
|
|
procedure DownBClick(Sender: TObject);
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
FChart: TfrxChartView;
|
||
|
|
FCurSeries: TfrxSeriesItem;
|
||
|
|
FInspector: TfrxObjectInspector;
|
||
|
|
FModified: Boolean;
|
||
|
|
FReport: TfrxReport;
|
||
|
|
FUpdating: Boolean;
|
||
|
|
FValuesGBHeight: Single;
|
||
|
|
procedure FillDropDownLists(ds: TfrxDataset);
|
||
|
|
procedure SetCurSeries(const Value: TfrxSeriesItem);
|
||
|
|
procedure SetModified(const Value: Boolean);
|
||
|
|
procedure ShowSeriesData;
|
||
|
|
procedure UpdateSeriesData;
|
||
|
|
property Modified: Boolean read FModified write SetModified;
|
||
|
|
property CurSeries: TfrxSeriesItem read FCurSeries write SetCurSeries;
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
constructor Create(AOwner: TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
property Chart: TfrxChartView read FChart write FChart;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses FMX.frxDsgnIntf, FMX.frxUtils, FMX.frxRes, FMX.frxChartHelpers, FMX.frxChartGallery;
|
||
|
|
//{$IFDEF DELPHI16}
|
||
|
|
//{$IFDEF TeeChartPro}, VCLTee.TeeEdit{$IFNDEF TeeChart4}, VCLTee.TeeEditCha{$ENDIF} {$ENDIF};
|
||
|
|
//{$ELSE}
|
||
|
|
//{$IFDEF TeeChartPro}, TeeEdit{$IFNDEF TeeChart4}, TeeEditCha{$ENDIF} {$ENDIF};
|
||
|
|
//{$ENDIF}
|
||
|
|
|
||
|
|
{$R *.FMX}
|
||
|
|
|
||
|
|
type
|
||
|
|
THackControl = class(TControl);
|
||
|
|
|
||
|
|
|
||
|
|
{ TfrxChartEditor }
|
||
|
|
|
||
|
|
function TfrxChartEditor.HasEditor: Boolean;
|
||
|
|
begin
|
||
|
|
Result := True;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TfrxChartEditor.Edit: Boolean;
|
||
|
|
begin
|
||
|
|
with TfrxChartEditorForm.Create(Designer) do
|
||
|
|
begin
|
||
|
|
Chart.Assign(TfrxChartView(Component));
|
||
|
|
FormShow(Self);
|
||
|
|
Result := ShowModal = mrOk;
|
||
|
|
Self.Designer.PeekLastModalResult;
|
||
|
|
if Result then
|
||
|
|
TfrxChartView(Component).Assign(Chart);
|
||
|
|
Free;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TfrxChartEditor.Execute(Tag: Integer; Checked: Boolean): Boolean;
|
||
|
|
var
|
||
|
|
i: Integer;
|
||
|
|
c: TfrxComponent;
|
||
|
|
v: TfrxChartView;
|
||
|
|
begin
|
||
|
|
Result := inherited Execute(Tag, Checked);
|
||
|
|
for i := 0 to Designer.SelectedObjects.Count - 1 do
|
||
|
|
begin
|
||
|
|
c := Designer.SelectedObjects[i];
|
||
|
|
if (c is TfrxChartView) and not (rfDontModify in c.Restrictions) then
|
||
|
|
begin
|
||
|
|
v := TfrxChartView(c);
|
||
|
|
if Tag = 1 then
|
||
|
|
v.Chart.View3D := Checked
|
||
|
|
else if Tag = 2 then
|
||
|
|
v.Chart.AxisVisible := Checked;
|
||
|
|
Result := True;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditor.GetMenuItems(OnClickEvent: TNotifyEvent);
|
||
|
|
var
|
||
|
|
v: TfrxChartView;
|
||
|
|
begin
|
||
|
|
v := TfrxChartView(Component);
|
||
|
|
AddItem(frxResources.Get('ch3D'), 1, v.Chart.View3D);
|
||
|
|
AddItem(frxResources.Get('chAxis'), 2, v.Chart.AxisVisible);
|
||
|
|
inherited;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
{ TfrxChartEditorForm }
|
||
|
|
|
||
|
|
constructor TfrxChartEditorForm.Create(AOwner: TComponent);
|
||
|
|
var
|
||
|
|
bmp: TBitmap;
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
FReport := TfrxCustomDesigner(AOwner).Report;
|
||
|
|
FChart := TfrxChartView.Create(FReport);
|
||
|
|
FInspector := TfrxObjectInspector.Create(Owner);
|
||
|
|
with FInspector do
|
||
|
|
begin
|
||
|
|
SplitterPos := InspSite.Width / 2;
|
||
|
|
Box.Parent := InspSite;
|
||
|
|
Box.Align := alClient;
|
||
|
|
end;
|
||
|
|
|
||
|
|
{ add chart image }
|
||
|
|
bmp := TBitmap.Create(24, 24);
|
||
|
|
//frxResources.LoadImageFromResouce(
|
||
|
|
//ObjectImages.Draw(bmp.Canvas, 0, 0, 25);
|
||
|
|
//frxAssignImages(bmp, 24, 24, ChartImages);
|
||
|
|
bmp.Free;
|
||
|
|
FValuesGBHeight := ValuesGB.Height;
|
||
|
|
{$IFDEF TeeChartPro}
|
||
|
|
EditB.Visible := True;
|
||
|
|
{$ENDIF}
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TfrxChartEditorForm.Destroy;
|
||
|
|
begin
|
||
|
|
FChart.Free;
|
||
|
|
inherited;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.FormShow(Sender: TObject);
|
||
|
|
|
||
|
|
procedure FillChartTree;
|
||
|
|
var
|
||
|
|
i: Integer;
|
||
|
|
n: TfrxTreeViewItem;
|
||
|
|
begin
|
||
|
|
for i := 0 to FChart.Chart.SeriesCount - 1 do
|
||
|
|
begin
|
||
|
|
|
||
|
|
n := ChartTree.AddItem(ChartTree.Items[0], GetGallerySeriesName(FChart.Chart.Series[i]) + ' - ' + FChart.Chart.Series[i].Name);
|
||
|
|
|
||
|
|
n.OpenImageIndex := 0;
|
||
|
|
n.CloseImageIndex := 0;
|
||
|
|
end;
|
||
|
|
|
||
|
|
ChartTree.ExpandAll;
|
||
|
|
ChartTree.Selected := ChartTree.Items[0];
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure FillBandsList;
|
||
|
|
var
|
||
|
|
i: Integer;
|
||
|
|
c: TfrxComponent;
|
||
|
|
begin
|
||
|
|
for i := 0 to FReport.Designer.Objects.Count - 1 do
|
||
|
|
begin
|
||
|
|
c := FReport.Designer.Objects[i];
|
||
|
|
if c is TfrxDataBand then
|
||
|
|
DatabandsCB.Items.Add(c.Name);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
ChartTree.AddItem(ChartTree, 'Root');
|
||
|
|
FReport.GetDatasetList(DatasetsCB.Items);
|
||
|
|
FillBandsList;
|
||
|
|
FillChartTree;
|
||
|
|
CurSeries := nil;
|
||
|
|
//Constraints.MinWidth := Width;
|
||
|
|
//Constraints.MinHeight := Height;
|
||
|
|
//Constraints.MaxHeight := Height;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.ShowSeriesData;
|
||
|
|
var
|
||
|
|
Helper: TfrxSeriesHelper;
|
||
|
|
sl: TStrings;
|
||
|
|
NewHeight: Single;
|
||
|
|
begin
|
||
|
|
FUpdating := True;
|
||
|
|
|
||
|
|
if FCurSeries <> nil then
|
||
|
|
with FCurSeries do
|
||
|
|
begin
|
||
|
|
if DataType = dtDBData then
|
||
|
|
DBSourceRB.IsChecked := True
|
||
|
|
else if DataType = dtBandData then
|
||
|
|
BandSourceRB.IsChecked := True
|
||
|
|
else if DataType = dtFixedData then
|
||
|
|
FixedDataRB.IsChecked := True;
|
||
|
|
if Values1CB.Count > 0 then
|
||
|
|
Values1CB.ItemIndex := Values1CB.Items.IndexOf(FCurSeries.Source1)
|
||
|
|
else
|
||
|
|
Values1CB.Text := FCurSeries.Source1;
|
||
|
|
|
||
|
|
if Values2CB.Count > 0 then
|
||
|
|
Values2CB.ItemIndex := Values2CB.Items.IndexOf(FCurSeries.Source2)
|
||
|
|
else
|
||
|
|
Values2CB.Text := FCurSeries.Source2;
|
||
|
|
if Values3CB.Count > 0 then
|
||
|
|
Values3CB.ItemIndex := Values3CB.Items.IndexOf(FCurSeries.Source3)
|
||
|
|
else
|
||
|
|
Values3CB.Text := FCurSeries.Source3;
|
||
|
|
if Values4CB.Count > 0 then
|
||
|
|
Values4CB.ItemIndex := Values4CB.Items.IndexOf(FCurSeries.Source4)
|
||
|
|
else
|
||
|
|
Values4CB.Text := FCurSeries.Source4;
|
||
|
|
if Values5CB.Count > 0 then
|
||
|
|
Values5CB.ItemIndex := Values5CB.Items.IndexOf(FCurSeries.Source5)
|
||
|
|
else
|
||
|
|
Values5CB.Text := FCurSeries.Source5;
|
||
|
|
if Values6CB.Count > 0 then
|
||
|
|
Values6CB.ItemIndex := Values6CB.Items.IndexOf(FCurSeries.Source6)
|
||
|
|
else
|
||
|
|
Values6CB.Text := FCurSeries.Source6;
|
||
|
|
Helper := frxFindSeriesHelper(FChart.Chart.Series[FCurSeries.Index]);
|
||
|
|
sl := TStringList.Create;
|
||
|
|
frxSetCommaText(Helper.GetParamNames, sl);
|
||
|
|
|
||
|
|
NewHeight := FValuesGBHeight;
|
||
|
|
Values2CB.Visible := sl.Count >= 2;
|
||
|
|
Values2L.Visible := sl.Count >= 2;
|
||
|
|
if not Values2CB.Visible then
|
||
|
|
NewHeight := NewHeight - (Values2CB.Height + 4);
|
||
|
|
Values3CB.Visible := sl.Count >= 3;
|
||
|
|
Values3L.Visible := sl.Count >= 3;
|
||
|
|
if not Values3CB.Visible then
|
||
|
|
NewHeight := NewHeight - (Values3CB.Height + 4);
|
||
|
|
Values4CB.Visible := sl.Count >= 4;
|
||
|
|
Values4L.Visible := sl.Count >= 4;
|
||
|
|
if not Values4CB.Visible then
|
||
|
|
NewHeight := NewHeight - (Values4CB.Height + 4);
|
||
|
|
Values5CB.Visible := sl.Count >= 5;
|
||
|
|
Values5L.Visible := sl.Count >= 5;
|
||
|
|
if not Values5CB.Visible then
|
||
|
|
NewHeight := NewHeight - (Values5CB.Height + 4);
|
||
|
|
Values6CB.Visible := sl.Count >= 6;
|
||
|
|
Values6L.Visible := sl.Count >= 6;
|
||
|
|
if not Values6CB.Visible then
|
||
|
|
NewHeight := NewHeight - (Values6CB.Height + 4);
|
||
|
|
|
||
|
|
ValuesGB.Height := NewHeight;
|
||
|
|
OptionsGB.Position.Y := ValuesGB.Position.Y + ValuesGB.Height + 8;
|
||
|
|
|
||
|
|
if sl.Count > 0 then
|
||
|
|
Values1L.Text := sl[0];
|
||
|
|
if sl.Count > 1 then
|
||
|
|
Values2L.Text := sl[1];
|
||
|
|
if sl.Count > 2 then
|
||
|
|
Values3L.Text := sl[2];
|
||
|
|
if sl.Count > 3 then
|
||
|
|
Values4L.Text := sl[3];
|
||
|
|
if sl.Count > 4 then
|
||
|
|
Values5L.Text := sl[4];
|
||
|
|
if sl.Count > 5 then
|
||
|
|
Values6L.Text := sl[5];
|
||
|
|
|
||
|
|
sl.Free;
|
||
|
|
Helper.Free;
|
||
|
|
|
||
|
|
|
||
|
|
if DataSet = nil then
|
||
|
|
DatasetsCB.ItemIndex := -1
|
||
|
|
else
|
||
|
|
begin
|
||
|
|
DatasetsCB.ItemIndex := DatasetsCB.Items.IndexOf(FReport.GetAlias(DataSet));
|
||
|
|
DatasetsCBClick(nil);
|
||
|
|
end;
|
||
|
|
|
||
|
|
if DataBand = nil then
|
||
|
|
DatabandsCB.ItemIndex := -1
|
||
|
|
else
|
||
|
|
begin
|
||
|
|
DatabandsCB.ItemIndex := DatabandsCB.Items.IndexOf(DataBand.Name);
|
||
|
|
DatabandsCBClick(nil);
|
||
|
|
end;
|
||
|
|
|
||
|
|
TopNE.Text := IntToStr(TopN);
|
||
|
|
TopNCaptionE.Text := TopNCaption;
|
||
|
|
SortCB.ItemIndex := Integer(SortOrder);
|
||
|
|
XTypeCB.ItemIndex := Integer(XType);
|
||
|
|
end;
|
||
|
|
|
||
|
|
FUpdating := False;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.UpdateSeriesData;
|
||
|
|
begin
|
||
|
|
if FCurSeries <> nil then
|
||
|
|
with FCurSeries do
|
||
|
|
begin
|
||
|
|
if DBSourceRB.IsChecked then
|
||
|
|
DataType := dtDBData
|
||
|
|
else if BandSourceRB.IsChecked then
|
||
|
|
DataType := dtBandData
|
||
|
|
else if FixedDataRB.IsChecked then
|
||
|
|
DataType := dtFixedData;
|
||
|
|
|
||
|
|
if DatabandsCB.ItemIndex <> -1 then
|
||
|
|
DataBand := TfrxDataBand(FReport.FindObject(DatabandsCB.Items[DatabandsCB.ItemIndex]))
|
||
|
|
else
|
||
|
|
DataBand := nil;
|
||
|
|
if DatasetsCB.ItemIndex <> -1 then
|
||
|
|
DataSet := FReport.GetDataSet(DatasetsCB.Items[DatasetsCB.ItemIndex])
|
||
|
|
else
|
||
|
|
DataSet := nil;
|
||
|
|
|
||
|
|
// if Values1CB.Selected <> nil then
|
||
|
|
// Source1 := Values1CB.Selected.Text;
|
||
|
|
// if Values2CB.Selected <> nil then
|
||
|
|
// Source2 := Values2CB.Selected.Text;
|
||
|
|
// if Values3CB.Selected <> nil then
|
||
|
|
// Source3 := Values3CB.Selected.Text;
|
||
|
|
// if Values4CB.Selected <> nil then
|
||
|
|
// Source4 := Values4CB.Selected.Text;
|
||
|
|
// if Values5CB.Selected <> nil then
|
||
|
|
// Source5 := Values5CB.Selected.Text;
|
||
|
|
// if Values6CB.Selected <> nil then
|
||
|
|
// Source6 := Values6CB.Selected.Text;
|
||
|
|
|
||
|
|
|
||
|
|
Source1 := Values1CB.Text;
|
||
|
|
Source2 := Values2CB.Text;
|
||
|
|
Source3 := Values3CB.Text;
|
||
|
|
Source4 := Values4CB.Text;
|
||
|
|
Source5 := Values5CB.Text;
|
||
|
|
Source6 := Values6CB.Text;
|
||
|
|
|
||
|
|
SortOrder := TfrxSeriesSortOrder(SortCB.ItemIndex);
|
||
|
|
TopN := StrToInt(TopNE.Text);
|
||
|
|
TopNCaption := TopNCaptionE.Text;
|
||
|
|
XType := TfrxSeriesXType(XTypeCB.ItemIndex);
|
||
|
|
end;
|
||
|
|
|
||
|
|
Modified := False;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.SetCurSeries(const Value: TfrxSeriesItem);
|
||
|
|
var
|
||
|
|
InspectObj: TPersistent;
|
||
|
|
begin
|
||
|
|
if Modified then
|
||
|
|
UpdateSeriesData;
|
||
|
|
FCurSeries := Value;
|
||
|
|
|
||
|
|
if FCurSeries = nil then
|
||
|
|
InspectObj := FChart.Chart
|
||
|
|
else
|
||
|
|
begin
|
||
|
|
InspectObj := FChart.Chart.Series[FCurSeries.Index];
|
||
|
|
UPB.Enabled := FCurSeries.Index > 0;
|
||
|
|
DownB.Enabled := (FCurSeries.Index < FChart.Chart.SeriesCount) and (FChart.Chart.SeriesCount <> FCurSeries.Index + 1);
|
||
|
|
end;
|
||
|
|
FInspector.Inspect([InspectObj]);
|
||
|
|
SourcePanel.Visible := FCurSeries <> nil;
|
||
|
|
HintL.Visible := not SourcePanel.Visible;
|
||
|
|
DeleteB.Visible := FCurSeries <> nil;
|
||
|
|
UPB.Visible := (FCurSeries <> nil);
|
||
|
|
DownB.Visible := (FCurSeries <> nil);
|
||
|
|
ShowSeriesData;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.SetModified(const Value: Boolean);
|
||
|
|
begin
|
||
|
|
if not FUpdating then
|
||
|
|
FModified := Value;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.FillDropDownLists(ds: TfrxDataset);
|
||
|
|
var
|
||
|
|
l: TStringList;
|
||
|
|
i: Integer;
|
||
|
|
begin
|
||
|
|
if ds = nil then
|
||
|
|
begin
|
||
|
|
{$IFDEF DELPHI23}
|
||
|
|
Values1CB.Clear;
|
||
|
|
Values2CB.Clear;
|
||
|
|
Values3CB.Clear;
|
||
|
|
Values4CB.Clear;
|
||
|
|
Values5CB.Clear;
|
||
|
|
Values6CB.Clear;
|
||
|
|
{$ELSE}
|
||
|
|
Values1CB.Items.Clear;
|
||
|
|
Values2CB.Items.Clear;
|
||
|
|
Values3CB.Items.Clear;
|
||
|
|
Values4CB.Items.Clear;
|
||
|
|
Values5CB.Items.Clear;
|
||
|
|
Values6CB.Items.Clear;
|
||
|
|
{$ENDIF}
|
||
|
|
end
|
||
|
|
else
|
||
|
|
begin
|
||
|
|
l := TStringList.Create;
|
||
|
|
try
|
||
|
|
ds.GetFieldList(l);
|
||
|
|
for i := 0 to l.Count - 1 do
|
||
|
|
l[i] := FReport.GetAlias(ds) + '."' + l[i] + '"';
|
||
|
|
|
||
|
|
Values1CB.Items := l;
|
||
|
|
Values2CB.Items := l;
|
||
|
|
Values3CB.Items := l;
|
||
|
|
Values4CB.Items := l;
|
||
|
|
Values5CB.Items := l;
|
||
|
|
Values6CB.Items := l;
|
||
|
|
finally
|
||
|
|
l.Free;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.ChartTreeClick(Sender: TObject);
|
||
|
|
var
|
||
|
|
i: Integer;
|
||
|
|
begin
|
||
|
|
i := ChartTree.Selected.GlobalIndex - 1;
|
||
|
|
if i >= 0 then
|
||
|
|
CurSeries := FChart.SeriesData[i] else
|
||
|
|
CurSeries := nil;
|
||
|
|
end;
|
||
|
|
|
||
|
|
{$HINTS OFF}
|
||
|
|
procedure TfrxChartEditorForm.AddBClick(Sender: TObject);
|
||
|
|
var
|
||
|
|
s: TChartSeries;
|
||
|
|
n: TfrxTreeViewItem;
|
||
|
|
b: Boolean;
|
||
|
|
ind, i: Integer;
|
||
|
|
TeeGalleryForm: TfrxChartGalleryForm;
|
||
|
|
//{$IFDEF Delphi11}
|
||
|
|
// TeeGalleryForm: TTeeGalleryForm;
|
||
|
|
ChartSeriesClass : TChartSeriesClass;
|
||
|
|
TeeFunctionClass : TTeeFunctionClass;
|
||
|
|
//{$ENDIF}
|
||
|
|
begin
|
||
|
|
ind := 0;
|
||
|
|
{$IFDEF TeeChartStd7}
|
||
|
|
s := CreateNewSeriesGallery(nil, nil, FChart.Chart, False, False, ind);
|
||
|
|
{$ELSE}
|
||
|
|
|
||
|
|
//{$IFDEF Delphi11}
|
||
|
|
s := nil;
|
||
|
|
TeeGalleryForm := TfrxChartGalleryForm.Create(nil);
|
||
|
|
{$IFDEF LINUX}
|
||
|
|
// TeeGalleryForm.Width := ScaleWidthOrHeightForm(TeeGalleryForm.ClientWidth, True);
|
||
|
|
// TeeGalleryForm.Height := ScaleWidthOrHeightForm(TeeGalleryForm.ClientHeight, False);
|
||
|
|
{$ENDIF}
|
||
|
|
// TeeGalleryForm := TTeeGalleryForm.Create(nil);
|
||
|
|
TeeGalleryForm.Position := TFormPosition.poScreenCenter;
|
||
|
|
if TeeGalleryForm.ShowModal = mrOk then
|
||
|
|
begin
|
||
|
|
ChartSeriesClass := nil;
|
||
|
|
TeeFunctionClass := nil;
|
||
|
|
TeeGalleryForm.GetGallery.GetSeriesClass(ChartSeriesClass, TeeFunctionClass, ind);
|
||
|
|
s := CreateNewSeries(nil, FChart.Chart, ChartSeriesClass, TeeFunctionClass);
|
||
|
|
end;
|
||
|
|
//{$ELSE}
|
||
|
|
// s := CreateNewSeriesGallery(nil, nil, FChart.Chart, False, False{$IFNDEF TeeChart4}{$IFDEF TeeChartPro}, ind{$ENDIF}{$ENDIF});
|
||
|
|
//{$ENDIF}
|
||
|
|
|
||
|
|
{$ENDIF}
|
||
|
|
if s = nil then
|
||
|
|
Exit;
|
||
|
|
FChart.SeriesData.Add;
|
||
|
|
|
||
|
|
with FChart.Chart do
|
||
|
|
begin
|
||
|
|
b := not (s is TPieSeries);
|
||
|
|
View3DOptions.Orthogonal := b;
|
||
|
|
AxisVisible := b;
|
||
|
|
View3DWalls := b;
|
||
|
|
end;
|
||
|
|
|
||
|
|
n := ChartTree.AddItem(ChartTree.ItemByGlobalIndex(0), GetGallerySeriesName(s) + ' - ' + s.Name);
|
||
|
|
|
||
|
|
n.OpenImageIndex := 0;
|
||
|
|
n.CloseImageIndex := 0;
|
||
|
|
|
||
|
|
ChartTree.Selected := n;
|
||
|
|
|
||
|
|
TeeGalleryForm.Free;
|
||
|
|
|
||
|
|
ChartTreeClick(nil);
|
||
|
|
end;
|
||
|
|
{$HINTS ON}
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.DeleteBClick(Sender: TObject);
|
||
|
|
var
|
||
|
|
s: TChartSeries;
|
||
|
|
begin
|
||
|
|
s := FChart.Chart.Series[FCurSeries.Index];
|
||
|
|
s.Free;
|
||
|
|
FCurSeries.Free;
|
||
|
|
ChartTree.Selected.Free;
|
||
|
|
|
||
|
|
ChartTree.SetFocus;
|
||
|
|
ChartTree.Selected := ChartTree.Items[0];
|
||
|
|
ChartTreeClick(nil);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.EditBClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
{$IFDEF TeeChartPro}
|
||
|
|
with TChartEditor.Create(nil) do
|
||
|
|
begin
|
||
|
|
//TChartEditor.Create(nil).Chart;
|
||
|
|
Chart := FChart.Chart;
|
||
|
|
//F//mxTee.Editor.EditorPanel.
|
||
|
|
if FCurSeries <> nil then
|
||
|
|
Series := FChart.Chart.Series[FCurSeries.Index];
|
||
|
|
|
||
|
|
// HideTabs := [cetGeneral, cetTitles, cetPaging, cetSeriesData, cetMain,
|
||
|
|
// cetExport, {$IFDEF TeeChart7}cetExportNative,{$ENDIF} cetPrintPreview];
|
||
|
|
// Tab := DefaultTab - [ceDataSource, ceHelp, ceClone, ceTitle, ceAdd];
|
||
|
|
|
||
|
|
Execute;
|
||
|
|
Free;
|
||
|
|
end;
|
||
|
|
{$ENDIF}
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.DoClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
if not FUpdating then
|
||
|
|
Modified := True;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.UpDown1Click(Sender: TObject);
|
||
|
|
begin
|
||
|
|
DoClick(Sender);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.DatasetsCBClick(Sender: TObject);
|
||
|
|
var
|
||
|
|
ds: TfrxDataSet;
|
||
|
|
begin
|
||
|
|
if DatasetsCB.ItemIndex = -1 then Exit;
|
||
|
|
|
||
|
|
ds := FReport.GetDataSet(DatasetsCB.Items[DatasetsCB.ItemIndex]);
|
||
|
|
FillDropDownLists(ds);
|
||
|
|
DoClick(nil);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.DatabandsCBClick(Sender: TObject);
|
||
|
|
var
|
||
|
|
db: TfrxDataBand;
|
||
|
|
ds: TfrxDataSet;
|
||
|
|
begin
|
||
|
|
if DatabandsCB.ItemIndex = -1 then Exit;
|
||
|
|
db := TfrxDataBand(FReport.FindObject(DatabandsCB.Items[DatabandsCB.ItemIndex]));
|
||
|
|
if db <> nil then
|
||
|
|
ds := db.DataSet
|
||
|
|
else
|
||
|
|
ds := nil;
|
||
|
|
FillDropDownLists(ds);
|
||
|
|
DoClick(nil);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.DBSourceRBClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
DatasetsCB.ItemIndex := -1;
|
||
|
|
DatabandsCB.ItemIndex := -1;
|
||
|
|
FillDropDownLists(nil);
|
||
|
|
DoClick(nil);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.OkBClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
FInspector.FormDeactivate(nil);
|
||
|
|
CurSeries := nil;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.FormCreate(Sender: TObject);
|
||
|
|
begin
|
||
|
|
Caption := frxGet(4100);
|
||
|
|
OkB.Text := frxGet(1);
|
||
|
|
CancelB.Text := frxGet(2);
|
||
|
|
//AddB.Hint := frxGet(4101);
|
||
|
|
//DeleteB.Hint := frxGet(4102);
|
||
|
|
//EditB.Hint := frxGet(4103);
|
||
|
|
{$IFDEF LINUX}
|
||
|
|
AddB.StyledSettings:= AddB.StyledSettings - [TStyledSetting.FontColor];
|
||
|
|
AddB.FontColor := TAlphaColorrec.Black;
|
||
|
|
DeleteB.StyledSettings:= AddB.StyledSettings - [TStyledSetting.FontColor];
|
||
|
|
DeleteB.FontColor := TAlphaColorrec.Black;
|
||
|
|
UPB.StyledSettings:= AddB.StyledSettings - [TStyledSetting.FontColor];
|
||
|
|
UPB.FontColor := TAlphaColorrec.Black;
|
||
|
|
DownB.StyledSettings:= AddB.StyledSettings - [TStyledSetting.FontColor];
|
||
|
|
DownB.FontColor := TAlphaColorrec.Black;
|
||
|
|
{$ENDIF}
|
||
|
|
DatasourceGB.Text := frxGet(4107);
|
||
|
|
DBSourceRB.Text := frxGet(4106);
|
||
|
|
BandSourceRB.Text := frxGet(4104);
|
||
|
|
FixedDataRB.Text := frxGet(4105);
|
||
|
|
|
||
|
|
ValuesGB.Text := frxGet(4108);
|
||
|
|
HintL.Text := frxGet(4109);
|
||
|
|
|
||
|
|
OptionsGB.Text := frxGet(4114);
|
||
|
|
ShowTopLbl.Text := frxGet(4115);
|
||
|
|
CaptionLbl.Text := frxGet(4116);
|
||
|
|
SortLbl.Text := frxGet(4117);
|
||
|
|
XLbl.Text := frxGet(4126);
|
||
|
|
{$IFDEF DELPHI23}
|
||
|
|
XTypeCB.Clear;
|
||
|
|
{$ELSE}
|
||
|
|
XTypeCB.Items.Clear;
|
||
|
|
{$ENDIF}
|
||
|
|
XTypeCB.Items.Add(frxResources.Get('chxtText'));
|
||
|
|
XTypeCB.Items.Add(frxResources.Get('chxtNumber'));
|
||
|
|
XTypeCB.Items.Add(frxResources.Get('chxtDate'));
|
||
|
|
{$IFDEF DELPHI23}
|
||
|
|
SortCB.Clear;
|
||
|
|
{$ELSE}
|
||
|
|
SortCB.Items.Clear;
|
||
|
|
{$ENDIF}
|
||
|
|
SortCB.Items.Add(frxResources.Get('chsoNone'));
|
||
|
|
SortCB.Items.Add(frxResources.Get('chsoAscending'));
|
||
|
|
SortCB.Items.Add(frxResources.Get('chsoDescending'));
|
||
|
|
//if UseRightToLeftAlignment then
|
||
|
|
// FlipChildren(True);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: WideChar; Shift: TShiftState);
|
||
|
|
begin
|
||
|
|
if Key = VKF1 then
|
||
|
|
frxResources.Help(Self);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.ChartTreeEdited(Sender: TObject; Node: TfrxTreeViewItem;
|
||
|
|
var S: String);
|
||
|
|
var
|
||
|
|
Ser: TChartSeries;
|
||
|
|
begin
|
||
|
|
if FCurSeries <> nil then
|
||
|
|
begin
|
||
|
|
Ser := FChart.Chart.Series[FCurSeries.Index];
|
||
|
|
Ser.Name := S;
|
||
|
|
S := GetGallerySeriesName(Ser) + ' - ' + Ser.Name;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.ChartTreeEditing(Sender: TObject; OldNode: TfrxTreeViewItem; NewNode: TfrxTreeViewItem);
|
||
|
|
//var
|
||
|
|
// FEditHandle: HWND;
|
||
|
|
begin
|
||
|
|
// if Node.Parent = nil then
|
||
|
|
// begin
|
||
|
|
// AllowEdit := False;
|
||
|
|
// exit;
|
||
|
|
// end;
|
||
|
|
// FEditHandle := HWND( SendMessage(ChartTree.Handle, $110F, 0, 0) );
|
||
|
|
// if (FCurSeries <> nil) and (FEditHandle <> 0) then
|
||
|
|
// Windows.SetWindowText(FEditHandle, PChar(FChart.Chart.Series[FCurSeries.Index].Name));
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.UPBClick(Sender: TObject);
|
||
|
|
//var
|
||
|
|
// tNode: TTreeNode;
|
||
|
|
// idx: Integer;
|
||
|
|
begin
|
||
|
|
// idx := FCurSeries.Index;
|
||
|
|
// FChart.Chart.SeriesUp(FChart.Chart.Series[idx]);
|
||
|
|
// FChart.SeriesData.Items[idx].Index := idx - 1;
|
||
|
|
//
|
||
|
|
// with ChartTree.Items.GetFirstNode do
|
||
|
|
// begin
|
||
|
|
// tNode := Item[idx - 1];
|
||
|
|
// Item[idx].MoveTo(tNode, naInsert);
|
||
|
|
// ChartTree.Selected := Item[idx - 1];
|
||
|
|
// end;
|
||
|
|
//
|
||
|
|
// ChartTree.SetFocus;
|
||
|
|
// ChartTreeClick(nil);
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxChartEditorForm.DownBClick(Sender: TObject);
|
||
|
|
//var
|
||
|
|
// tNode: TTreeNode;
|
||
|
|
// idx: Integer;
|
||
|
|
begin
|
||
|
|
// idx := FCurSeries.Index;
|
||
|
|
// FChart.Chart.SeriesDown(FChart.Chart.Series[idx]);
|
||
|
|
// FChart.SeriesData.Items[idx].Index := idx + 1;
|
||
|
|
//
|
||
|
|
// with ChartTree.Items.GetFirstNode do
|
||
|
|
// begin
|
||
|
|
// if idx + 2 = Count then
|
||
|
|
// Item[idx].MoveTo(ChartTree.Items.GetFirstNode, naAddChild)
|
||
|
|
// else
|
||
|
|
// begin
|
||
|
|
// tNode := Item[idx + 2];
|
||
|
|
// Item[idx].MoveTo(tNode, naInsert);
|
||
|
|
// end;
|
||
|
|
// ChartTree.Selected := Item[idx + 1];
|
||
|
|
// end;
|
||
|
|
//
|
||
|
|
// ChartTree.SetFocus;
|
||
|
|
// ChartTreeClick(nil);
|
||
|
|
end;
|
||
|
|
|
||
|
|
initialization
|
||
|
|
frxComponentEditors.Register(TfrxChartView, TfrxChartEditor);
|
||
|
|
frxHideProperties(TChart, 'Align;AllowPanning;AllowZoom;Anchors;AnimatedZoom;' +
|
||
|
|
'AnimatedZoomSteps;AutoSize;BackImage;BackImageInside;BackImageMode;' +
|
||
|
|
'BevelInner;BevelOuter;BevelWidth;BorderStyle;BorderWidth;ClipPoints;Color;' +
|
||
|
|
'Constraints;Cursor;DragCursor;DragKind;DragMode;DockSite;Enabled;Foot;Frame;Height;' +
|
||
|
|
'HelpContext;HelpType;HelpKeyword;Hint;Left;Locked;MarginBottom;MarginLeft;MarginRight;MarginTop;' +
|
||
|
|
'MaxPointsPerPage;Name;Page;ParentColor;ParentShowHint;PopupMenu;PrintProportional;' +
|
||
|
|
'ScaleLastPage;ScrollMouseButton;SeriesList;ShowHint;TabOrder;TabStop;Tag;Top;UseDockManager;' +
|
||
|
|
'Visible;Width');
|
||
|
|
frxHideProperties(TChartSeries, 'ColorSource;Cursor;DataSource;Name;' +
|
||
|
|
'ParentChart;Tag;XLabelsSource');
|
||
|
|
frxHideProperties(TfrxChartView, 'SeriesData;BrushStyle');
|
||
|
|
|
||
|
|
|
||
|
|
end.
|