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

TAChart: Fix SIGFPE after changing scale to logarithmic on zoomed-in chart

Browse Source 
git-svn-id: trunk@25941 -
This commit is contained in:
ask 2010-06-06 06:02:04 +00:00
parent 68caa0b7e3
commit 3fb76f8c86
3 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/tachartaxis.pas
View File

@ -652,8 +652,13 @@ end;
procedure TChartAxis.StyleChanged(ASender: TObject); procedure TChartAxis.StyleChanged(ASender: TObject);
begin begin
Unused(ASender); with Collection.Owner as TCustomChart do begin
(Collection.Owner as TCustomChart).Invalidate; // Transformation change could have invalidated the current extent,
// so revert to full extent for now.
if ASender is TAxisTransform then
ZoomFull;
Invalidate;
end;
end; end;
const const

2
components/tachart/tagraph.pas
View File

@ -236,7 +236,7 @@ type
procedure SaveToBitmapFile(const AFileName: String); inline; procedure SaveToBitmapFile(const AFileName: String); inline;
procedure SaveToFile(AClass: TRasterImageClass; const AFileName: String); procedure SaveToFile(AClass: TRasterImageClass; const AFileName: String);
function SaveToImage(AClass: TRasterImageClass): TRasterImage; function SaveToImage(AClass: TRasterImageClass): TRasterImage;
procedure ZoomFull; procedure ZoomFull; override;
public // Coordinate conversion public // Coordinate conversion
function GraphToImage(const AGraphPoint: TDoublePoint): TPoint; function GraphToImage(const AGraphPoint: TDoublePoint): TPoint;
function ImageToGraph(const APoint: TPoint): TDoublePoint; function ImageToGraph(const APoint: TPoint): TDoublePoint;

5
components/tachart/tatypes.pas
View File

@ -41,7 +41,10 @@ const
DEF_TITLE_DISTANCE = 4; DEF_TITLE_DISTANCE = 4;
type type
TCustomChart = class(TCustomControl); TCustomChart = class(TCustomControl)
public
procedure ZoomFull; virtual; abstract;
end;
{ TChartPen } { TChartPen }