- 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
|

|