「LTalk2::Font」の編集履歴（バックアップ）一覧はこちら

「LTalk2::Font」(2008/05/30 (金) 15:02:04) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

*フォントをインクルードで管理する

*LTalk2::Font

フォントをインクルードで制御する。

#codehighlight(VB){
// フォントを初期化する
LTalk2_Font_init:
	LTalk2_Font["Size"] = 10		
	LTalk2_Font["Family"] = "ゴシック"	
	LTalk2_Font["Weight"] = "00"		// 左から順にBoldフラグ, Italicフラグ。Regularが"00"
	LTalk2_Font["Color"] = "#000000"	
Return

// getter
LTalk2_Font_getSize:
Return LTalk2_Font["Size"]
LTalk2_Font_getFamily:
Return LTalk2_Font["Family"]
LTalk2_Font_getWeight
Return LTalk2_Font["Weight"]
LTalk2_Font_getColor
Return LTalk2_Font["Color"]

// フォントの規定値を変更する
// @param Args(1) size
// @param Args(2) family
// @param Args(3) weight
// @param Args(4) color
LTalk2_Font_set:
	LTalk2_Font_setSize(Args(1))
	LTalk2_Font_setFamily(Args(2))
	LTalk2_Font_setWeight(Args(3))
	LTalk2_Font_setColor(Args(4))
Return

// @param Args(1) フォントサイズ
LTalk2_Font_setSize:
	LTalk2_Font["Size"] = Args(1)
Return
// @param Args(1) フォントファミリー
LTalk2_Font_setFamily:
	LTalk2_Font["Family"] = Args(1)
Return
// @param Args(1) フォントウェイト
LTalk2_Font_setWeight:
	Switch Args(1)
	Case "Regular" "regular"
		LTalk2_Font["Weight"] = "00"
	Case "Bold" "bold"
		// Boldフラグを書き換え
		Replace(LTalk2_Font["Weight"], "0", 1, 1)
	Case "Italic" "italic"
		// Italicフラグを書き換え
		Replace(LTalk2_Font["Weight"], "0", 2, 1)
	EndSw
Return
// @param Args(1) フォントカラー
LTalk2_Font_setColor:
	Local _elem = LTalk2_Font_ConvertColor(Args(1))
	LTalk2_Font["Color"] = _elem
Return

LTalk2_Font_ConvertColor:
	Local elem
	Switch Args(1)
	Case "Red" "red" "RED"
		elem = "#ff0000"
	Case "Blue" "blue" "BLUE"
		elem = "#0000ff"
	Case "Yellow" "yellow" "YELLOW"
		elem = "#ffff00"
	Case "Green" "green" "GREEN"
		elem = "#008000"
	Case "Purple" "purple" "PURPLE"
		elem = "#800080"
	Case "Gray" "gray" "GRAY"
		elem = "#808080"
	Case "Silver" "silver" "SILVER"
		elem = "#c0c0c0"
	Case "White" "white" "WHITE"
		elem = "#ffffff"
	Case "Black" "black" "BLACK"
		elem = "#000000"
	Case "Lime" "lime" "LIME"
		elem = "#00ff00"
	Case "Aqua" "aqua" "AQUA"
		elem = "#00ffff"
	Case "Fuchsia" "fuchsia" "FUCHSIA"
		elem = "#ff00ff"
	Case "Maroon" "maroon" "MAROON"
		elem = "#800000"
	Case "Olive" "olive" "OLIVE"
		elem = "#808000"
	Case "Teal" "teal" "TEAL"
		elem = "#008080"
	Case "Navy" "navy" "NAVY"
		elem = "#000080"
	Case Else
		If Left(Args(1), 3) = "RGB" Then
			elem = Eval(elem)
		Else
			elem = Args(1)
		Endif
	EndSw

Return elem
}