HSPTV!掲示板

題名にもある通り、objimageで使用する画像のx軸をそのまま変えずにy軸だけ拡大したいです。
一度gcopy等で試してみましたが、x軸も一緒に拡大してしまいます。
どうにか出来ないでしょうか...。

多少面倒にはなりますが、a2dのストレッチコピーを使えばいけます。a2dは汎用性が高いので、こちらを使うことをオススメします。

#include "a2d.hsp"


screen 0
buffer 1

;ここのファイルは自前のに変えてください
alCreateImageByFile  0,"C:/Windows/SystemApps/Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy/Images/SmallLogo.scale-100.png"
if stat=-1 : dialog "エラー" : end

; ImageID,スクリーンID , コピー元座標x,y , コピー元サイズx,y , コピー先座標x,y , コピー先サイズx,y
alStretchImageToScreen 0,1 , 0,0 , alGetWidth(),alGetHeight(), 0,0, alGetWidth(),alGetHeight()*2  ;コピー先の縦(Y)を2倍
alStretchImageToScreen 0,0 , 0,0 , alGetWidth(),alGetHeight(), 0,0, alGetWidth(),alGetHeight()*2  ;メインウィンドウにも確認用にコピー
gsel 0
objimage 1, 0,0 , 0,0 , 0,0
objsize alGetWidth(),alGetHeight()*2 ;ボタンサイズを設定
pos alGetWidth()+10,0 ;右隣に配置
button gosub "",*press
redraw 1

stop


*press

mes "ぽち"

return