請教[Fishman兄]關於點不顯示還有些問題

發文回覆瀏覽次數：709

推到 Plurk!

推到 Facebook!

請教[Fishman兄]關於點不顯示還有些問題

尚未結案

seedbcc
高階會員

發表：232
回覆：272
積分：105
註冊：2003-12-10

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-11-30 19:04:31

IP:221.169.xxx.xxx 未訂閱

series.repaint是會觸動Series1GetPointerStyle執行嗎我再某個區段寫迴卷判斷某些點，介於某個值才去觸動Series1GetPointerStyle 不過

procedure TFrm_OptionSetting.btn_VarCtItemSomeLeftClick(Sender: TObject);
begin
  inherited;
        k:=0;  //合格點設定
        j:=8;
        while k<=j do
        begin
          if (QcSes_VarCt.Yvalue[k]>QcSes_VarCt.LCL) and  (QcSes_VarCt.Yvalue[k]    function TFrm_OptionSetting.QcSes_VarCtGetPointerStyle(
  Sender: TChartSeries; ValueIndex: Integer): TSeriesPointerStyle;
var i,j,k:integer;
begin
  inherited;      if ClickPoint then
  begin
    Result := TSeriesPointerStyle(9);
  end   
  else
  begin
       result:=TSeriesPointerStyle(StrToInt(Int_PointStyle));
  end;
end;
    有辦法讓迴圈都跑第二段CODE嗎

seedbcc
高階會員

發表：232
回覆：272
積分：105
註冊：2003-12-10

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-12-01 09:35:26

IP:221.169.xxx.xxx 未訂閱

再問一下Series1GetPointerStyle事件是series.repaint才會去觸發嗎會不會有它事件讓它也解發的嗎?

Fishman
尊榮會員

發表：120
回覆：1949
積分：2163
註冊：2006-10-28

發送簡訊給我

#3 引用回覆回覆

發表時間：2004-12-01 12:42:45

IP:210.65.xxx.xxx 未訂閱

Hi seedbcc, 試試改成如下看看效果：

procedure TFrm_OptionSetting.btn_VarCtItemSomeLeftClick(Sender: TObject);
begin
  inherited;      ClickPoint := not ClickPoint;
  QcSes_VarCt.Repaint;
END;    function TFrm_OptionSetting.QcSes_VarCtGetPointerStyle(
  Sender: TChartSeries; ValueIndex: Integer): TSeriesPointerStyle;
var i,j,k:integer;
begin
  inherited;      if ClickPoint then
    begin
      if (QcSes_VarCt.Yvalue[ValueIndex] > QcSes_VarCt.LCL) and  (QcSes_VarCt.Yvalue[ValueIndex] < QcSes_VarCt.UCL) then
        Result := TSeriesPointerStyle(9)
      else
        Result := TSeriesPointerStyle(Int_PointStyle);
    end
  else
    Result := TSeriesPointerStyle(Int_PointStyle);
end;

當該 series 有需要畫點時，會自動呼叫 GetPointerStyle 取得該點的 PointerStyle，QcSes_VarCt.Repaint 就是讓該 Series 重繪請注意， GetPointerStyle 是一個 Function 而非 Procedure !! ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

系統時間：2024-11-23 20:29:51

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！

請教[Fishman兄]關於 點不顯示 還有些問題

請教[Fishman兄]關於點不顯示還有些問題