HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0713
エレキ掃除機HSPでUnicode文字を表示するには11解決


エレキ掃除機

リンク

2008/7/13(Sun) 13:57:28|NO.17271

OSもどきのようなものを作る際、Wingdingsでカーソルを用意することが必要になったので、
õ(oにチルダ)を表示するにはどうすればいいでしょうか。
ご教授お願いします。



この記事に返信する


Kpan

リンク

2008/7/13(Sun) 15:26:14|NO.17272

strf関数(「%c」)を組み合わせてください。



エレキ掃除機

リンク

2008/7/13(Sun) 17:21:32|NO.17277

どうすればいいんですか?
わからないもので・・・・



inovia

リンク

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//必ず必要



Kpan

リンク

2008/7/13(Sun) 19:43:08|NO.17280

「Wingdings strf」とかでググってください。



ANTARES

リンク

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



Sui

リンク

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

ありがとうございました。謎が消えました。



S&R(楓)

リンク

2008/9/13(Sat) 06:43:34|NO.19447

カーソルをなんでフォントで解決しようとするのか
っていう疑問はこの際 もっちゃいけないんでしょうか。



S&R(楓)

リンク

2008/9/13(Sat) 13:13:10|NO.19450

なんだ・・・教えて君のスレッドだったんですね
ageてすみませんでした><



ONION software Copyright 1997-2021(c) All rights reserved.