pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

NiceChart: Remove dependence on Windows.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8848 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-06-24 20:11:57 +00:00
parent 4d4305c7ed
commit 9f5674152f
6 changed files with 33 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
components/nicechart/source/NiceChart.pas
View File

@ -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