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

TAChart: Do not invalidate chart on mouseclick if zooming was not changed

Browse Source 
git-svn-id: trunk@23468 -
This commit is contained in:
ask 2010-01-15 13:23:27 +00:00
parent 05bb84fffb
commit 1e56a54ecc
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/tachart/tagraph.pas
View File

@ -912,6 +912,8 @@ begin
end;
procedure TChart.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
oldIsZoomed: Boolean;
begin
if not FIsMouseDown then begin
inherited;
@ -924,20 +926,21 @@ begin
FIsMouseDown := false;
with FSelectionRect do begin
oldIsZoomed := FIsZoomed;
with FSelectionRect do
FIsZoomed := (Left < Right) and (Top < Bottom);
if FIsZoomed then
with FZoomExtent do begin
a := ImageToGraph(TopLeft);
b := ImageToGraph(BottomRight);
if a.X > b.X then
Exchange(a.X, b.X);
if a.Y > b.Y then
Exchange(a.Y, b.Y);
end;
end;
if FIsZoomed then
with FZoomExtent do begin
a := ImageToGraph(FSelectionRect.TopLeft);
b := ImageToGraph(FSelectionRect.BottomRight);
if a.X > b.X then
Exchange(a.X, b.X);
if a.Y > b.Y then
Exchange(a.Y, b.Y);
end;
Invalidate;
if FIsZoomed or oldIsZoomed then
Invalidate;
end;
procedure TChart.DoDrawReticule(