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

TAChart: Fix leftover tool image after unzooming in normal draw mode

Browse Source 
git-svn-id: trunk@38901 -
This commit is contained in:
ask 2012-09-29 14:30:00 +00:00
parent e7353938a4
commit 50c1480502
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/tatools.pas
View File

@ -1188,6 +1188,9 @@ begin
(dragDir <> zreClick) and not (FPrevDragDir in [dragDir, zreDifferentDrag]) (dragDir <> zreClick) and not (FPrevDragDir in [dragDir, zreDifferentDrag])
then begin then begin
FPrevDragDir := zreDifferentDrag; FPrevDragDir := zreDifferentDrag;
if not Chart.IsZoomed and (EffectiveDrawingMode = tdmNormal) then
// ZoomFull will not cause redraw, force it to erase the tool.
Chart.StyleChanged(Self);
DoZoom(FChart.GetFullExtent, true); DoZoom(FChart.GetFullExtent, true);
exit; exit;
end; end;