TeeChartでグラフの縦横比を固定にして表示するには？ (ID:31485)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

真琴：「ハルコさん、こんなんじゃダメ？」
春子：「ふ〜ん、これはドラッグした長方形のどっちの辺を優先するか決められるンだね」
真琴：「そぅ、それにZoomRectは使わないよ」
春子：「これでイケル気もするけど、このPC環境で試せないから落とし穴あるかもヨ」
真琴：「落とし穴？…でも、参考にはなるんじゃない？」
春子：「まぁネ、アキラメないでって、エールを送るコトにも」

type
  TPriorityCoord = (pcHorz, pcVert);
  TChart = class(Chart.TChart)
  private
    FPriorityCoord: TPriorityCoord;
    DownPosX, DownPosY: Integer;
    procedure WmLButtonDown(var Msg: TMessage); Message WM_LBUTTONDOWN;
    procedure WmLButtonUp(var Msg: TMessage); Message WM_LBUTTONUP;
  published
    property PriorityCoord: TPriorityCoord read FPriorityCoord write FPriorityCoord;
  end;

TForm1 = class(TForm)
    Chart1: TChart;
    ......

procedure TChart.WmLButtonDown(var Msg: TMessage);
begin
  DownPosX := Msg.LParamLo;
  DownPosY := Msg.LParamHi;
  inherited;
end;

procedure TChart.WmLButtonUp(var Msg: TMessage);
begin
  if (Msg.LParamLo > DownPosX)and(Msg.LParamHi > DownPosY) then begin
   case FPriorityCoord of
    pcHorz: Msg.LParamHi := WORD((DownPosY + Msg.LParamLo - DownPosX) * ChartHeight div ChartWidth);
    pcVert: Msg.LParamLo := WORD((DownPosX + Msg.LParamHi - DownPosY) * ChartWidth div ChartHeight);
   end;
  end;
  inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.PriorityCoord := pcHorz; // pcVert;
  ........

真琴：「ね、話は変るんだけど、なんとかハヅキさんに来てもらう方法ないかなぁ」
春子：「ン？ ナンのコト？」
真琴：「土曜の花火大会の夜のバーベキューに、ハヅキさんも是非って誘ったの、でも…」
春子：「あぁ〜そのコトね、それで、ハヅキさんに断られちゃったの？」
真琴：「そうなの、おじいちゃんも残念がって…、ねぇ、ナンでだろぅ、楽しいと思うのに」
春子：「ハヅキさんは心臓弱いンでしょ？ 健康なヒトが大勢でワイワイ楽しンでるのを観るのはツライのかも」
真琴：「あ、そういうことなのかぁ…、じゃぁ、やっぱりアキラメるしかないネ」
春子：「そんな簡単にアキラメないで、別の日に内輪だけの静かなバーベキューなんて、どう？」
真琴：「あッそうだよね、アタシ、おじいちゃんに頼んでみる、お客様のいない日に」
春子：「マサルさんが作るバーベキュー料理は格別美味しいもんネ」
真琴：「うん、だから、ハヅキさんにも食べて欲しいの、ゼッタイ」
春子：「…でも、花火大会が過ぎると夏も終わるなぁって気がするネ、さびしいけど」
真琴：「え？ まだ半分も残ってるじゃない、夏休みだって」
春子：「そぅ半分、だから花火大会は夏の折り返し点なの、終わりの始まりってワケ」
真琴：「そんなコト言わないでよ、ハルコさん、夏はまだまだ終わらないンだから」
春子：「終わらせたくない？ なら、いっそ夏の始めに戻ってみれば？ マコト」
真琴：「ハルコさん、アタシは自由にタイムトラベル出来ないって言ったじゃん」
春子：「そっか、じゃぁ、そのやり方教えてあげようか？ マコト」
真琴：「もしかして、また冗談話ってコト？ モウいいよ、ハルコさん^^;」

←解決時は質問者本人がここをチェックしてください。

戻る