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

TAChart: Add new property TickWidthStyle to TOpenHighLowCloseSeries

Browse Source
This commit is contained in:
wp_xyz 2023-12-06 16:44:12 +01:00
parent 8b3f7cf663
commit 10e211092a
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/tachart/tamultiseries.pas
View File

@ -197,6 +197,7 @@ type
end; end;
TOHLCMode = (mOHLC, mCandleStick); TOHLCMode = (mOHLC, mCandleStick);
TTickWidthStyle = (twsPercent, twsPercentMin);
TOpenHighLowCloseSeries = class(TBasicPointSeries) TOpenHighLowCloseSeries = class(TBasicPointSeries)
private private
@ -206,6 +207,7 @@ type
FDownLinePen: TOHLCDownPen; FDownLinePen: TOHLCDownPen;
FLinePen: TPen; FLinePen: TPen;
FTickWidth: Integer; FTickWidth: Integer;
FTickWidthStyle: TTickWidthStyle;
FYIndexClose: Integer; FYIndexClose: Integer;
FYIndexHigh: Integer; FYIndexHigh: Integer;
FYIndexLow: Integer; FYIndexLow: Integer;
@ -218,6 +220,7 @@ type
procedure SetLinePen(AValue: TPen); procedure SetLinePen(AValue: TPen);
procedure SetOHLCMode(AValue: TOHLCMode); procedure SetOHLCMode(AValue: TOHLCMode);
procedure SetTickWidth(AValue: Integer); procedure SetTickWidth(AValue: Integer);
procedure SetTickWidthStyle(AValue: TTickWidthStyle);
procedure SetYIndexClose(AValue: Integer); procedure SetYIndexClose(AValue: Integer);
procedure SetYIndexHigh(AValue: Integer); procedure SetYIndexHigh(AValue: Integer);
procedure SetYIndexLow(AValue: Integer); procedure SetYIndexLow(AValue: Integer);
@ -254,6 +257,8 @@ type
property Mode: TOHLCMode read FMode write SetOHLCMode default mOHLC; property Mode: TOHLCMode read FMode write SetOHLCMode default mOHLC;
property TickWidth: integer property TickWidth: integer
read FTickWidth write SetTickWidth default DEF_OHLC_TICK_WIDTH; read FTickWidth write SetTickWidth default DEF_OHLC_TICK_WIDTH;
property TickWidthStyle: TTickWidthStyle
read FTickWidthStyle write SetTickWidthStyle default twsPercent;
property ToolTargets default [nptPoint, nptYList, nptCustom]; property ToolTargets default [nptPoint, nptYList, nptCustom];
property YIndexClose: integer property YIndexClose: integer
read FYIndexClose write SetYIndexClose default DEF_YINDEX_CLOSE; read FYIndexClose write SetYIndexClose default DEF_YINDEX_CLOSE;
@ -1725,6 +1730,14 @@ end;
procedure TOpenHighLowCloseSeries.Draw(ADrawer: IChartDrawer); procedure TOpenHighLowCloseSeries.Draw(ADrawer: IChartDrawer);
function CalcTickWidth(AX: Double; AIndex: Integer): Double;
begin
case FTickWidthStyle of
twsPercent: Result := GetXRange(AX, AIndex) * PERCENT * TickWidth;
twsPercentMin: Result := FMinXRange * PERCENT * TickWidth;
end;
end;
function MaybeRotate(AX, AY: Double): TPoint; function MaybeRotate(AX, AY: Double): TPoint;
begin begin
if IsRotated then if IsRotated then
@ -1789,6 +1802,9 @@ begin
ExpandRange(ext2.a.X, ext2.b.X, 1.0); ExpandRange(ext2.a.X, ext2.b.X, 1.0);
ExpandRange(ext2.a.Y, ext2.b.Y, 1.0); ExpandRange(ext2.a.Y, ext2.b.Y, 1.0);
if TickWidthStyle = twsPercentMin then
UpdateMinXRange;
PrepareGraphPoints(ext2, true); PrepareGraphPoints(ext2, true);
for i := FLoBound to FUpBound do begin for i := FLoBound to FUpBound do begin
@ -1802,7 +1818,7 @@ begin
if IsNaN(ylow) then Continue; if IsNaN(ylow) then Continue;
yclose := GetGraphPointY(i, YIndexClose); yclose := GetGraphPointY(i, YIndexClose);
if IsNaN(yclose) then Continue; if IsNaN(yclose) then Continue;
tw := GetXRange(x, i) * PERCENT * TickWidth; tw := CalcTickWidth(x, i); //GetXRange(x, i) * PERCENT * TickWidth;
if (yopen <= yclose) then begin if (yopen <= yclose) then begin
p := LinePen; p := LinePen;
ADrawer.Brush := FCandleStickUpBrush; ADrawer.Brush := FCandleStickUpBrush;
@ -1997,6 +2013,13 @@ begin
UpdateParentChart; UpdateParentChart;
end; end;
procedure TOpenHighLowCloseSeries.SetTickWidthStyle(AValue: TTickWidthStyle);
begin
if FTickWidthStyle = AValue then exit;
FTickWidthStyle := AValue;
UpdateParentChart;
end;
procedure TOpenHighLowCloseSeries.SetYIndexClose(AValue: Integer); procedure TOpenHighLowCloseSeries.SetYIndexClose(AValue: Integer);
begin begin
if FYIndexClose = AValue then exit; if FYIndexClose = AValue then exit;