線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2432
推到 Plurk!
推到 Facebook!

有關設定image x y 軸邊界問題~~

缺席
goolddag0821
一般會員


發表:10
回覆:10
積分:3
註冊:2007-07-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-08-11 01:39:49 IP:220.136.xxx.xxx 訂閱
我瀏覽過許多相關文章但是都沒有我逤遇到的狀況所以請各位前輩幫忙解答~~

我要用image 作一的 X Y 軸

以下是 VB的原始程式碼
他是用VB的 PictureBox 來做 DIM myPic AS PictureBox
myPD.intMinX , myPD.intMaxY,myPD.intMaxX .,myPD.intMinY 這是由Excel帶入的X Y 軸的座標然後去判斷最大值與最小值的X與Y帶入

[code vb]
myPic.Cls
myPic.DrawWidth = 5
myPic.Scale (myPD.intMinX - 5, myPD.intMaxY 5)-(myPD.intMaxX 5, myPD.intMinY - 5)
Dim X As Integer, Y As Integer
For Y = myPD.intMinY To myPD.intMaxY
For X = myPD.intMinX To myPD.intMaxX
Set chip = Nothing
Set chip = myPD.map(X, Y)
If chip Is Nothing Then
myPic.PSet (X, Y), RGB(0, 0, 0)
'If isInCoverRange(X, Y) = True Then myPic.PSet (X, Y), RGB(50, 50, 50)
ElseIf myPD.map(X, Y).Grade = 33 Then
myPic.PSet (X, Y), RGB(255, 0, 0)
ElseIf myPD.map(X, Y).Iv = 0 Then
myPic.PSet (X, Y), RGB(0, 255, 0)
Else
myPic.PSet (X, Y), RGB(0, 0, 255)
End If
Next X
Next Y
myPic.AutoRedraw = True
[/code]



在此請位各位大大用Delphi 如何將Image 設定成這樣~~~
感謝~
pedro
尊榮會員


發表:152
回覆:1187
積分:892
註冊:2002-06-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-08-12 08:56:27 IP:60.248.xxx.xxx 未訂閱
太久沒用vb了,看不太懂你的程式

對delphi來說,可以在canvas上,用gdi的api去繪製你要的資料
canvas的起點是右上角,座標要轉換成笛卡兒xy座標,需自行撰寫轉換函式

ex:

procedure TForm1.Button1Click(Sender: TObject);
begin
Canvas.Pixels[10,10]:=clRed;
Canvas.MoveTo(300,200);
Canvas.LineTo(30,70);
Canvas.Pen.Color:=clGreen;
Canvas.Rectangle(10,10,200,200);
end;
goolddag0821
一般會員


發表:10
回覆:10
積分:3
註冊:2007-07-16

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-08-15 09:44:00 IP:219.87.xxx.xxx 訂閱
雖然不是我真正想找的答案,感謝 Pedro 大大的回答!!
系統時間:2024-03-29 2:54:37
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!