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

TAChart: Fix compilation of drag-and-drop demo

Browse Source 
git-svn-id: trunk@24274 -
This commit is contained in:
ask 2010-03-29 10:12:39 +00:00
parent 82d6431bee
commit ab09e5bdac
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/demo/dragdrop/dragdropdemo.lpi
View File

@ -15,7 +15,7 @@
<ResourceType Value="res"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>

2
components/tachart/demo/dragdrop/main.lfm
View File

@ -42,7 +42,7 @@ object Form1: TForm1
OnMouseUp = Chart1MouseUp
object Chart1LineSeries1: TLineSeries
Marks.Clipped = False
Marks.Format = '%0:g'
Marks.Format = '%0:.9g'
Marks.Style = smsValue
Pointer.Brush.Color = clPurple
Pointer.HorizSize = 6

2
components/tachart/demo/dragdrop/main.pas
View File

@ -48,7 +48,7 @@ procedure TForm1.Chart1LineSeries1GetMark(
out AFormattedMark: String; AIndex: Integer);
begin
if AIndex = FNearestIndex then
AFormattedMark := Chart1LineSeries1.DefaultFormattedMark(AIndex)
AFormattedMark := Chart1LineSeries1.FormattedMark(AIndex)
else
AFormattedMark := '';
end;

2
components/tachart/tacustomseries.pas
View File

@ -118,7 +118,7 @@ type
function Count: Integer; inline;
procedure Delete(AIndex: Integer); virtual;
function Extent: TDoubleRect; virtual;
function FormattedMark(AIndex: integer): String;
function FormattedMark(AIndex: Integer): String;
function IsEmpty: Boolean; override;
function ListSource: TListChartSource;
property Source: TCustomChartSource