paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 00:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add ready-made procedure to call DataPoints editor from user call. Add option to hide Color column.

Browse Source 
git-svn-id: trunk@60514 -
This commit is contained in:
wp 2019-02-26 16:49:58 +00:00
parent 62321271bf
commit fdf2e848f4
2 changed files with 40 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/tachart/editors/tasourcepropeditors.pas
View File

@ -34,23 +34,9 @@ end;
{ TDataPointsPropertyEditor }
procedure TDataPointsPropertyEditor.Edit;
var
dataModified: Boolean;
begin
with TDataPointsEditorForm.Create(nil) do
try
InitData(
(GetComponent(0) as TListChartsource).XCount,
(GetComponent(0) as TListChartSource).YCount,
GetObjectValue as TStrings
);
if ShowModal = mrOK then begin
ExtractData(dataModified);
if dataModified then Modified;
end;
finally
Free;
end;
if DataPointsEditor(GetComponent(0) as TListChartSource) then
Modified;
end;
function TDataPointsPropertyEditor.GetAttributes: TPropertyAttributes;

43
components/tachart/tadatapointseditor.pas
View File

@ -15,10 +15,13 @@ interface
uses
ButtonPanel, Classes, ExtCtrls, Grids, Menus, SysUtils, Forms, Controls,
Graphics, Dialogs;
Graphics, Dialogs, TASources;
type
TDataPointsEditorOption = (dpeHideColorColumn);
TDataPointsEditorOptions = set of TDataPointsEditorOption;
{ TDataPointsEditorForm }
TDataPointsEditorForm = class(TForm)
@ -49,21 +52,49 @@ type
FDataPoints: TStrings;
FXCount: Integer;
FYCount: Integer;
FOptions: TDataPointsEditorOptions;
procedure UpdateCmds;
function ValidData(out ACol, ARow: Integer; out AMsg: String): Boolean;
public
procedure InitData(AXCount, AYCount: Integer; ADataPoints: TStrings);
procedure InitData(AXCount, AYCount: Integer; ADataPoints: TStrings;
AOptions: TDataPointsEditorOptions = []);
procedure ExtractData(out AModified: Boolean);
property Options: TDatapointsEditorOptions read FOptions;
end;
function DataPointsEditor(AListChartSource: TListChartsource;
AOptions: TDataPointsEditorOptions = []): Boolean;
implementation
uses
LCLIntf, LCLType, Math, StdCtrls,
TAChartStrConsts, TAChartUtils, TASources;
TAChartStrConsts, TAChartUtils;
{$R *.lfm}
function DataPointsEditor(AListChartSource: TListChartsource;
AOptions: TDataPointsEditorOptions = []): Boolean;
var
F: TDataPointsEditorForm;
begin
Result := false;
F := TDataPointsEditorForm.Create(Application);
try
F.InitData(
AListChartSource.XCount,
AListChartSource.YCount,
AListChartSource.DataPoints,
AOptions
);
if F.ShowModal = mrOK then
F.ExtractData(Result);
finally
F.Free;
end;
end;
function EditText(var AText: String): Boolean;
var
F: TForm;
@ -121,8 +152,8 @@ begin
end;
end;
procedure TDataPointsEditorForm.InitData(
AXCount, AYCount: Integer; ADataPoints: TStrings);
procedure TDataPointsEditorForm.InitData(AXCount, AYCount: Integer;
ADataPoints: TStrings; AOptions: TDataPointsEditorOptions = []);
var
i: Integer;
w: Integer;
@ -130,6 +161,7 @@ begin
FXCount := AXCount;
FYCount := AYCount;
FDataPoints := ADataPoints;
FOptions := AOptions;
sgData.RowCount := Max(ADataPoints.Count + 1, 2);
for i := 1 to AYCount do
with sgData.Columns.Add do begin
@ -150,6 +182,7 @@ begin
Index := i;
end;
sgData.Columns.Delete(0); // remove the template column
sgData.Columns[sgData.Columns.Count-2].Visible := not (dpeHideColorColumn in FOptions);
for i := 0 to ADataPoints.Count - 1 do
Split('|' + ADataPoints[i], sgData.Rows[i + 1]);