フォントスタイルにItalicを使っても、重なった部分を描くようにするには？ (ID:37991)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ありがとうございます。

・DT_CENTERをDT_LEFTに変えてみる
→現象は変わりませんでした。

・DT_NOCLIPを指定する
→うまくいきました。

ただ、調べてみたところ、TextWidthはオーバーハングの分を含めない幅を返しているようです。

下の３パターンでは、どれも終点のｘ座標が２００となり、余分な空白が足されてないように思います。

逆に、オーバーハングの幅を知りたいです。
（オーバーハングの幅は、GetTextMetricsしてtmOverhangを見るとわかります）がよく分かりませんでした。教えていただいたのに、すみません。

オーバーハングの幅のとり方を、自分で調べてみますが、もしよかったら、教えていただけると、ありがたいです。

分かったら、解決チェックします。

---------------------------------------------------------

procedure TForm1.Image1Click(Sender: TObject);
var
  flg:Cardinal ;
  DTRect: TRect;

x,y:integer;
  w,h:integer;
  t:string;
  i: Integer;

begin

image1.canvas.brush.style:=bsClear;

image1.canvas.font.size:=20;

image1.canvas.font.style:=[fsItalic];

t:='あいうえおかきくけこ';
x:=0;
y:=0;

for i := 0 to trunc(length(t)/2)-1 do
  begin

w:=image1.canvas.TextWidth(copy(t,i*2+1,2));
      h:=image1.canvas.TextHeight(copy(t,i*2+1,2));

dtrect.Left:=x;
      dtrect.top:=y;
      dtrect.Right :=x+w;
      dtrect.Bottom :=y+h;

flg:=DT_center + DT_SINGLELINE + DT_VCENTER;

DrawText( image1.Canvas.Handle, pchar( copy(t,i*2+1,2) ),  -1, dtRect, flg );

x:=x+w;

end;

t:=inttostr(x)+'DT_NOCLIPなし';

w:=image1.canvas.TextWidth(t);

dtrect.Left:=x;
      dtrect.top:=y;
      dtrect.Right :=x+w;
      dtrect.Bottom :=y+h;

DrawText( image1.Canvas.Handle, pchar( t ),  -1, dtRect, flg );

///////////////////////////////////

t:='あいうえおかきくけこ';
  x:=0;
  y:=y+h;

for i := 0 to trunc(length(t)/2)-1 do
  begin

w:=image1.canvas.TextWidth(copy(t,i*2+1,2));
      h:=image1.canvas.TextHeight(copy(t,i*2+1,2));

dtrect.Left:=x;
      dtrect.top:=y;
      dtrect.Right :=x+w;
      dtrect.Bottom :=y+h;

flg:=DT_center + DT_SINGLELINE + DT_VCENTER+DT_NOCLIP;

DrawText( image1.Canvas.Handle, pchar( copy(t,i*2+1,2) ),  -1, dtRect, flg );

x:=x+w;

end;

t:=inttostr(x)+'DT_NOCLIPあり';
  w:=image1.canvas.TextWidth(t);

dtrect.Left:=x;
      dtrect.top:=y;
      dtrect.Right :=x+w;
      dtrect.Bottom :=y+h;

DrawText( image1.Canvas.Handle, pchar( t ),  -1, dtRect, flg );

///////////////////////////////////////

image1.canvas.font.style:=[];

t:='あいうえおかきくけこ';
x:=0;
y:=y+h;

for i := 0 to trunc(length(t)/2)-1 do
  begin

w:=image1.canvas.TextWidth(copy(t,i*2+1,2));
      h:=image1.canvas.TextHeight(copy(t,i*2+1,2));

dtrect.Left:=x;
      dtrect.top:=y;
      dtrect.Right :=x+w;
      dtrect.Bottom :=y+h;

flg:=DT_center + DT_SINGLELINE + DT_VCENTER;

DrawText( image1.Canvas.Handle, pchar( copy(t,i*2+1,2) ),  -1, dtRect, flg );

x:=x+w;

end;

t:=inttostr(x)+'style:=[]';

w:=image1.canvas.TextWidth(t);

dtrect.Left:=x;
      dtrect.top:=y;
      dtrect.Right :=x+w;
      dtrect.Bottom :=y+h;

DrawText( image1.Canvas.Handle, pchar( t ),  -1, dtRect, flg );

end;

←解決時は質問者本人がここをチェックしてください。

戻る