paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 08:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix compilation of html demo by making Windows-only package TADrawerWMF usable as (empty) requirement also in other OSs.

Browse Source 
git-svn-id: trunk@56497 -
This commit is contained in:
wp 2017-11-25 23:02:32 +00:00
parent 130b9d9510
commit 6bfac0b4b1
4 changed files with 23 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/demo/html/htmldemo.lpi
View File

@ -21,13 +21,16 @@
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<RequiredPackages Count="3">
<Item1>
<PackageName Value="TAChartLazarusPkg"/>
<PackageName Value="TAChartWMF"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
<PackageName Value="TAChartLazarusPkg"/>
</Item2>
<Item3>
<PackageName Value="LCL"/>
</Item3>
</RequiredPackages>
<Units Count="2">
<Unit0>

2
components/tachart/demo/html/htmldemo.lpr
View File

@ -7,7 +7,7 @@ uses
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, main, tachartlazaruspkg
Forms, main, tachartlazaruspkg, tachartwmf
{ you can add units after this };
{$R *.res}

23
components/tachart/demo/html/main.lfm
View File

@ -2,17 +2,17 @@ object MainForm: TMainForm
Left = 280
Height = 452
Top = 130
Width = 655
Width = 656
Caption = 'HTML demo'
ClientHeight = 452
ClientWidth = 655
ClientWidth = 656
OnCreate = FormCreate
LCLVersion = '1.9.0.0'
object BottomPanel: TPanel
Left = 8
Height = 105
Top = 339
Width = 639
Width = 640
Align = alBottom
AutoSize = True
BorderSpacing.Left = 8
@ -20,7 +20,7 @@ object MainForm: TMainForm
BorderSpacing.Bottom = 8
BevelOuter = bvNone
ClientHeight = 105
ClientWidth = 639
ClientWidth = 640
TabOrder = 0
object CgHTML: TCheckGroup
Left = 0
@ -62,7 +62,7 @@ object MainForm: TMainForm
AnchorSideTop.Control = BottomPanel
AnchorSideRight.Control = BottomPanel
AnchorSideRight.Side = asrBottom
Left = 510
Left = 511
Height = 25
Top = 8
Width = 121
@ -80,7 +80,7 @@ object MainForm: TMainForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BtnCopyToClipboard
AnchorSideRight.Side = asrBottom
Left = 510
Left = 511
Height = 25
Top = 37
Width = 121
@ -97,7 +97,7 @@ object MainForm: TMainForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BtnCopyToClipboard
AnchorSideRight.Side = asrBottom
Left = 510
Left = 511
Height = 25
Top = 66
Width = 121
@ -109,15 +109,13 @@ object MainForm: TMainForm
TabOrder = 3
end
object CbRTL: TCheckBox
AnchorSideLeft.Control = CgHTML
AnchorSideLeft.Side = asrBottom
AnchorSideLeft.Control = CbRotateXLabels
AnchorSideTop.Control = CbRotateXLabels
AnchorSideTop.Side = asrBottom
Left = 349
Height = 19
Top = 38
Width = 86
BorderSpacing.Left = 16
BorderSpacing.Top = 8
Caption = 'Right-to-left'
OnChange = CbRTLChange
@ -125,12 +123,15 @@ object MainForm: TMainForm
Visible = False
end
object CbRotateXLabels: TCheckBox
AnchorSideLeft.Control = CgHTML
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnCopyToClipboard
AnchorSideTop.Side = asrCenter
Left = 349
Height = 19
Top = 11
Width = 131
BorderSpacing.Left = 16
Caption = 'Rotate x labels by 45°'
OnChange = CbRotateXLabelsChange
TabOrder = 5
@ -152,7 +153,7 @@ object MainForm: TMainForm
Left = 8
Height = 323
Top = 8
Width = 639
Width = 640
AxisList = <
item
Grid.Color = clSilver

6
components/tachart/tadrawerwmf.pas
View File

@ -14,6 +14,7 @@ unit TADrawerWMF;
interface
{$IFDEF WINDOWS}
uses
Windows, Classes, Graphics,
TADrawerCanvas, TAGraph;
@ -102,10 +103,11 @@ type
procedure CopyToClipboardMetafile;
procedure SaveToWMF(const AFileName: String);
end;
{$ENDIF}
implementation
{$IFDEF WINDOWS}
uses
SysUtils, clipbrd, TAChartUtils;
@ -472,7 +474,7 @@ procedure TWMFChartHelper.SaveToWMF(const AFileName: String);
begin
Draw(TWindowsMetafileDrawer.Create(AFilename), Rect(0, 0, Width, Height));
end;
{$ENDIF}
end.