使用できるフォントを列挙する

使用できるフォントを列挙する

■使用するコンポーネント

Button
ListBox

■使用するAPI関数

EnumFonts（使用できるフォントを列挙する）

■その他

コールバック

■ソースは下記のようになります。

■使用できるフォントを列挙する処理

Function


EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;

X: Integer; Y: Integer): Boolean; stdcall;

begin



　//リストに追加

　Form1.ListBox1.Items.Add(LogFont.lfFaceName);



　Result := True;



end;



procedure TForm1.Button1Click(Sender: TObject);

var

　DC: HDC;

begin



　//デバイスコンテキストのハンドルを取得

　DC := GetDC(0);



　//EnumFontsProcへ

　EnumFonts(DC, nil, @EnumFontsProc,nil);



　//デバイスコンテキストのハンドルを解放

　ReleaseDC(0, DC);



end;

Win32APIのページへ

ホーム PV ランキング