カテゴリー: Delphi

TeeChart ズーム・スクロールの設定 (TeeChart Pro 8.06)

uessに TeeProcsを追加

  With Chart1 do
  begin

      //マウスでのズーム (左ボタンを押しながら右下へドラッグでズーム)=====
      //ズーム有効
       Zoom.Allow := True;
      //アニメーションズーム
       Zoom.Animated := True;
      //アニメーションステップ
       Zoom.AnimatedSteps := 8;
      //アニメーションステップの変化度合い(グローバル変数)
       AnimatedZoomFactor := 10.0;//(1～)
      //ズーム枠の色
       Zoom.Pen.Color := clSilver;
      //ズーム枠内の色
       Zoom.Brush.Color := clCream;
      //最小ズーム枠(これより小さい範囲指定の場合にはズームしないようにする)
       Zoom.MinimumPixels := 16;
      //ズーム方向(tzdHorizontal, tzdVertical, tzdBoth)
       Zoom.Direction := tzdBoth;
      //ズームに使用するマウスボタン(mbLeft, mbRight, mbMiddle)
       Zoom.MouseButton := mbLeft;
      //ズーム開始条件にキー押し条件を追加
      //(ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble)
      //Zoom.KeyShift := [ssShift];
      //右下から左上方向へのドラッグでズームをリセット
       Zoom.UpLeftZooms := False;

      //マウスでのスクロール (右ボタンを押しながらドラッグ)===============
      //スクロール方向
      //(pmNone, pmHorizontal, pmVertical, pmBoth)
       AllowPanning := pmBoth;
      //スクロールに使用するマウスボタン(mbLeft, mbRight, mbMiddle)
       ScrollMouseButton := mbRight;

    end;

ズーム・スクロールを元に戻すには，
   Chart1.UndoZoom;