P.D.
版主
    
 發表:603 回覆:4038 積分:3874 註冊:2006-10-31
發送簡訊給我
|
請問各位 DBChart 可如做到如圖的功能, 移動dbgrid, 可以有一條指標線同步在
dbchart上移動同時指到正確的數據上, 謝謝!
 ps:圖中的指標線是我自己加畫上去的, 不是由dbchart所產生的, 不要誤會! 發表人 - P.D. 於 2005/01/19 13:59:43
|
Fishman
尊榮會員
    
 發表:120 回覆:1949 積分:2163 註冊:2006-10-28
發送簡訊給我
|
Hi P.D. 大大, 請試試看以下範例是否是你要的效果 ![]() < href="http://delphi.ktop.com.tw/loadfile.php?TOPICID=19980994&CC=446866">http://delphi.ktop.com.tw/loadfile.php?TOPICID=19980994&CC=446866 ![]() ----------------------------------
小弟才疏學淺,若有謬誤尚請不吝指教
----------------------------------
------ Fishman
|
P.D.
版主
    
 發表:603 回覆:4038 積分:3874 註冊:2006-10-31
發送簡訊給我
|
引言:
Hi P.D. 大大, 請試試看以下範例是否是你要的效果 < href="http://delphi.ktop.com.tw/loadfile.php?TOPICID=19980994&CC=446866">http://delphi.ktop.com.tw/loadfile.php?TOPICID=19980994&CC=446866 ----------------------------------
小弟才疏學淺,若有謬誤尚請不吝指教
----------------------------------
>>< face="Verdana, Arial, Helvetica"> 感謝 Fishman無私奉獻, 的確可以很正確的運作! 如圖, 我加了一些數值顯示
Font.Size:= 7;
Font.Name:= '細明體';
if cbxP1.Checked then begin
Font.Color:= clNavy;
TextOut(AX,AY+4,'成本:'+DM_Rep591.IBQ_D8000GCOST.AsString);
end;
if cbxP2.Checked then begin
Font.Color:= clGreen;
TextOut(AX,AY+18,'銷售:'+DM_Rep591.IBQ_D8000GPRICE.AsString);
end;
if cbxP3.Checked then begin
Font.Color:= clMaroon;
TextOut(AX,AY+32,'毛利:'+DM_Rep591.IBQ_D8000GPROFIT.AsString);
end;
發表人 - P.D. 於 2005/01/20 02:17:21
|
pireer
初階會員

 發表:73 回覆:80 積分:30 註冊:2004-12-14
發送簡訊給我
|
|