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

TAChart: Add property DateTimeFormat to TDBChartSource for date/time fields returned as strings.

Browse Source 
git-svn-id: trunk@63084 -
This commit is contained in:
wp 2020-04-26 17:35:23 +00:00
parent 35d427d277
commit bc9d1a87a3
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/tachart/tadbsource.pas
View File

@ -33,6 +33,7 @@ type
FBookmark: TBookmark;
FCurItem: TChartDataItem;
FDataLink: TDataLink;
FDateTimeFormat: String;
FFieldColor: String;
FFieldText: String;
FFieldX: String;
@ -66,6 +67,7 @@ type
procedure Reset;
published
property DataSource: TDataSource read GetDataSource write SetDataSource;
property DateTimeFormat: String read FDateTimeFormat write FDateTimeFormat;
property FieldColor: String read FFieldColor write SetFieldColor;
property FieldText: String read FFieldText write SetFieldText;
property FieldX: String read FFieldX write SetFieldX;
@ -80,7 +82,7 @@ procedure Register;
implementation
uses
Math, SysUtils, TAMath;
Math, SysUtils, DateUtils, TAMath;
type
@ -187,8 +189,12 @@ procedure TDbChartSource.DefaultGetItem(var AItem: TChartDataItem);
if IsNull then
Result := SafeNan
else if ADateTime then
Result := AsDateTime
else
begin
if (DataType = ftString) and (FDateTimeFormat <> '') then
Result := ScanDateTime(FDateTimeFormat, AsString)
else
Result := AsDateTime
end else
Result := AsFloat;
end;