VFP 愛用者社區

[littlechou]

WITH _SCREEN
.WINDOWSTATE=2
.Caption="XX系統"
.Closable=.F.
.Picture="pic001.jpg"
ENDWITH

因為原本圖檔只有螢幕的三分之二的大小，放至背景圖後，會產生一張半的圖，不太好看，有可以像windows背景的設定可以分：置中央、並列、延展。

[jeff25]

WITH _SCREEN
FOR I = 1 TO .ControlCount
IF .Controls[I].Name = 'IMAGE1'
.RemoveObject('image1')
ENDIF
NEXT
.AddObject('image1', 'Image')
.image1.Picture = ="pic001.jpg"
.image1.Left = 0
.image1.Top = 0
.image1.Height = 600
.image1.Width = 800
.image1.Stretch = 2
.image1.Visible = .T.
.WINDOWSTATE=2
.Caption="XX系統"
.Closable=.F.
ENDWITH

[syntech]

如 二樓所述,
_SCREEN 不支援 stretch 屬性,
所以不會縮放圖形以配合桌面,
請利用image物件

[goodnight]

不好意思, 請問一下背景圖可以置中嗎
我用以上的程式加上
IMAG1.AUTOCENTER = .T.

執行後發生錯誤

[garfield]

要自己算image位置

_screen.AddObject('myimg','image')
_screen.Myimg.picture='d:\trade\test.jpg'
_screen.Myimg.Width=640
_screen.Myimg.height=480
_screen.Myimg.Stretch= 2
_screen.Myimg.Left = (_screen.Width-_screen.Myimg.Width)/2
_screen.Myimg.Top = (_screen.Height-_screen.Myimg.Height)/2
_screen.Myimg.Visible=.t.

[goodnight]