paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 04:57:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add TChartNavPanel.MiniMap property

Browse Source 
git-svn-id: trunk@29936 -
This commit is contained in:
ask 2011-03-20 17:52:51 +00:00
parent 934a785c7f
commit 06ed79f7db
2 changed files with 42 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tagraph.pas
View File

@ -966,7 +966,7 @@ procedure TChart.PaintOnAuxCanvas(ACanvas: TCanvas; ARect: TRect);
var
oldScale, oldOffset: TDoublePoint;
oldClipRect: TRect;
oldLogicalExtent: TDoubleRect;
oldLogicalExtent, oldPrevLogicalExtent: TDoubleRect;
oldIsZoomed: Boolean;
begin
// TODO: Group rendering params into a structure.
@ -974,6 +974,7 @@ begin
oldOffset := FOffset;
oldClipRect := FClipRect;
oldLogicalExtent := FLogicalExtent;
oldPrevLogicalExtent := FPrevLogicalExtent;
oldIsZoomed := FIsZoomed;
try
FIsZoomed := false;
@ -983,6 +984,7 @@ begin
FOffset := oldOffset;
FClipRect := oldClipRect;
FLogicalExtent := oldLogicalExtent;
FPrevLogicalExtent := oldPrevLogicalExtent;
FIsZoomed := oldIsZoomed;
end;
end;

56
components/tachart/tanavigation.pas
View File

@ -89,27 +89,30 @@ type
TChartNavPanel = class(TCustomControl)
private
FChart: TChart;
FFullExtentPen: TPen;
FListener: TListener;
FLogicalExtentPen: TPen;
FProportional: Boolean;
procedure ChartExtentChanged(ASender: TObject);
procedure SetChart(AValue: TChart);
procedure SetFullExtentPen(AValue: TPen);
procedure SetLogicalExtentPen(AValue: TPen);
procedure SetProportional(AValue: Boolean);
private
FAllowDragNavigation: Boolean;
FDragCursor: TCursor;
FIsDragging: Boolean;
FLogicalExtentRect: TRect;
FOffset: TDoublePoint;
FOldCursor: TCursor;
FPrevPoint: TDoublePoint;
FScale: TDoublePoint;
FUpdateLocked: Boolean;
procedure ChartExtentChanged(ASender: TObject);
private
FAllowDragNavigation: Boolean;
FChart: TChart;
FDragCursor: TCursor;
FFullExtentPen: TPen;
FListener: TListener;
FLogicalExtentPen: TPen;
FMiniMap: Boolean;
FProportional: Boolean;
FShift: TShiftState;
procedure SetChart(AValue: TChart);
procedure SetDragCursor(AValue: TCursor);
procedure SetFullExtentPen(AValue: TPen);
procedure SetLogicalExtentPen(AValue: TPen);
procedure SetMiniMap(AValue: Boolean);
procedure SetProportional(AValue: Boolean);
protected
procedure MouseDown(
AButton: TMouseButton; AShift: TShiftState; AX, AY: Integer); override;
@ -127,6 +130,7 @@ type
property DragCursor: TCursor read FDragCursor write SetDragCursor default crSizeAll;
property FullExtentPen: TPen read FFullExtentPen write SetFullExtentPen;
property LogicalExtentPen: TPen read FLogicalExtentPen write SetLogicalExtentPen;
property MiniMap: Boolean read FMiniMap write SetMiniMap default false;
property Proportional: Boolean read FProportional write SetProportional default false;
property Shift: TShiftState read FShift write FShift default [ssLeft];
published
@ -244,7 +248,8 @@ end;
procedure TChartNavPanel.ChartExtentChanged(ASender: TObject);
begin
Unused(ASender);
Invalidate;
if not FUpdateLocked then
Invalidate;
end;
constructor TChartNavPanel.Create(AOwner: TComponent);
@ -351,9 +356,19 @@ begin
end;
FOffset -= ext.a * FScale;
Canvas.Brush.Color := Chart.BackColor;
Canvas.Brush.Style := bsSolid;
Canvas.FillRect(ClientRect);
if MiniMap then begin
FUpdateLocked := true;
try
Chart.PaintOnAuxCanvas(Canvas, Rect(0, 0, Width, Height));
finally
FUpdateLocked := false;
end;
end
else begin
Canvas.Brush.Color := Chart.BackColor;
Canvas.Brush.Style := bsSolid;
Canvas.FillRect(ClientRect);
end;
Canvas.Brush.Style := bsClear;
Canvas.Pen := FullExtentPen;
DrawRect(fe);
@ -395,6 +410,13 @@ begin
Invalidate;
end;
procedure TChartNavPanel.SetMiniMap(AValue: Boolean);
begin
if FMiniMap = AValue then exit;
FMiniMap := AValue;
Invalidate;
end;
procedure TChartNavPanel.SetProportional(AValue: Boolean);
begin
if FProportional = AValue then exit;