Blog Options
Archive
<< April 2024 >>-
Wednesday 17
- New free component for sophisticated file uploads with TMS WEB Core -
Tuesday 16
- Closing the gap with TMS FNC UI Pack new additions -
Thursday 11
- Unveiling the Latest Enhancements in TMS VCL UI Pack -
Friday 5
- TMS components and Delphi and C++Builder 12.1 -
Wednesday 3
- Customizing the login page of your application using TMS Sphinx
- A Python library for using StellarDS.io effortlessly
- Introducing: How it Works with Holger - Building a Pexels gallery app with TMS WEB Core video series
- TMS FNC Cloud Pack with StellarDS.io backend: unparalleled productivity in VCL & FMX
Authors
- Bernard Roussely (1)
- Wagner Landgraf (82)
- Roman Yankovsky (2)
- Bart Holvoet (27)
- Aaron Decramer (17)
- Pieter Scheldeman (99)
- Nancy Lescouhier (32)
- Adrian Gallero (33)
- Bruno Fierens (403)
- Marcos Douglas B. Santos (5)
- Wagner R. Landgraf (1)
- Bradley Velghe (16)
- Bernard (2)
- Andrew Simard (86)
- Holger Flick (15)
- Gjalt Vanhouwaert (30)
- Tunde Keller (22)
- Masiha Zemarai (119)
Blog
All Blog Posts | Next Post | Previous PostTMS FMX Chart update with new virtual mode available
Bookmarks:Thursday, October 22, 2015
Where in earlier versions, the method for adding values to a chart was via multiple calls to TMSFMXChart.Series[x].AddSinglePoint(), the new virtual mode offers a faster solution that is more flexible and typically consumes less memory. This can of course make a welcome difference when creating applications for mobile devices.To start using the new TMS FMX Chart virtual mode, two events need to be implemented:
TMSFMXChart.OnGetNumberOfPoints()
and
TMSFMXChart.OnGetPoint()
In the first event, OnGetNumberOfPoints(), that is triggered for each series in the chart, the number of desired data points can be returned via the ANumberOfPoints parameter.
In this sample event handler, the number of points is set to 10000 for each series in the chart:
procedure TForm1.TMSFMXChart1GetNumberOfPoints(Sender: TObject; ASerie: TTMSFMXChartSerie; var ANumberOfPoints: Integer); begin ANumberOfPoints := 10000; end;
var data_arr_1, data_arr_2: array of double; begin SetLength(data_arr_1,10000); SetLength(data_arr_2,10000); for i := 0 to Length(data_arr) - 1 do begin data_arr_1[i] := random(100) / 33; data_arr_2[i] := random(200) / 25; end; end;
procedure TForm1.TMSFMXChart1GetPoint(Sender: TObject; ASerie: TTMSFMXChartSerie; AIndex: Integer; var APoint: TTMSFMXChartPointVirtual); begin case ASerie.Index of 0: if AIndex < Length(data_arr_1) then APoint.YValue := data_arr_1[AIndex] 1: if AIndex < Length(data_arr_2) then APoint.YValue := data_arr_2[AIndex] end; end;
TMSFMXChart1.Series[0].AutoYRange := arEnabled; TMSFMXChart1.Series[0].MaxX := 100; TMSFMXChart1.Series[1].AutoYRange := arEnabled; TMSFMXChart1.Series[1].MaxX := 100;
Bruno Fierens
Bookmarks:
This blog post has received 1 comment.
All Blog Posts | Next Post | Previous Post
Gromov Vsevolod