Tchart內 每點型態（style) 如何設不同的style？ 請教各位高手 我使用qcseries 上面有粉多點 ，我 可以用 Series.ValueColor[i] 來改變每點的顏色 我要用 什麼property來改變 它每點的型態(style)?

Hi seedbcc,    什麼是 QCSeries 啊？沒見過耶！Third Party Tools !?    TLineSeries 的 OnGetPointerStyle 可以更改該 TLineSeries 的 TSeriesPointerStyle，不知是否合乎你的需求？

function TForm1.Series2GetPointerStyle(Sender: TChartSeries;
  ValueIndex: Integer): TSeriesPointerStyle;
var
  I : Integer;
begin
  I := ValueIndex mod 7;
  case I of
    0 : Result := psRectangle;
    1 : Result := psCircle;
    2 : Result := psTriangle;
    3 : Result := psDownTriangle;
    4 : Result := psCross;
    5 : Result := psDiagCross;
    6 : Result := psStar;
  else
    Result := psRectangle
  end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

TQC Series 是 Tchart內的管製圖series啦 定義及描述如下： Plots Quality controls charts. -------------------------------------------------------- Unit StatSeries -------------------------------------------------------- Declaration TQCSeries = class(TLineSeries) -------------------------------------------------------- Description The TQCSeries can be used to plot Quality Control Charts (variable and attribute charts). It inherits all TLineSeries properties/methods and introduces some new properties. -------------------------------------------------------- Category Control charts -------------------------------------------------------- 大大你post的程式碼 我不知道要如何使用 ?? 該我把點都已經繪製完後 如何用迴圈 更改某些點的pointerstyle

使用Fishman的方法 假設超過 UCL,LCL 的點為紅色-->畫圈 否為原本樣子 function TForm1.Series1GetPointerStyle(Sender: TChartSeries; ValueIndex: Integer): TSeriesPointerStyle; begin if Sender.ValueColor[ValueIndex] = clRed then Result := psCircle else Result := psRectangle; end;

如何假設呢 ?? 我不能每個點都設 不同的style嗎 也就是 一定要根據點的顏色 才能 做點的pointer style更改嗎

Hi seedbcc,    1.該 Series.Pointer.Visible 必須被設為 True;

Series.Pointer.Visible := True;

2.該 TLineSeries 的 TSeriesPointerStyle 簡化程式碼如下

function TForm1.Series2GetPointerStyle(Sender: TChartSeries;
  ValueIndex: Integer): TSeriesPointerStyle;
var
  I : Integer;
begin
  I := ValueIndex mod 9;
  Result := TSeriesPointerStyle(I);
end;

3.TSeriesPointerStyle 只有九種 Type，如何做到完全不一樣？ ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

小弟不是要每點不同的形態啦 是指說如何讓某些指定的點，設某種形態 Series2GetPointerStyle 這個function要如何使用呢? 因為，我要跑迴圈去判斷 哪些點要更改其原本的style

Hi seedbcc,    只要 Series.Pointer.Visible 設為 True 時，當 TLineSeries 重繪時，會自動呼叫該 Function()，因此只要在該 Function 中加入程式碼，並經過你的程式判斷後，對 Result 給值即可！ 例如 Series1 當其值大於 100 時 PointerStyle 為圓形否則為三角形，程式碼如下：

function TForm1.Series1GetPointerStyle(Sender: TChartSeries;
  ValueIndex: Integer): TSeriesPointerStyle;
begin
  IF TLineSeries(Sender).YValue[ValueIndex] > 100 then
    Result := psCircle
  ELSE
    Result := psTriangle;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

感謝fishman的說明！ 後進 會試試

[Error] UFrm_PhVarControlChart.pas(1768): Incompatible types: 'TSeriesPointerStyle' and 'TPointerStyle' 不知道為何 會出現這個err

果然還是要有經驗 Result := TSeriesPointerStyle(?); 就不會有錯誤啦