- 498 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 01:07:07 ]
- == 転載 ==
もういっちょ 透過PNGを読み込む やつ
著作権を主張します 一部を改変して実行ファイル化したものを配布することをかたく禁じます。
なーんちゃって バーカ バーカ ガハハ
#include "llmod.as"
#include "unicode.as"
ll_libload _GDIPLUS ,"gdiplus.dll" : onexit *exit : mref bmscr, 67
dim GdiplusStartupInput,4 : GdiplusStartupInput.0=1 : sdim path,260 : sdim unipath,520
getptr prm.0,pimg : getptr prm.1,GdiplusStartupInput : prm.2=0 : dllproc "GdiplusStartup",prm,3,_GDIPLUS
;picload "hsp2ttl.jpg"
objsize 50,20 : pos 0,0 : button "FILE", *fff
stop
*fff : dialog "*.*",16 : path=refstr
wait 4 : to_uni unipath,path,-1
getptr prm.0,unipath : getptr prm.1,img
dllproc "GdipLoadImageFromFileICM",prm,2,_GDIPLUS
prm.0=img : getptr prm.1,High
dllproc "GdipGetImageHeight",prm,2,_GDIPLUS
getptr prm.1,Widt : dllproc "GdipGetImageWidth",prm,2,_GDIPLUS
prm.0=bmscr.4 : getptr prm.1,hbitmap
prm.2=0 : dllproc "GdipCreateFromHDC",prm,3,_GDIPLUS
prm.0=hbitmap,img,0,30,Widt,High : dllproc "GdipDrawImageRectI",prm,6,_GDIPLUS
redraw
dllproc "GdipDisposeImage",img,1,_GDIPLUS : dllproc "GdipDeleteGraphics",hbitmap,1,_GDIPLUS
stop
*exit:dllproc "GdiplusShutdown",pimg,1,_GDIPLUS:end
|
 |
