;***********************************
 title "Kȉ"
;***********************************
;EBhETCY
#define WINDOW_SIZE_LX 1366

#define WINDOW_SIZE_LY 768

;^Cg
#define TITLE_NAME "^CgĂ(͂)"

#define TITLE_LSIZE 100

#define TITLE_POS_LY 100

;^Cgj[
#define TITLEM_NAME "͂߂,Â,IvV"

#define TITLEM_LSIZE 40

#define TITLEM_BUTTON_SIZE_LX 10

#define TITLEM_BUTTON_SIZE_LY 10

#define TITLEM_LSECURE 10

#define TITLEM_POS_LY 400
;IvVC
#define OPTIONU_NAME ""
;IvV
#define OPTIONU_LSIZE 30

#define OPTIONU_BUTTON_SIZE_LX 210

#define OPTIONU_BUTTON_SIZE_LY  
;***********************************
#module
 #defcfunc lettercenterX str name,int fontsize ;𒆉ɑ邽߂XWԂ
  return ginfo(12)/2-(strlen(name)*(fontsize/2))/2
 #defcfunc maxstring int element,array string
  a = strlen(string.0)
  repeat element-1
   b = strlen(string.cnt)
   if(a<b) : a = b
  loop
  return a
#global
;***********************************
;ϐݒ
gosub *varL
;z̏
sdim sname,10
sdim name,200
;***********************************
;dvEBhE
screen 0,windowsizeX,windowsizeY,0,100,0
;***********************************
;
 gosub *window_preparation ;EBhE
;***********************************
;X^[g
*start
 gsel 0,1
 cls
 color 0,0,0
 ;^Cg
 font msmincho,titlesize,1
 pos lettercenterX(TITLE_NAME,titlesize) , title_posY
 mes TITLE_NAME
 ;^Cgj[
 name = TITLEM_NAME
 split name,",",sname
 a = strlen(sname.0)
 repeat stat-1,1
  b = strlen(sname.cnt)
  if(a<b) : a = b
 loop
 b = titlemsize/2 *a + titlem_buttonsizeX
 font msmincho,titlemsize,0
 objmode 2
 objsize b , titlem_buttonsizeY , titlemsecure
 objimage 100 ,, 0 ,, 200 ,, 100
 pos windowsizeX/2 - b/2 , titlem_posY
  button sname.0 , *test
  button sname.1 , *test
  button sname.2 , *option
stop
;***********************************
*option ;IvV
 ;ʏ
 clrobj
 color $FF,$FF,$FF : boxf
 ;
 font msmincho,option_usize
 pos 0,0 : button "߂",*start
stop
;***********************************
*varL ;ϐݒ.L()
 ;EBhE
 windowsizeX = WINDOW_SIZE_LX
 windowsizeY = WINDOW_SIZE_LY
 ;^Cg
 titlesize = TITLE_LSIZE
 title_posY = TITLE_POS_LY
 ;^Cgj[
 titlemsize = TITLEM_LSIZE
 titlem_buttonsizeX = TITLEM_BUTTON_SIZE_LX
 titlem_buttonsizeY = TITLEM_LSIZE+TITLEM_BUTTON_SIZE_LY
 titlemsecure = titlem_buttonsizeY+TITLEM_LSECURE
 titlem_posY = TITLEM_POS_LY
 ;IvV
 optionu_size = OPTIONU_LSIZE
return
;***********************************
*window_preparation
 buffer 100,,500 ;`܂Y100Ƃɕω
  repeat 4,1 : color100 = $100-$40*cnt
   color color100,color100,color100 : boxf ,100*cnt,,100*cnt+100
  loop

return
;***********************************
*test
 mes "OK"
 stop
;^`肩̉^`