new36

appconfig.hsp
#include "mod_appconfig.as" #define APPNAME "appconfig" アプリ名 #define INIFILE "config.ini" 設定ファイル名 アプリ内の設定(変数)をファイルに記録します 簡易的な設定ファイル操作モジュール(mod_appconfig.as)を使用します Windows上で、Appdata内に設定ファイルを作成して使用します。
sample\new36\appconfig.hsp - 2021/07/29

dirbox.hsp
title ""+dir_cur goto *main *select 選択結果を表示 dirbox_fullname fname cls mes fname stop
sample\new36\dirbox.hsp - 2021/07/29

multimon.hsp
#module #uselib "user32.dll" #cfunc EnumDisplayMonitors "EnumDisplayMonitors" sptr, sptr, sptr, int #func GetMonitorInfo "GetMonitorInfoA" sptr, sptr #uselib "kernel32.dll" #func VirtualProtect "VirtualProtect" int,int,int,var #define FALSE 0
sample\new36\multimon.hsp - 2021/07/29

objcolor.hsp
objcolor,rgbcolor命令テスト syscolor 15:boxf sdim buf,$10000 buf="テキスト入力ボックスに任意の色を指定できます" objcolor 0,0,240 color 128,255,128 objmode objmode_usecolor+objmode_guifont mesbox buf,320,200,1+8 color 0,0,0 mes "[ctrl]+[A]で全選択します" pos 0,240 a=123:b=456
sample\new36\objcolor.hsp - 2021/07/29

screen_fade.hsp
#include "hsp3dish.as" #include "layer_fade.as" layer_fadeモジュール テスト (標準ランタイム、HSP3Dish、HGIMG4で使用可能です) layer_fade命令でレイヤーオブジェクトを登録 fadein , fadeout命令でフェードを実行 fadespeed prm : フェードスピードを設定 fadecolor prm : フェード色を設定(RGB色) screen 0,640,480 objsize 200,40
sample\new36\screen_fade.hsp - 2021/07/29

strex_test1.hsp
#include "hspcmp.as" hspcmp.dllを呼び出して、HSPスクリプト->strmap出力を行います 必ずHSP3.6β2以上のhspcmp.dllを使用してください sdim mesbuf,$10000 sdim rtname,256 fname="strex_test2" hspname=fname+".hsp" スクリプトファイル名 objname=fname+".strmap" strmapファイル名 hsc_ini hspname hsc_objname
sample\new36\strex_test1.hsp - 2021/07/29

strex_test2.hsp
title "strexchange Test" sysfont 0 mes " こんにちは " msg="日本語のスクリプトを\n英語に対応させてみます。
sample\new36\strex_test2.hsp - 2021/07/29

test_layerobj.hsp
sdim buf,$10000 wx=640:wy=480 s1="OKOKOK" objsize 120,24 pos 0,0:input s1 pos 130,0 button "STR",*go2 pos 260,0 button "INT",*go pos 390,0 button "DBL",*go3 pos 520,0 button "DEL",*godel pos 0,30 layerobj wx,400,objlayer_normal,*layprm,100
sample\new36\test_layerobj.hsp - 2021/07/29

zipfile_test1.hsp
#include "zipfile.as" zipファイル解凍サンプル onibtn.zipを解凍します(onibtn.gifが取り出されます) fname = "onibtn.zip" s1 = dir_cur mes "解凍元ファイル:"+fname mes "解凍先フォルダ:"+s1 ZipExtract fname, s1 if stat : dialog "zip解凍に失敗しました" mes "解凍しました。
sample\new36\zipfile_test1.hsp - 2021/07/29

zipfile_test2.hsp
#include "zipfile.as" zipファイル圧縮サンプル (hspインストールフォルダ内のcommonフォルダ以下を圧縮してcommon.zipとして保存します) fname = "common.zip" s1=dir_exe+"\\common\\*.*" ZipCompress s1, fname if stat : dialog "zip圧縮に失敗しました" mes "圧縮元パス:"+s1 mes fname+"を保存しました。
sample\new36\zipfile_test2.hsp - 2021/07/29