埋め込みフォントの展開

作品プログラム
動作環境
プロデル1.9.1216
投稿者
ゆうと [yutopiaあっとまーくutopiat.net]
投稿日
2024-01-23 19:52:30
ダウンロード数
219

作品のプログラム

素材として「xxxx.ttf」を利用する
「System.Drawing」をネット型として利用する
pfcという"System.Drawing.Text.PrivateFontCollection"のネット型()を作る
素材リストから「xxxx.ttf」をバイナリ配列として取得して、データとする
fontBufというバイナリデータを作る
fontBufへデータを一括で書き込む

////PrivateFontCollectionにフォントを追加する
Marshalというドットネット型(「System.Runtime.InteropServices.Marshal」)を作る
Marshalから「AllocCoTaskMem」を{fontBufの長さの整数}で呼び出してfontBufPtrとする
Marshalから「Copy」を{fontBuf,0,fontBufPtr,fontBufの長さの整数}で呼び出す
pfc:AddMemoryFont(fontBufPtr, fontBufの長さの整数)
Marshalから「FreeCoTaskMem」を{fontBufPtr}で呼び出す

//PrivateFontCollectionに追加されているフォントの名前を列挙する
pfcのFamiliesのすべての要素についてそれぞれ繰り返す
  要素のNameを報告
繰り返し終わり
fという"System.Drawing.Font"のネット型(pfcのFamilies(1), 32)を作る

メイン画面を表示する
待機する

メイン画面とは
  ウィンドウを継承する
  はじめの手順
    初期化する
    ーー貼り付けた部品に対する操作をここに書きます
    ラベル1の元実体のUseCompatibleTextRendering=○
    ラベル1のフォントをfに変える
  終わり
  初期化する手順
    ーー自動生成された手順です。ここにプログラムを書き加えても消える場合があります
    初期化開始する
    この実質大きさを{428,394}に変える
    この内容を「メイン画面」に変える
    この文字色を「標準の文字」に変える
    ラベル1というラベルを作る
      その位置と大きさを{29,43,369,133}に変える
      その内容を「ラベル1」に変える
      その文字色を「標準の文字」に変える
    初期化終了する
    この設計スケール比率を{144,144}に変える
  終わり
  閉じた時の手順
    //後始末
    pfc:Dispose()
  終わり
終わり
	

▲ページの先頭へ