作品プログラム
- 動作環境
- プロデル1.9.1216
- 投稿者
- ゆうと [yutopia
utopiat.net]
- 投稿日
- 2024-01-23 19:52:30
- ダウンロード数
- 220
作品のプログラム
素材として「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()
終わり
終わり