在delphi中如何得到图片中某一个点的绝对坐标(30分)

A

agangr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #1

在delphi中如何得到图片中某一个点的象素坐标

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #2

怎么描述那“某一个点”

 

Y

ydjjld

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #3

canvas有相关属性。

 

A

agangr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #4

鼠标点击图面的点

 

C

chuguozhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #5

Canvas.Pixels[y,x],其中x,y是坐标，如果你想改变这一点的颜色，可直接赋值

 

H

huawdg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #6

MouseDown 的X，Y值，即是Canvas的X,Y值

 

J

jinmen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #7

TRGBArray=Array [0..32767] of TRGBTriple;
pRGBArray=^TRGBArray;
...
var
i,j:integer;
PRGBArrayTemRGBArray;

...

Image1.Picture.Bitmap.PixelFormat:=pf24bit;
for j:=0 to ImageSrc.Picture.Bitmap.Height-1 do
begin
PRGBArrayTem:=ImageSrc.Picture.Bitmap.ScanLine[j];
for i:=0 to ImageSrc.Picture.Bitmap.Width-1 do
begin
PRGBArrayTem.rgbtRed:=255-PRGBArrayTem.rgbtRed;
PRGBArrayTem.rgbtGreen:=255-PRGBArrayTem.rgbtGreen;
PRGBArrayTem.rgbtBlue:=255-PRGBArrayTem.rgbtBlue;
end;
end;

scanline更快。