| [13677] 袋文字 | 返信 削除 |
| 2023/10/4 (水) 06:59:26 Mr.XRAY |
|
こんな感じでしょうか． ( スミマセン．白抜きではありません ) implementation {$R *.dfm} var FPointArray : TByteArray; FPointKindArray : TByteArray; FPointCount : Integer; //============================================================================= // 動作確認 : Windows 10 ビルド 19043 Pro 64 bit + Delphi XE5(UP2) Pro VCL-32 // 描画開始ボタン //============================================================================= procedure TForm1.Button1Click(Sender: TObject); begin // バスの記録開始 BeginPath(Canvas.Handle); try Canvas.Brush.Style := bsClear; Canvas.Font.Size := 100; Canvas.Font.Charset := DEFAULT_CHARSET; Canvas.Font.Name := '遊ゴシック'; Canvas.Textout(40, 40, '袋文字'); finally // バスの記録終了 EndPath(Canvas.Handle); end; // パスの座標値の格納に必要な数を取得して配列に格納 FPointCount := GetPath(Canvas.Handle, FPointArray, FPointKindArray, 0); GetPath(Canvas.Handle, FPointArray, FPointKindArray, FPointCount); // パス情報が取得できたので再描画 Invalidate; end; //============================================================================= // OnPaint イベント // 実際の描画 //============================================================================= procedure TForm1.FormPaint(Sender: TObject); begin // 計算結果のパス情報で図形を描画 BeginPath(Canvas.Handle); PolyDraw(Canvas.Handle, FPointArray, FPointKindArray, FPointCount); EndPath(Canvas.Handle); // 現在のブラシでバスの内部を塗りつぶし，現在のペンで輪郭線を描画する Canvas.Brush.Style := bsSolid; Canvas.Brush.Color := clGreen; Canvas.Pen.Color := clBlack; Canvas.Pen.Width := 5; StrokeAndFillPath(Canvas.Handle); end;  |