有关image的问题(100分)

A

alei_nb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-18

• #1

image.canvas 先画了几条线,然后image的width和height 扩大
再画了几条线
但是在扩大的部分中线没有画上
好象canvas.ClipRect并没有随着 image扩大而扩大
？？？？？
怎么解决呢？？？

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-18

• #2

具体代码？

 

H

Huzzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-18

• #3

你只改IMAGE的WIDTH和HEIGHT不够，还要改Image.Bitmap或Image.Graphic的Width和Height

 

M

minkerui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-18

• #4

Right!

 

G

gxcooo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-18

• #5

我越遇到过这个问题,看看我的解决办法吧:
//使TBitmap的高增加50个像素,并保留原来的图像
procedure TForm1.AddLine;
var
Bitmap: Tbitmap;
dest, source: TRect;
begin
Bitmap := TBitmap.Create;
Bitmap.Height := MapImage.Height + 50;
Bitmap.Width := MapImage.Width;
dest := Rect(0, 50, Bitmap.Width, Bitmap.Height);
source := Rect(0, 0, MapImage.Width, MapImage.Height);
Bitmap.Canvas.CopyRect(dest, MapImage.Canvas, source);

MapImage.Height := MapImage.Height + 50;
MapImage.Picture.Assign(Bitmap);
Bitmap.Free;
end;

 

G

ghg_qh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-18

• #6

gz

 

S

seaerwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-18

• #7

不用怎么复杂把
把画布设成自动该大小不就行了

 

S

shaofun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-19

• #8

同意Huzzz，
更正一下，应为Image.Picture.Bitmap或Image.Picture.Graphic的Width和Height

 

A

alei_nb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-19

• #9

接受答案了.