delphi - Delphiを使用して文字間のスペース/カーニングを含むテキスト幅を計算する

Question

さまざまなカーニング/文字間のスペースを使用して文字列のテキスト幅を計算する方法を説明するリソースを見つけるのに苦労しています。

Textwidth はフォントサイズ、フォントスタイルなどを使用できますが、文字間のスペースは使用できませんか? （または、カーニングは非常にフォント固有であると信じています。つまり、カーニング/間隔の値に応じて文字が多かれ少なかれ「重なり合う」可能性があるため、フォントに応じて異なるピクセル値を与えます）

Answer 1

編集:推奨読書: Feng Yuan "Windows Graphics Programming"

TextWidth (GetTextExtentPoint32) およびより複雑なメソッドの例:

var
  Len, w: Integer;
  s: string;
  GR: TGCPResults;
begin
  Canvas.Font.Size := 14;
  s := 'A simple test string';
  Canvas.TextOut(0, 0, s);
  w := Canvas.TextWidth(s);
  Canvas.MoveTo(w, 0);
  Canvas.LineTo(w, 30);

  SetTextCharacterExtra(Canvas.Handle, 5);
  Canvas.TextOut(0, 30, s);
  w := Canvas.TextWidth(s);
  Canvas.MoveTo(w, 30);
  Canvas.LineTo(w, 60);

  SetTextCharacterExtra(Canvas.Handle, 0);
  Len := Length(s);
  GR.lStructSize := sizeOf(GR);
  GetMem(GR.lpOutString, (Len + 1) * sizeOf(Char));
  GR.lpOrder := Nil;
  GetMem(GR.lpDx, (Len + 1) * sizeOf(Integer));
  GetMem(GR.lpCaretPos, (Len + 1) * sizeOf(Integer));
  GR.lpClass := Nil;
  GetMem(GR.lpGlyphs, (Len + 1) * sizeOf(UINT));
  GR.nGlyphs := Len;
  GR.nMaxFit := 0;

  w := GetCharacterPlacement(Canvas.Handle, PwideChar(s), Len, 0, GR,
    GCP_USEKERNING) and $FFFF;
  ExtTextOut(Canvas.Handle, 0, 60, ETO_GLYPH_INDEX, nil, PChar(GR.lpGlyphs),
    GR.nGlyphs, PINteger(GR.lpDx));
  Canvas.MoveTo(w, 60);
  Canvas.LineTo(w, 90);
  // free memory for GR members