オブジェクトのフォント変更

winobj またはHSPのオブジェクトのフォントを変更 †

[編集]

　これはあるだろうと思っていたんですが意外とないもんですね＾＾；ですので登録いたしました。ObjFont?命令でオブジェクトにフォントを設定しています。 MakeFont?命令はObjFont?以外の関数にも代用可能です。

↑

ソース †

[編集]

MakeFont
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
#uselib "gdi32"
#func global DeleteObject "DeleteObject" sptr
#define global CreateFont CreateFontA
#func global CreateFontA "CreateFontA" sptr,sptr,sptr,sptr,sptr,sptr,sptr,sptr,sptr,sptr,sptr,sptr,sptr,sptr
 
#module 
//フォントを作成する
//p1: フォントのハンドルがはいる変数
//p2: フォント名
//p3: フォントサイズ
//p4: フォントタイプ
//※アプリケーション終了時にCreateFontで破棄すること
#deffunc MakeFont var p1,str p2,int p3,int p4
 
/*
  スタイル 1  : 太文字
  スタイル 2  : イタリック体
  スタイル 4  : 下線
  スタイル 8  : 打ち消し線
  スタイル16  : アンチエイリアス
*/
 
if p4 & 1  : s1= 600 : else : s1= 0
if p4 & 2  : s2= 1 : else : s2= 0
if p4 & 4  : s3= 1 : else : s3= 0
if p4 & 8  : s4= 1 : else : s4= 0
if p4 & 16 : s5= $4 : else : s5= 0
 
CreateFont p3, 0, 0, 0, s1, s2, s3, s4, $80, $0, $0, s5, $2 | $40, p2
p1=stat : return stat
 
 
//オブジェクトにフォントを設定する
//p1: フォントハンドル
//p2: フォントを変更するオブジェクトID
#deffunc objfont int p1,int p2
Sendmsg objinfo(p2,2), $30, p1, 1
return
 
//フォントハンドルを削除する(App終了時実行)
#deffunc deletefont int p1
DeleteObject p1
return
 
 
#global
 
 
onexit *endd		//APP End.
 
 
//CreateButton
winobj "Button","aaa", 0, $40000000 | $10000000, 100, 100
ButtonID=stat	//objectID
 
MakeFont hfont, "ＭＳ Ｐゴシック", 43, 1+2+4+16		//フォント作成
objfont hfont, ButtonID			//オブジェクトにフォント設定
 
 
 
 
 
stop
 
 
*endd
	DeleteFont hfont		//フォント削除
	end