我瀏覽過許多相關文章但是都沒有我逤遇到的狀況所以請各位前輩幫忙解答~~

我要用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 設定成這樣~~~
感謝~

太久沒用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;

雖然不是我真正想找的答案，感謝 Pedro 大大的回答!!