paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 11:39:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix "unchanged" checks in event assignments

Browse Source 
git-svn-id: trunk@29989 -
This commit is contained in:
ask 2011-03-23 07:14:16 +00:00
parent dead098042
commit 5546c5b445
8 changed files with 14 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tachartaxis.pas
View File

@ -727,7 +727,7 @@ end;
procedure TChartAxis.SetOnMarkToText(const AValue: TChartAxisMarkToTextEvent);
begin
if FOnMarkToText = AValue then exit;
if TMethod(FOnMarkToText) = TMethod(AValue) then exit;
FOnMarkToText := AValue;
StyleChanged(Self);
end;

2
components/tachart/tacustomseries.pas
View File

@ -692,7 +692,7 @@ end;
procedure TChartSeries.SetOnGetMark(const AValue: TChartGetMarkEvent);
begin
if FOnGetMark = AValue then exit;
if TMethod(FOnGetMark) = TMethod(AValue) then exit;
FOnGetMark := AValue;
UpdateParentChart;
end;

2
components/tachart/tafuncseries.pas
View File

@ -543,7 +543,7 @@ end;
procedure TColorMapSeries.SetOnCalculate(AValue: TFuncCalculate3DEvent);
begin
if FOnCalculate = AValue then exit;
if TMethod(FOnCalculate) = TMethod(AValue) then exit;
FOnCalculate := AValue;
UpdateParentChart;
end;

12
components/tachart/tagraph.pas
View File

@ -1197,42 +1197,42 @@ end;
procedure TChart.SetOnAfterDrawBackground(AValue: TChartAfterDrawEvent);
begin
if CompareMethods(TMethod(FOnAfterDrawBackground),TMEthod(AValue)) then exit;
if TMethod(FOnAfterDrawBackground) = TMEthod(AValue) then exit;
FOnAfterDrawBackground := AValue;
Invalidate;
end;
procedure TChart.SetOnAfterDrawBackWall(AValue: TChartAfterDrawEvent);
begin
if CompareMethods(TMethod(FOnAfterDrawBackWall),TMethod(AValue)) then exit;
if TMethod(FOnAfterDrawBackWall) = TMethod(AValue) then exit;
FOnAfterDrawBackWall := AValue;
Invalidate;
end;
procedure TChart.SetOnBeforeDrawBackground(AValue: TChartBeforeDrawEvent);
begin
if CompareMethods(TMethod(FOnBeforeDrawBackground),TMethod(AValue)) then exit;
if TMethod(FOnBeforeDrawBackground) = TMethod(AValue) then exit;
FOnBeforeDrawBackground := AValue;
Invalidate;
end;
procedure TChart.SetOnBeforeDrawBackWall(AValue: TChartBeforeDrawEvent);
begin
if CompareMethods(TMethod(FOnBeforeDrawBackWall),TMethod(AValue)) then exit;
if TMethod(FOnBeforeDrawBackWall) = TMethod(AValue) then exit;
FOnBeforeDrawBackWall := AValue;
Invalidate;
end;
procedure TChart.SetOnChartPaint(AValue: TChartPaintEvent);
begin
if CompareMethods(TMethod(FOnChartPaint),TMethod(AValue)) then exit;
if TMethod(FOnChartPaint) = TMethod(AValue) then exit;
FOnChartPaint := AValue;
Invalidate;
end;
procedure TChart.SetOnDrawReticule(AValue: TDrawReticuleEvent);
begin
if CompareMethods(TMethod(FOnDrawReticule),TMethod(AValue)) then exit;
if TMethod(FOnDrawReticule) = TMethod(AValue) then exit;
FOnDrawReticule := AValue;
Invalidate;
end;

2
components/tachart/talegend.pas
View File

@ -537,7 +537,7 @@ end;
procedure TChartSeriesLegend.SetOnDraw(AValue: TLegendItemDrawEvent);
begin
if FOnDraw = AValue then exit;
if TMethod(FOnDraw) = TMethod(AValue) then exit;
FOnDraw := AValue;
StyleChanged(Self);
end;

2
components/tachart/taseries.pas
View File

@ -920,7 +920,7 @@ end;
procedure TBarSeries.SetOnBeforeDrawBar(AValue: TBeforeDrawBarEvent);
begin
if FOnBeforeDrawBar = AValue then exit;
if TMethod(FOnBeforeDrawBar) = TMethod(AValue) then exit;
FOnBeforeDrawBar := AValue;
UpdateParentChart;
end;

9
components/tachart/tatools.pas
View File

@ -299,14 +299,13 @@ type
private
FMouseDownPoint: TPoint;
FOnPointClick: TChartToolMouseEvent;
procedure SetOnPointClick(AValue: TChartToolMouseEvent);
public
procedure MouseDown(APoint: TPoint); override;
procedure MouseUp(APoint: TPoint); override;
published
property ActiveCursor;
property OnPointClick: TChartToolMouseEvent
read FOnPointClick write SetOnPointClick;
read FOnPointClick write FOnPointClick;
end;
{ TReticuleTool }
@ -1205,12 +1204,6 @@ begin
Handled;
end;
procedure TDataPointClickTool.SetOnPointClick(AValue: TChartToolMouseEvent);
begin
if FOnPointClick = AValue then exit;
FOnPointClick := AValue;
end;
initialization
ToolsClassRegistry := TStringList.Create;

4
components/tachart/tatransformations.pas
View File

@ -753,14 +753,14 @@ end;
procedure TUserDefinedAxisTransform.SetOnAxisToGraph(AValue: TTransformEvent);
begin
if FOnAxisToGraph = AValue then exit;
if TMethod(FOnAxisToGraph) = TMethod(AValue) then exit;
FOnAxisToGraph := AValue;
Changed;
end;
procedure TUserDefinedAxisTransform.SetOnGraphToAxis(AValue: TTransformEvent);
begin
if FOnGraphToAxis = AValue then exit;
if TMethod(FOnGraphToAxis) = TMethod(AValue) then exit;
FOnGraphToAxis := AValue;
Changed;
end;