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

TAChart: Make Assign and EraseBackground methods public, as inherited ones

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

git-svn-id: trunk@18749 -
This commit is contained in:
vincents 2009-02-18 12:22:32 +00:00
parent a945bd4085
commit 69610334ef
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/tachart/tagraph.pas
View File

@ -51,7 +51,7 @@ type
private private
FVisible: Boolean; FVisible: Boolean;
procedure SetVisible(Value: Boolean); procedure SetVisible(Value: Boolean);
protected public
procedure Assign(Source: TPersistent); override; procedure Assign(Source: TPersistent); override;
published published
property Visible: Boolean read FVisible write SetVisible; property Visible: Boolean read FVisible write SetVisible;
@ -72,11 +72,10 @@ type
procedure SetFont(Value: TFont); procedure SetFont(Value: TFont);
procedure SetFrame(Value: TChartPen); procedure SetFrame(Value: TChartPen);
procedure StyleChanged(Sender: TObject); procedure StyleChanged(Sender: TObject);
protected
procedure Assign(Source: TPersistent); override;
public public
constructor Create(AOwner: TCustomChart); constructor Create(AOwner: TCustomChart);
destructor Destroy; override; destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
published published
property Visible: Boolean read FVisible write SetVisible; property Visible: Boolean read FVisible write SetVisible;
property Alignment: TLegendAlignment read FAlignment write SetAlignment; property Alignment: TLegendAlignment read FAlignment write SetAlignment;
@ -101,11 +100,10 @@ type
procedure SetText(Value: TStrings); procedure SetText(Value: TStrings);
procedure SetAlignment(Value: TAlignment); procedure SetAlignment(Value: TAlignment);
procedure StyleChanged(Sender: TObject); procedure StyleChanged(Sender: TObject);
protected
procedure Assign(Source: TPersistent); override;
public public
constructor Create(AOwner: TCustomChart); constructor Create(AOwner: TCustomChart);
destructor Destroy; override; destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
published published
property Visible: Boolean read FVisible write SetVisible; property Visible: Boolean read FVisible write SetVisible;
property Brush: TBrush read FBrush write SetBrush; property Brush: TBrush read FBrush write SetBrush;
@ -126,11 +124,10 @@ type
procedure SetAngle(Value: Integer); procedure SetAngle(Value: Integer);
procedure SetFont(Value: TFont); procedure SetFont(Value: TFont);
procedure StyleChanged(Sender: TObject); procedure StyleChanged(Sender: TObject);
protected
procedure Assign(Source: TPersistent); override;
public public
constructor Create(AOwner: TCustomChart); constructor Create(AOwner: TCustomChart);
destructor Destroy; override; destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
published published
property Caption: String read FCaption write SetCaption; property Caption: String read FCaption write SetCaption;
property Angle: Integer read FAngle write SetAngle; property Angle: Integer read FAngle write SetAngle;
@ -150,11 +147,10 @@ type
procedure SetGrid(Value: TChartPen); procedure SetGrid(Value: TChartPen);
procedure SetInverted(Value: Boolean); procedure SetInverted(Value: Boolean);
procedure StyleChanged(Sender: TObject); procedure StyleChanged(Sender: TObject);
protected
procedure Assign(Source: TPersistent); override;
public public
constructor Create(AOwner: TCustomChart); constructor Create(AOwner: TCustomChart);
destructor Destroy; override; destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
published published
property Visible: boolean read FVisible write SetVisible; property Visible: boolean read FVisible write SetVisible;
property Inverted: boolean read FInverted write SetInverted; property Inverted: boolean read FInverted write SetInverted;
@ -281,7 +277,6 @@ type
IndexSerie, Index: Integer; const APoint: TPoint; Xg, Yg: Double); virtual; IndexSerie, Index: Integer; const APoint: TPoint; Xg, Yg: Double); virtual;
procedure DoDrawReticule( procedure DoDrawReticule(
IndexSerie, Index: Integer; const APoint: TPoint; Xg, Yg: Double); virtual; IndexSerie, Index: Integer; const APoint: TPoint; Xg, Yg: Double); virtual;
procedure EraseBackground(DC: HDC); override;
public public
XImageMin, YImageMin: Integer; // Image coordinates of limits XImageMin, YImageMin: Integer; // Image coordinates of limits
XImageMax, YImageMax: Integer; XImageMax, YImageMax: Integer;
@ -289,6 +284,8 @@ type
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure Paint; override; procedure Paint; override;
procedure EraseBackground(DC: HDC); override;
procedure PaintOnCanvas(ACanvas: TCanvas; ARect: TRect); procedure PaintOnCanvas(ACanvas: TCanvas; ARect: TRect);
procedure Refresh(ACanvas: TCanvas; ARect: TRect); procedure Refresh(ACanvas: TCanvas; ARect: TRect);
procedure Clean(ACanvas: TCanvas; ARect: TRect); procedure Clean(ACanvas: TCanvas; ARect: TRect);