H
hs-kill
Unregistered / Unconfirmed
GUEST, unregistred user!
下面是鼠标在image上移动是，在一个shape上显示当前鼠标下的颜色
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
bmp:tbitmap;
begin
//注意如果有透明通道的图象（比如png，gif），透明和半透明部分暂时无法获得......
bmp:=tbitmap.Create;
bmp.Assign(image1.Picture.Graphic);//这个主要是防止image里加载非bitmap格式图片
bmp.PixelFormat:=pf24bit;//注意是这句，最好加上，全部转化为24位位图
Shape1.Brush.Color:=bmp.Canvas.Pixels[x,y];
bmp.Free;
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
bmp:tbitmap;
begin
//注意如果有透明通道的图象（比如png，gif），透明和半透明部分暂时无法获得......
bmp:=tbitmap.Create;
bmp.Assign(image1.Picture.Graphic);//这个主要是防止image里加载非bitmap格式图片
bmp.PixelFormat:=pf24bit;//注意是这句，最好加上，全部转化为24位位图
Shape1.Brush.Color:=bmp.Canvas.Pixels[x,y];
bmp.Free;
end;