paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-05 17:32:37 +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"/> <ResourceType Value="res"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
</VersionInfo> </VersionInfo>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>

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

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

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

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

2
components/tachart/tacustomseries.pas
View File

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