mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-16 02:15:59 +02:00
37 lines
726 B
ObjectPascal
37 lines
726 B
ObjectPascal
unit frmGetPointerStyle;
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes,
|
|
Forms, Controls,
|
|
TAGraph, TASources, TATypes, TACustomSeries, TASeries;
|
|
|
|
type
|
|
TGetPointerStyleFrame = class(TFrame)
|
|
Chart: TChart;
|
|
LineSeries: TLineSeries;
|
|
RandomChartSource: TRandomChartSource;
|
|
procedure LineSeriesGetPointerStyle({%H-}ASender: TChartSeries;
|
|
AValueIndex: Integer; var AStyle: TSeriesPointerStyle);
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
procedure TGetPointerStyleFrame.LineSeriesGetPointerStyle(ASender:
|
|
TChartSeries; AValueIndex: Integer; var AStyle: TSeriesPointerStyle);
|
|
begin
|
|
AStyle := TSeriesPointerStyle(AValueIndex mod (ord(High(TSeriesPointerStyle))+1));
|
|
end;
|
|
|
|
end.
|
|
|