在image1显示的图片与原图片大小不一致. (50分)

Z

zggsbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #1

var
pic:TBitmap;
begin
pic:=TBitmap.Create;
pic.LoadFromFile('C:/My Documents/My Pictures/示例图片.bmp');
PaintBox1.canvas.Draw(0,0,pic);
pic.Free;
end;

在已绘制的图形的画布上插入另外的图片。
使用了，TCanvas.Draw

PaintBox1只显示图片的一部分，不是完整的图片。

怎样显示完整的图片？
解决，立即给分，在线等待！

请帮助！

 

Y

yu_ting

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #2

把Image的Strecth设置为False 去掉Image1.canvas....语句

 

D

dx2527

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #3

image1.Picture.Assign(pic);
去掉image1.canvas.Draw(0,0,pic);

 

Z

zggsbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #4

就是在IMAGE上画呀！
怎样使显示的图片在IMAGE画布上完整显示？

 

Y

yu_ting

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #5

画什么呀！能显示在窗口上就成功了！

 

Z

zggsbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #6

在已绘制的图形的画布上插入另外的图片。
使用了，TCanvas.Draw

插入的图片与原图片一致？

 

Z

zggsbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #7

问题发错了，下面是正确提问？

var
pic:TBitmap;
begin
pic:=TBitmap.Create;
pic.LoadFromFile('C:/My Documents/My Pictures/示例图片.bmp');
PaintBox1.canvas.Draw(0,0,pic);
pic.Free;
end;

在已绘制的图形的画布上插入另外的图片。
使用了，TCanvas.Draw

PaintBox1只显示图片的一部分，不是完整的图片。

怎样显示完整的图片？
解决，立即给分，在线等待！

请帮助！

 

来

来如风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #8

paintbox小了：）

 

D

dx2527

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #9

你是要按圖片大小顯示呢還是要按image大小顯示?
如是按圖片大小顯示則:image1.height:=pic.Height;
image1.width:= pic.Width;
如是按image大小顯示則可以用image1.Picture.Assign(pic);但要將image1的strech改為true

 

Z

zggsbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #10

就是paintbox，大小是固定的，问题是怎样把显示图片大小符合paintbox的大小。

 

来

来如风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #11

那你在paintbox上放个和paintbox一样大小的image，设置strech为true，
然后……

 

Z

zggsbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #12

'C:/My Documents/My Pictures/示例图片.bmp' 大小height=600,width=800;

paintboxr的大小是height=100,width=200

把600，800图片,画在paintboxr,100，200，与原图一致？

 

Z

zggsbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #13

我想用这个方式，TCanvas.Draw

 

Z

zggsbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #14

大家测试一段代码，就知道我的意思了。

var
pic:TBitmap;
begin
pic:=TBitmap.Create;
pic.LoadFromFile('C:/My Documents/My Pictures/示例图片.bmp');
PaintBox1.canvas.Draw(0,0,pic);
pic.Free;
end;


PaintBox1的大小是100,200

 

Z

zggsbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #15

把pic,设为100，200，
var
pic:TBitmap;
begin
pic:=TBitmap.Create;
pic.LoadFromFile('C:/My Documents/My Pictures/示例图片.bmp');

pic.Height:=100;
pic.Width:=200;
image2.Picture.Assign(pic);
pic.Free;

end;
image的Stretch可以缩小图，pic如何缩小图片？
怎样把pic显示完整图片，而不是一部分。

 

Z

zggsbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-03

• #16

接受答案了.