Top/Ys_C10 MAKE_BUTTON

Ys_C10 MAKE_BUTTON

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281

#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