TeeChart 座標位置から画面上のピクセル位置を取得，ピクセル位置からグラフ上の座標位置を取得など

座標位置から画面上のピクセル位置を取得，ピクセル位置からグラフ上の座標位置を取得など  (TeeChart Pro 8.06)

uessに TeEngineを追加

procedure TForm1.GetPosInfo;
var
  i, XPos, YPos: Integer;
  XVal, YVal: Double;
  str1: String;
begin

  //Seriesのデーター点インデックスから点の値とピクセル位置を取得 =====
  i := Series1.FirstValueIndex;//最初の点のインデックス(LastValueIndexは最後の点)
  //データー点の値を取得
  XVal := Series1.XValue[i];
  YVal := Series1.YValue[i];
  //データー点の画面上のピクセル位置を取得
  XPos := Series1.CalcXPos(i);
  YPos := Series1.CalcYPos(i);

  str1 := ‘[Point index ‘ + IntToStr(i) + ‘]’;
  str1 := str1 + #13#10;
  str1 := str1 + ‘Value =(‘ + FloatToStr(XVal) + ‘, ‘ + FloatToStr(YVal) + ‘)’;
  str1 := str1 + #13#10;
  str1 := str1 + ‘Pixel =(‘ + IntToStr(XPos) + ‘, ‘ + IntToStr(YPos) + ‘)’;
  str1 := str1 + #13#10;

  //ウインドウのピクセル位置からグラフ上の座標位置を取得 =====
 
//ピクセル位置100, 100の座標を取得
  XPos := 100;
  YPos := 100;
  XVal := Series1.XScreenToValue(XPos);
  YVal := Series1.YScreenToValue(YPos);

  str1 := str1 + #13#10;
  str1 := str1 + ‘[Pixel (‘ + IntToStr(XPos) + ‘, ‘ + IntToStr(YPos) + ‘)]’;
  str1 := str1 + #13#10;
  str1 := str1 + ‘Value =(‘ + FloatToStr(XVal) + ‘, ‘ + FloatToStr(YVal) + ‘)’;
  str1 := str1 + #13#10;

  //グラフ上の座標位置からウインドウのピクセル位置を取得 =====

  //座標10.0, 5.0のピクセル位置を取得
  XVal := 10.0;
  YVal := 5.0;
  XPos := Series1.CalcXPosValue(XVal);
  YPos := Series1.CalcYPosValue(YVal);

  str1 := str1 + #13#10;
  str1 := str1 + ‘[Value (‘ + FloatToStr(XVal) + ‘, ‘ + FloatToStr(YVal) + ‘]’;
  str1 := str1 + #13#10;
  str1 := str1 + ‘Pixel = (‘ + IntToStr(XPos) + ‘, ‘ + IntToStr(YPos) + ‘)’;
  str1 := str1 + #13#10;

  ShowMessage(str1);

end;