コードファイル：
ユニット Unit1は、インターフェイスは使用しています Windowsの、メッセージ、sysutilsの、バリアント、クラス、グラフィックス、コントロール、フォーム、 ダイアログ、StdCtrls、CheckLstを。入力 TForm1 =クラス（TFormは） CheckListBox1：TCheckListBoxと、手順 FormPaint（送信者：TObjectを）; 手順 FormCreate（送信者：TObjectを）; 手順 CheckListBox1Click（送信者：TObjectを）; エンド ; VAR をForm1：TForm1; 実装 {$ Rの*の.DFM}が使用 GDIPOBJ、GDIPAPIと、VaRの FS：整数; 手順 TForm1.CheckListBox1Click（送信者：TObjectを）; CONST fsArr：配列 [ 0 .. 5 ]の整数=（フォントタイラーGular、 FontStyleBold、 FontStyleItalic、 FontStyleBoldItalic、 のfontStyle下線、 FontStyleStrikeout）。だった 私は：整数; 開始 FSを：= 0 ; 以下のために私は：= 0 2 CheckListBox1.Items.Count - 1 行う場合 CheckListBox1.Checked [i]はその後、 FS：= fsの又は fsArr [I]。 塗り替えます。エンド ; 手順 TForm1.FormCreate（送信者：TObjectを）; 開始 CheckListBox1.Align：= alLeftを。 CheckListBox1.Items.CommaText：= 'FontStyleRegular、' + 'FontStyleBold、' + 'FontStyleItalic、' + 'FontStyleBoldItalic、' + 'FontStyleUnderline、' + 'FontStyleStrikeout' ; CheckListBox1.Checked [ 0 ]：=真; エンド ; 手順 TForm1.FormPaint（送信者：TObjectを）; VaRの G：TGPGraphics。 SB：TGPSolidBrush。 フォント：TGPFont。開始 グラム：= TGPGraphics.Create（Canvas.Handle）。 SB：= TGPSolidBrush.Create（aclRed）。 フォント：= TGPFont.Create（ '微软雅黑'、 50、FS）。 g.DrawString（ 'デルファイ'、 - 1、フォント、MakePoint（CheckListBox1.Width + 0.0、 0）、SB）。 font.Free; sb.Free; g.Free; エンド ; 終わり。
フォームファイル：
オブジェクトをForm1を：TForm1 左= 0 トップ= 0 キャプション= 'をForm1' ClientHeight = 98 ClientWidth = 367 色= clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = - 11 Font.Name = 'のTahoma' Font.Style = [] OldCreateOrderプロパティ= Falseの 位置= poDesktopCenter OnCreate関数= FormCreate のOnPaint = FormPaint をPixelsPerInch = 96 textHeightと= 13 オブジェクト CheckListBox1：TCheckListBox 左= 8 トップ= 8 の幅= 113 高さ= 148 ItemHeight = 13 TabOrderプロパティ= 0 のOnClick = CheckListBox1Clickの端端
テキストスタイルの定義：
整数=のfontStyle; CONST FontStyleRegular =整数（0）; {平文} FontStyleBold =整数（1。）; {太字} FontStyleItalic =整数（2）; {イタリックテキスト} FontStyleBoldItalic =整数（3）; {太字及び斜体のテキスト} FontStyleUnderline =整数（4。）; {下線付きテキスト} FontStyleStrikeout = INTEGER（8）; {}の中央を通過するテキスト行 タイプ TFontStyle =のfontStyle。