Wolfgang Chien's Homepage | Delphi學習筆記 - 問答篇 |
請問在Delphi 1.0版中, TChartfx 元件中設定Tchartfx.value[0]:=100; 未何無法直接代入TChartfx物件使用,聽人說必須先設定Tchartfx.opendata屬性,懇請各位同好介紹一下opendata屬性如何撰寫才可使value代入使用
您問的應該是 1.0 的 TChartFX VBX 吧! 當初是用 Delphi 2.0 的 TChartFX OCX Help 回頭搜索 D1 的 VBX 怎麼用 -- 沒辦法, VBX 版的沒有附文件或範例程式... :(
以下有一個 Delphi 1.0 TChartFX 的例子, 從我以前的程式中截出來的, 由於是截錄而且牽涉到一個陣列與 Grid, 也許程式不太容易讀, 但重點應該都出來了才是. 對照著 D2 附的 OCX 版的 Help, 先作幾個簡單的實驗, 應該學得起來, 預祝順利!
-- cut here -- uses ..., VBXCtrl, Chart2fx; ... TfrmShowChart = class(TForm) ... Chart1: TChartFX; grdData: TStringAlignGrid; ... procedure ... ... const COD_VALUES = 1; CHART_TOPTIT = 2; CHART_BUTTOMTIT = 3; var ... begin (* 打開與 ChartFX 識別代號為 COD_VALUES 的對話管道並填入資料 *) grdData.RowCount := iHi - iLo + 2; grdData.Cells[1, 0] := '應收帳款'; grdData.Cells[2, 0] := '實收帳款'; Chart1.OpenData[COD_VALUES] := MAKELONG(1, iHi - iLo); for i := 1 to 2 do begin Chart1.ThisSerie := i - 1; for j := iLo to iHi do begin Chart1.Value[j - iLo] := adblSum[j, i]; grdData.Cells[i, j - iLo + 1] := Format('%12.2n', [adblSum[j, i]]); end; end; Chart1.CloseData[COD_VALUES] := 0; Chart1.Title[CHART_TOPTIT] := 'XXXX月營收統計表'; if lCuno then Chart1.Title[CHART_BUTTOMTIT] := '客戶編號: '+frmReceStat.edtRe_Cust.Text; for j := iLo to iHi do begin grdData.Cells[0, j - iLo + 1] := IntToStr(j div 12) + '年' + IntToStr(j mod 12) + '月'; Chart1.Legend[j - iLo] := grdData.Cells[0, j - iLo + 1]; end; Chart1.SerLeg[0] := '應收帳款'; Chart1.SerLeg[1] := '實收帳款'; grdData.AlignCol[0] := alCenter; grdData.AlignCol[1] := alRight; grdData.AlignCol[2] := alRight; end; -- cut here --
首頁 | 學習筆記 | 主題公園 | 軟體下載 | 關於本站 | 討論信群 | 相約下次 |