diff --git a/components/nicechart/demo/Delphi/Project1.dproj b/components/nicechart/demo/Delphi/Project1.dproj
index e19d169ec..5eef4c6aa 100644
--- a/components/nicechart/demo/Delphi/Project1.dproj
+++ b/components/nicechart/demo/Delphi/Project1.dproj
@@ -3,7 +3,7 @@
{534D51BE-D1B2-47D2-AD6E-AF9159060EBD}
Project1.dpr
True
- Release
+ Debug
1
Application
VCL
diff --git a/components/nicechart/demo/Delphi/Project1.res b/components/nicechart/demo/Delphi/Project1.res
index 1e4099ba3..4f16aba1d 100644
Binary files a/components/nicechart/demo/Delphi/Project1.res and b/components/nicechart/demo/Delphi/Project1.res differ
diff --git a/components/nicechart/demo/common/Unit1.dfm b/components/nicechart/demo/common/Unit1.dfm
index f141c8040..66cbb8bef 100644
--- a/components/nicechart/demo/common/Unit1.dfm
+++ b/components/nicechart/demo/common/Unit1.dfm
@@ -1,26 +1,24 @@
object Form1: TForm1
Left = 169
Top = 68
- Width = 778
- Height = 596
Caption = 'NiceChart Demo - priyatna.org'
+ ClientHeight = 558
+ ClientWidth = 766
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
+ Font.Height = -12
+ Font.Name = 'Segoe UI'
Font.Style = []
- OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
+ TextHeight = 15
object Label1: TLabel
Left = 376
Top = 15
- Width = 32
- Height = 13
+ Width = 34
+ Height = 15
Caption = 'Label1'
end
object Button1: TButton
diff --git a/components/nicechart/demo/common/Unit1.pas b/components/nicechart/demo/common/Unit1.pas
index 95823210c..ecef493d0 100644
--- a/components/nicechart/demo/common/Unit1.pas
+++ b/components/nicechart/demo/common/Unit1.pas
@@ -73,6 +73,7 @@ begin
Title := 'Look at me!'#13'I''m a NiceChart!';
AxisXOnePerValue := True;
ShowXGrid := False;
+ ShowYGrid := False;
AxisYScale := 1000;
//Monochrome := True;
OnMouseMove := ChartMouseMove;
diff --git a/components/nicechart/packages/Delphi XE11 Alexandria/NiceChartDXE11.dproj b/components/nicechart/packages/Delphi XE11 Alexandria/NiceChartDXE11.dproj
index fd316713e..330d56e79 100644
--- a/components/nicechart/packages/Delphi XE11 Alexandria/NiceChartDXE11.dproj
+++ b/components/nicechart/packages/Delphi XE11 Alexandria/NiceChartDXE11.dproj
@@ -18,6 +18,11 @@
Base
true
+
+ true
+ Base
+ true
+
true
Base
@@ -58,6 +63,10 @@
true
CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)
1033
+ vcl;rtl;$(DCC_UsePackage)
+
+
+ vcl;rtl;$(DCC_UsePackage)
RELEASE;$(DCC_Define)
diff --git a/components/nicechart/source/NiceChart.pas b/components/nicechart/source/NiceChart.pas
index 0eba8fefc..a8287113f 100644
--- a/components/nicechart/source/NiceChart.pas
+++ b/components/nicechart/source/NiceChart.pas
@@ -35,7 +35,12 @@ unit NiceChart;
interface
uses
- Windows, Messages, Classes, Graphics, Forms, Controls, ExtCtrls, SysUtils,
+ {$IFDEF FPC}
+ LclIntf, LCLType, LMessages,
+ {$ELSE}
+ Windows, Messages,
+ {$ENDIF}
+ Classes, Graphics, Forms, Controls, ExtCtrls, SysUtils,
BSplines, Math;
const
@@ -122,8 +127,13 @@ type
procedure SetTitle(const Value: string);
procedure SetTitleFont(const Value: TFont);
procedure TitleFontChanged(Sender: TObject);
+ {$IFDEF FPC}
+ procedure WMSize(var Msg: TLMSize); message LM_SIZE;
+ procedure WMEraseBkgnd(var Msg: TLMEraseBkgnd); message LM_ERASEBKGND;
+ {$ELSE}
procedure WMSize(var Msg: TWMSize); message WM_SIZE;
procedure WMEraseBkgnd(var Msg: TWMEraseBkgnd); message WM_ERASEBKGND;
+ {$ENDIF}
function GetSeries(Index: Integer): TNiceSeries;
function GetSeriesCount: Integer;
procedure DrawLegend(ACanvas: TCanvas);
@@ -213,6 +223,7 @@ type
implementation
{$R NiceChart.res}
+
{$IFDEF FPC}
{$R nicechart_images.res}
{$ENDIF}
@@ -666,13 +677,13 @@ begin
end;
end;
-procedure TNiceChart.WMSize(var Msg: TWMSize);
+procedure TNiceChart.WMSize(var Msg: {$IFDEF FPC}TLMSize{$ELSE}TWMSize{$ENDIF});
begin
inherited;
Changed;
end;
-procedure TNiceChart.WMEraseBkgnd(var Msg: TWMEraseBkgnd);
+procedure TNiceChart.WMEraseBkgnd(var Msg: {$IFDEF FPC}TLMEraseBkgnd{$ELSE}TWMEraseBkgnd{$ENDIF});
begin
Msg.Result := 1;
end;
@@ -1137,7 +1148,7 @@ begin
Last := l + w;
end;
MoveTo(P^.Px, P^.Py);
- LineTo(P^.Px, P^.Py + SMALL_MARGIN);
+ LineTo(P^.Px, P^.Py + SMALL_MARGIN + 1);
end;
if FShowXGrid then
begin