paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 14:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Remove {$MODE DELPHI} and {$IFDEF fpc}

Browse Source 
patch by: Alexander Klenin
part 3 of issue #13201

git-svn-id: trunk@18748 -
This commit is contained in:
vincents 2009-02-18 12:20:30 +00:00
parent 6eda89f398
commit a945bd4085
2 changed files with 15 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/tachart/tagraph.pas
View File

@ -23,18 +23,12 @@ Authors: Lu
}
unit TAGraph;
{$IFDEF fpc}
{$MODE DELPHI}{$H+}
{$ENDIF}
{$H+}
interface
uses
{$IFDEF fpc}
LCLIntF, LCLType, LResources,
{$ELSE}
Windows,
{$ENDIF}
SysUtils, Classes, Controls, Graphics, Dialogs, StdCtrls, Clipbrd,
TAChartUtils;
@ -424,7 +418,7 @@ begin
FOwner := AOwner;
FTitle := TChartAxisTitle.Create(AOwner);
FGrid := TChartPen.Create;
FGrid.OnChange := StyleChanged;
FGrid.OnChange := @StyleChanged;
end;
destructor TChartAxis.Destroy;
@ -481,7 +475,7 @@ begin
inherited Create;
FOwner := AOwner;
FFont := TFont.Create;
FFont.OnChange := StyleChanged;
FFont.OnChange := @StyleChanged;
end;
destructor TChartAxisTitle.Destroy;
@ -534,9 +528,9 @@ begin
FAlignment := laRight;
FFont := TFont.Create;
FFont.OnChange := StyleChanged;
FFont.OnChange := @StyleChanged;
FFrame := TChartPen.Create;
FFrame.OnChange := StyleChanged;
FFrame.OnChange := @StyleChanged;
end;
destructor TChartLegend.Destroy;
@ -596,12 +590,12 @@ begin
FFont := TFont.Create;
FFont.Color := clBlue;
FFont.OnChange := StyleChanged;
FFont.OnChange := @StyleChanged;
FFrame := TChartPen.Create;
FFrame.OnChange := StyleChanged;
FFrame.OnChange := @StyleChanged;
FBrush := TBrush.Create;
FBrush.Color := FOwner.Color;
FBrush.OnChange := StyleChanged;
FBrush.OnChange := @StyleChanged;
FText := TStringList.Create;
end;
@ -710,7 +704,7 @@ begin
FBackColor := Color;
FGraphBrush := TBrush.Create;
FGraphBrush.OnChange := StyleChanged;
FGraphBrush.OnChange := @StyleChanged;
FLegend := TChartLegend.Create(Self);
FTitle := TChartTitle.Create(Self);
@ -731,7 +725,7 @@ begin
FFrame := TChartPen.Create;
FFrame.Visible := true;
FFrame.OnChange := StyleChanged;
FFrame.OnChange := @StyleChanged;
end;
destructor TChart.Destroy;
@ -1798,10 +1792,7 @@ begin
RegisterComponents('Additional', [TChart]);
end;
{$IFDEF fpc}
initialization
{$I tagraph.lrs}
{$ENDIF}
end.

16
components/tachart/taseries.pas
View File

@ -24,17 +24,11 @@ Authors: Lu
unit TASeries;
{$IFDEF fpc}
{$MODE DELPHI}{$H+}
{$ENDIF}
{$H+}
interface
uses
{$IFDEF fpc}
{$ELSE}
Windows,
{$ENDIF}
Classes, Dialogs, Graphics, sysutils, TAGraph, TAChartUtils;
type
@ -664,7 +658,7 @@ begin
FPointer := TSeriesPointer.Create(Self);
FPointer.FStyle := psCross;
FPointer.OnChange := StyleChanged;
FPointer.OnChange := @StyleChanged;
FStyle := psSolid;
@ -1025,7 +1019,7 @@ begin
inherited Create(AOwner);
FPen := TPen.Create;
FPen.OnChange := StyleChanged;
FPen.OnChange := @StyleChanged;
LineStyle := lsHorizontal;
end;
@ -1120,10 +1114,10 @@ begin
FBarWidthPercent := 70; //70%
FBarBrush := TBrush.Create;
FBarBrush.OnChange := StyleChanged;
FBarBrush.OnChange := @StyleChanged;
FBarPen := TPen.Create;
FBarPen.OnChange := StyleChanged;
FBarPen.OnChange := @StyleChanged;
FBarPen.Mode := pmCopy;
FBarPen.Style := psSolid;
FBarPen.Width := 1;