#author("2020-05-07T14:14:08+09:00","","")
#author("2020-05-07T14:16:17+09:00","","")
[[Ys TOOLs C]]

MAKE BUTTON 0.1.0~
~
・始めに~
記述予定~
~
・作成の動機~
吉里吉里用のボタン画像を作成するのが面倒くさくて作成しました~
３個画像並べてOK。本当は３個とも ちょっと違う画像の方が~
いいっぽいのですが~
~
・使い方~
記述予定~
~
作成：高畑ラボ(Y_repeat)~
~
・連絡先~
バグなどありましたらご報告ください~
また改造後再配布時配布URLを教えていただけると嬉しいです~
y.tack2010@gmail.com~
#code(C,nooutline){{
#include "hspda.as"
#include "hspext.as"

gosub *def_var_XY
gosub *def_var_RGB
gosub *def_var_char

screen 0,650,320

*begin
cls 1

goto *@f

*def_var_XY
var4input_size_X=100
var4input_size_Y=30

var4input_begin_X=10
var4input_begin_Y=5
var4input_end_X=90
var4input_end_Y=95
return

*@

mes "size X"
pos 110,0
input var4input_size_X,100,20
ID4input_size_X=cnt
pos 0,25
mes "size Y"
pos 110,25
input var4input_size_Y,100,20
ID4input_size_Y=cnt

pos 0,50
mes "はじめX"
pos 110,50
input var4input_begin_X,100,20
ID4input_begin_X=cnt
pos 0,75
mes "はじめY"
pos 110,75
input var4input_begin_Y,100,20
ID4input_begin_Y=cnt

pos 0,100
mes "おわりX"
pos 110,100
input var4input_end_X,100,20
ID4input_end_X=cnt
pos 0,125
mes "おわりY"
pos 110,125
input var4input_end_Y,100,20
ID4input_end_Y=cnt

goto *@f

*def_var_RGB
var4ip_frame_R=0
var4ip_frame_G=0
var4ip_frame_B=0
var4ip_back_R=255
var4ip_back_G=255
var4ip_back_B=255
return

*@

pos 0,150
mes "枠：色"
pos 0,175
mes "R"
pos 0,200
input var4ip_frame_R,45,20
ID4ip_frame_R=stat
pos 50,175
mes "G"
pos 50,200
input var4ip_frame_G,45,20
ID4ip_frame_G=stat
pos 100,175
mes "B"
pos 100,200
input var4ip_frame_B,45,20
ID4ip_frame_B=stat


pos 0,225
mes "背景色"
pos 0,250

mes "R"
pos 0,275
input var4ip_back_R,45,20
ID4ip_back_R=stat

pos 50,250
mes "G"
pos 50,275
input var4ip_back_G,45,20
ID4ip_back_G=stat

pos 100,250
mes "B"
pos 100,275
input var4ip_back_B,45,20
ID4ip_back_B=stat

pos 220,0
mes "文字"
pos 220,25
input var4input_moji,210,20
ID4input_moji=cnt

pos 220,50
mes "文字の大きさ"
pos 330,50
input var4input_moji_size,100,20
ID4input_moji_size=cnt

pos 220,75
chkbox "太字",mes_font_bold
pos 320,75
chkbox "イタリック",mes_font_italic

goto *@f
font
*def_var_char
var4input_moji="test"
var4input_moji_size=12
var4input_font_shurui="ＭＳ ゴシック"
mes_font_bold=0
mes_font_italic=0
var4input_pos_X=20
var4input_pos_Y=10
var4ip_font_R=0
var4ip_font_G=0
var4ip_font_B=0

var4input_f_name="baz.bmp"

var4input4copy_begin_X=0
var4input4copy_end_X=100
return

*@
pos 220,100
mes "fontの種類"
input var4input_font_shurui,210,20
ID4input_font_shurui=stat
pos 220,140
mes "文字の位置"

pos 220,165
mes "pos X"
pos 330,165
input var4input_pos_X,100,20
ID4input_pos_X=cnt

pos 220,190
mes "pos Y"
pos 330,190
input var4input_pos_Y,100,20
ID4input_pos_Y=cnt

pos 220,215
mes "文字色"

pos 220,240
mes "R"
pos 220,265
input var4ip_font_R,45,20
ID4ip_font_R=stat

pos 270,240
mes "G"
pos 270,265
input var4ip_font_G,45,20
ID4ip_font_G=stat

pos 320,240
mes "B"
pos 320,265
input var4ip_font_B,45,20
ID4ip_font_B=stat

//////////////////////////////////////

pos 440,0
button "MAKE１",*do_make_1
pos 510,0
button "MAKE３",*do_make_3

pos 440,25
mes "FILEの名前"
pos 440,50
input var4input_f_name,210,20
ID4input_f_name=cnt

pos 440,75
button "SAVE",*do_bmpsave


pos 440,100
button "vsave",*do_vsave
pos 440,125
button "vload",*do_vload
button "sample",*do_vload_sample


;var4input4copy_begin_X=0
;var4input4copy_end_X=100
;mes "コピペ用 X はじめ"
;input var4input4copy_begin_X,210,20
;ID4input4copy_begin_X=cnt
;mes "コピペ用 X おわり"
;input var4input4copy_end_X,210,20
;ID4input4copy_end_X=cnt
stop
*l_cb_copy
;	gsel 2
	clipsetg
	stop
*do_bmpsave
	bmpsave var4input_f_name
	stop
*do_vsave
	vsave "tmp_M_B.dat"
	stop
*do_vload
	vload "tmp_M_B.dat"
	goto *begin
*do_vload_sample
	vload "sample_M_B.dat"
	goto *begin
*do_make_1
	screen 2,var4input_size_X,var4input_size_Y
	color var4ip_frame_R,var4ip_frame_G,var4ip_frame_B
	boxf 0,0,var4input_size_X,var4input_size_Y
	color var4ip_back_R,var4ip_back_G,var4ip_back_B
	boxf var4input_begin_X,var4input_begin_Y,var4input_end_X,var4input_end_Y
	
	pos var4input_pos_X,var4input_pos_Y
	color var4ip_font_R,var4ip_font_G,var4ip_font_B
	tmp_font=0
	if mes_font_bold==1:tmp_font+=1
	if mes_font_italic==1:tmp_font+=2
	font ""+var4input_font_shurui,var4input_moji_size,tmp_font
	mes ""+var4input_moji
;	pos 0,var4input_size_Y
;	objsize 210,30
;	button "クリップボードにコピー",*l_cb_copy
	stop
*do_make_3
	screen 2,var4input_size_X*3,var4input_size_Y
	color var4ip_frame_R,var4ip_frame_G,var4ip_frame_B
	boxf 0,0,var4input_size_X,var4input_size_Y
	color var4ip_back_R,var4ip_back_G,var4ip_back_B
	boxf var4input_begin_X,var4input_begin_Y,var4input_end_X,var4input_end_Y
	
	pos var4input_pos_X,var4input_pos_Y
	color var4ip_font_R,var4ip_font_G,var4ip_font_B
	tmp_font=0
	if mes_font_bold==1:tmp_font+=1
	if mes_font_italic==1:tmp_font+=2
	font ""+var4input_font_shurui,var4input_moji_size,tmp_font
	mes ""+var4input_moji

	pos var4input_size_X,0
	gcopy 2,0,0,var4input_size_X,var4input_size_Y
	pos var4input_size_X*2,0
	gcopy 2,0,0,var4input_size_X,var4input_size_Y
;	pos 0,var4input_size_Y
;	objsize 210,30
;	button "クリップボードにコピー",*l_cb_copy
	stop
*test
	stop
}}