Re: w32-logfont

[Hiroki_Tsukahara <asuka@xxxxxxxxxxxxxxxx>]

 TAMURA Kent さんの 
 w32-logfont に答えて..
>  README.Meadow に書いてある w32-logfont という関数を使うにはど
>うしたらいいでしょう。関数を呼ぶと
>	Symbol's function definition is void: w32-logfont
>ですし、describe-function にもありません。

  '(w32-logfont "ＭＳ ゴシック" 0 -14 400 0 nil nil nil 128 1 3 49)
  たとえば、これでひとつのLogfontを表現してます。


(let ((font "Nihongo-14")
      (logfont 
       '(w32-logfont "ＭＳ ゴシック" 0 -14 400 0 nil nil nil 128 1 3 49))
      (logfonti
       '(w32-logfont "ＭＳ 明朝" 0 -14 400 0 nil nil nil 128 1 3 17))
      )
  (create-font-from-logfont
   font 
   (list logfont
	 (w32-change-logfont-weight logfont 300)
	 logfonti
	 (w32-change-logfont-weight logfonti 300))
   4))

  で、こんなんすれば、フォントが定義できます。

-*-*-*-
束原 広樹 (Hiroki Tsukahra) 
mailto: asuka@xxxxxxxxxxxxxxxx
postpet: taba@xxxxxxxxxxxxxxxxxxxx