掲示板 > Tiny Basic for Windows
loadpictureでゴミが表示される
ShionAmasato:
画像を連結するツールを作ったのですが、2枚目のloadpictureでゴミが表示されます。
(添付画像はツールで連結した画像をjpg変換したものです、右下に余計なものが表示されています)
ソースコードは添付した通りです
ShionAmasato:
画像がない?
ShionAmasato:
CLS
PUBLIC FN$
PUBLIC CW
PUBLIC CH
CWPOSITION(16,256)
CSCREEN(160,288)
FOR I=1 TO 8
CBUTTON(I) ON
CBUTTON(I).TOP=I*32-16
CBUTTON(I).LEFT=16
CBUTTON(I).WIDTH=128
CBUTTON(I).HEIGHT=32
NEXT
CBUTTON(1).TEXT="ファイルを開く"
CBUTTON(2).TEXT="保存"
CBUTTON(3).TEXT="モザイク"
CBUTTON(4).TEXT="拡大"
CBUTTON(5).TEXT="縦連結"
CBUTTON(6) OFF '未実装
CBUTTON(7) OFF '未実装
CBUTTON(8 ).TEXT="終了"
CHDIR GETPROGRAMDIR
DO
IF CBUTTON(1).CLICK THEN LOADFILE
IF LEN(FN$)>0 THEN
IF CBUTTON(2).CLICK THEN SAVEFILE
IF CBUTTON(3).CLICK THEN MOZAIKU
IF CBUTTON(4).CLICK THEN RESIZE
IF CBUTTON(5).CLICK THEN JOINH
ENDIF
IF CBUTTON(8 ).CLICK THEN EXIT DO
LOOP
CLOSECSCREEN
END
SUB LOADFILE
DIM T$
T$=SELECTOPENFILE(" |*.JPG;*.PNG;")
IF LEN(T$)>0 THEN
FN$=""+T$
ELSE
EXIT SUB
ENDIF
T$=GETIMAGESIZE$(FN$):CW=VAL(LEFT$(T$,4)):CH=VAL(RIGHT$(T$,4))
GWPOSITION(256,256)
GSCREEN(2048,2048)
GFLOCATE(0,0)
LOADPICTURE(FN$)
END SUB
SUB SAVEFILE
FN$=LEFT$(FN$,INSTR(1,FN$,".")-1)+"_EX.PNG"
SAVEPICTURE(FN$,CW,CH)
?FN$+"に保存しました"
END SUB
(中略)
SUB JOINH
DIM W,H
DIM F$,T$
F$=SELECTOPENFILE(" |*.JPG;*.PNG;")
IF LEN(F$)<1 THEN EXIT SUB
?"連結処理中…"
T$=GETIMAGESIZE$(F$):W=VAL(LEFT$(T$,4)):H=VAL(RIGHT$(T$,4))
GFLOCATE(-MAX((CW-W)\2,0),-CH)
LOADPICTURE(F$)
CH=MIN(CH+H,2048)
?"連結完了"
END SUB
ShionAmasato:
すいません、自己解決しました
GFLOCATE(-MAX((CW-W)\2,0),-CH)
LOADPICTURE(F$)
ではなく
GLOCATE(MAX((CW-W)\2,0),CH)
LOADPICTURE(F$,W,H)
にすると求めていた挙動をします。
数値がマイナスなのを訝るべきでした…
ShionAmasato:
話題とは別なのですが
この掲示板について気になるところ
・スパムがついているので消した方がよさそう
・ファイル添付機能があるのに添付したファイルが見れないのはどういうことでしょうか?
Navigation
[0] Message Index
[#] Next page
Go to full version