全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1150
推到 Plurk!
推到 Facebook!

paitbox image 兩者解析度的問題

尚未結案
isthatu
初階會員


發表:80
回覆:47
積分:25
註冊:2002-06-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-12-26 17:55:31 IP:211.20.xxx.xxx 未訂閱
各位好 我有一段fuction去取資料庫座標值 然後把座標點畫在Paintbox.canvas上 同時經過複雜公式計算把整個地圖畫出來 但是今天 我同樣換成IMAGE元件的canvas去承接這段fuction 一樣canvas屬性 繪製出來列印出來的東西 卻有明顯鋸齒狀 請問 該如何提高image的解析度呢 還是該從哪個方下著手呢??
------
BCDEFHIJKLMNOPQRSTUVWXZ
jow
尊榮會員


發表:66
回覆:751
積分:1253
註冊:2002-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-12-27 10:23:20 IP:220.130.xxx.xxx 未訂閱
TImage的Canvas是用來顯示其 屬性Picture.Bitmap的,同樣的, 所有繪圖的動作產生的圖點也被 Keep在這裡,因此繪圖前應先設 定你要的Bitmap大小.    例如:
//直接繪圖
procedure TForm1.Button1Click(Sender: TObject);
begin
  //改變解析度: 100x100
  Image1.Picture.Bitmap.Width := 100;   
  Image1.Picture.Bitmap.Height := 100;  
  Image1.Picture.Bitmap.Canvas.Pen.Color := clRed;
  Image1.Picture.Bitmap.Canvas.MoveTo(0,0);
  Image1.Picture.Bitmap.Canvas.LineTo(100,100);
end;    //直接繪圖
procedure TForm1.Button1Click(Sender: TObject);
var
  B: TBitmap;
begin
  B := TBitmap.Create;
  try
    B.Width := 100;
    B.Height := 100;
    B.Canvas.Pen.Color := clRed;
    B.Canvas.MoveTo(0,0);
    B.Canvas.LineTo(100,100);
    Image1.Picture.Bitmap.Assign(B);
  finally
    FreeAndNil(B);
  end;
end;    
chris_shieh
高階會員


發表:46
回覆:308
積分:240
註冊:2004-04-26

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-12-27 10:27:04 IP:219.68.xxx.xxx 未訂閱
有關TPaintBox 跟 TImage 的選擇 可以參考看看 ... (3)最好使用 TPaintBox,因為 TPaintBox 重畫的速度比較快,因此在畫線的時    候比較不會 delay,而 TImage 就比較可能造成 delay http://delphi.ktop.com.tw/topic.php?TOPIC_ID=54149 做繪圖軟件用TImage好,還是TPaintBox好? http://www.delphibbs.com/delphibbs/dispq.asp?lid=773643 發表人 - chris_shieh 於 2004/12/27 10:40:32
系統時間:2024-06-18 20:24:42
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!