|
|
2008/7/13(Sun) 13:57:28|NO.17271
OSもどきのようなものを作る際、Wingdingsでカーソルを用意することが必要になったので、
õ(oにチルダ)を表示するにはどうすればいいでしょうか。
ご教授お願いします。
|
|
2008/7/13(Sun) 15:26:14|NO.17272
strf関数(「%c」)を組み合わせてください。
|
|
2008/7/13(Sun) 17:21:32|NO.17277
どうすればいいんですか?
わからないもので・・・・
|
|
2008/7/13(Sun) 19:39:19|NO.17279
以前教えてもらったものを改造してみたもの。
直接表示します。
#include "user32.as"
#define DT_TOP 0x00000000
#define DT_LEFT 0x00000000
#define DT_CENTER 0x00000001
#define DT_RIGHT 0x00000002
#define DT_VCENTER 0x00000004
#define DT_BOTTOM 0x00000008
#define DT_WORDBREAK 0x00000010
#define DT_SINGLELINE 0x00000020
#define DT_EXPANDTABS 0x00000040
#define DT_TABSTOP 0x00000080
#define DT_NOCLIP 0x00000100
#define DT_EXTERNALLEADING 0x00000200
#define DT_CALCRECT 0x00000400
#define DT_NOPREFIX 0x00000800
#define DT_INTERNAL 0x00001000
#define DT_EDITCONTROL 0x00002000
#define DT_PATH_ELLIPSIS 0x00004000
#define DT_END_ELLIPSIS 0x00008000
#define DT_MODIFYSTRING 0x00010000
#define DT_RTLREADING 0x00020000
#define DT_WORD_ELLIPSIS 0x00040000
font msgothic, 16
moji=$30933053, $3061306B, $000D306F, $4F60000A, $000D597D, $C548000A, $D558B155, $C694C138, $000A000D, $26632660, $26662665, $000A000D, $0000
iti=0,0,300,300
//http://msdn.microsoft.com/ja-jp/library/cc428478.aspx
//HSP3掲示板過去ログの13777付近を元に(検索ワードは:Unicode)
DrawTextExW hdc,varptr(moji),-1,varptr(iti), DT_WORDBREAK | DT_EXPANDTABS,NULL
redraw 1//必ず必要
| |
|
2008/7/13(Sun) 19:43:08|NO.17280
「Wingdings strf」とかでググってください。
|
|
2008/7/15(Tue) 02:05:54|NO.17307
fsize=30
screen 0,fsize*33,fsize*17,,0,0
font "MS ゴシック",fsize
x=fsize
repeat 16
s=cnt: s=strf("%X",s)
pos x,0: mes s
pos fsize*16+x,y: mes s
x+=fsize
loop
y=fsize: repeat 16,0: pos 0,y: s=cnt: s=strf("%X",s): mes s: y+=fsize: loop
s="a": c=0: y=fsize
repeat 16: x=fsize
repeat 16
poke s,0,c
font "Wingdings",fsize
pos x,y: mes s
font "Times New Roman",fsize
pos fsize*16+x,y: mes s
c++: x+=fsize
loop
y+=fsize
loop
|
|
2008/7/15(Tue) 16:00:03|NO.17310
たくさんのスクリプトありがとうございます。
Wingdings strfでググって見ると、こんなスクリプトを発見しました。(改変しています)
sdim data
font "Wingdings", 30, 16
i = 30
repeat 12
repeat 18
poke data, cnt, strf("%c", i)
i++
loop
mes data
loop
これに出る一番最後(右下)の文字を拝借したいのですが、どうすればできますか?
|
|
2008/7/15(Tue) 16:01:59|NO.17311
すいません。囲むのを忘れていました。
sdim data
font "Wingdings", 30, 16
i = 30
repeat 12
repeat 18
poke data, cnt, strf("%c", i)
i++
loop
mes data
loop
|
|
2008/7/15(Tue) 16:28:32|NO.17312
edit = 0
repeat
redraw 0
// 背景描画
color 220,220,220
boxf
font "Wingdings", 30, 16
// 16x16
repeat 16
cnt_y = cnt
repeat 16
cnt_x= cnt
color 0,0,0
if cnt_x*40-2 <= mousex & cnt_x*40+38 > mousex {
if cnt_y*30-1 <= mousey & cnt_y*30+29 > mousey {
edit = cnt_y*16+cnt_x
// マウスが範囲内なら発光
color 192,240,240
boxf cnt_x*40-2,cnt_y*30,cnt_x*40+38,cnt_y*30+29
color 192,255,255
boxf cnt_x*40+1,cnt_y*30+5,cnt_x*40+35,cnt_y*30+24
color 220,255,255
boxf cnt_x*40+4,cnt_y*30+10,cnt_x*40+32,cnt_y*30+19
// タイトルバーテキスト変更
title "("+mousex+","+mousey+") "+edit
color 64,0,0
}}
// 表示文字
pos cnt_x*40,cnt_y*30-3
mes strf("%c",cnt_y*16+cnt_x)
loop
// 枠線
color 192,192,192
line 0,29+cnt_y*30,640,29+cnt_y*30
line 38+cnt_y*40,0,38+cnt_y*40,480
loop
// マウスにくっつくあれ
font "",12
color 255,255,192
boxf mousex+8,mousey,mousex+32,mousey+16
color 0,0,0
pos mousex+12,mousey+2
mes ""+edit
redraw 1
wait 1
loop
/*
// これで得た数値をフォントとしてかく
font "Wingdings",48
mes strf("%c",138) // ここに数値を入れる
*/
|
|
2008/7/16(Wed) 15:28:36|NO.17321
ありがとうございました。謎が消えました。
|
|
2008/9/13(Sat) 06:43:34|NO.19447
カーソルをなんでフォントで解決しようとするのか
っていう疑問はこの際 もっちゃいけないんでしょうか。
|
|
2008/9/13(Sat) 13:13:10|NO.19450
なんだ・・・教えて君のスレッドだったんですね
ageてすみませんでした><
|
|