4 41426277 Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-22 #1 那位行行好,我在FORM1显示图像,不管多大多小的图像都要放大或缩小到和FORM1的大小, 请帮忙啊,先谢谢各位了.
T tseug Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-22 #2 放上去个TImage,然后把它的Align属性改为True, Stretch属性也改为True不就可以了么?
4 41426277 Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-22 #4 谢谢tseug 我要的是在FORM1重画的技术.
T tseug Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-22 #5 难道是这个意思？ procedure TForm1.FormPaint(Sender: TObject); var G : TGraphic; begin G := TBitmap.Create; try G.LoadFromFile('C:/Windows/安装程序.bmp'); Canvas.StretchDraw(Rect(0, 0, Width, Height), G); finally G.Free; end; end; procedure TForm1.FormResize(Sender: TObject); begin Refresh; end;
难道是这个意思？ procedure TForm1.FormPaint(Sender: TObject); var G : TGraphic; begin G := TBitmap.Create; try G.LoadFromFile('C:/Windows/安装程序.bmp'); Canvas.StretchDraw(Rect(0, 0, Width, Height), G); finally G.Free; end; end; procedure TForm1.FormResize(Sender: TObject); begin Refresh; end;
4 41426277 Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-22 #6 但小图像不能放满FORM1啊 大图像不能缩小到FORM1啊
T tseug Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-22 #7 不会吧, 你没有注意我已经在OnResize里写了行Refresh么
D dx2527 Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-22 #9 Canvas.StretchDraw(Rect(0, 0, Width, Height), G); 这句就可放满整form的啊~ 你试过没有?
