掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォントスタイルにItalicを使っても、重なった部分を描くようにするには？ (ID:37998)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
解決済みとなっていますが こんな感じでどうでしょう？ procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var i, W, H: integer; S: string; DRect: TRect; Flg:Cardinal ; begin S:='あいうえおかきくけこ'; Canvas.Brush.Style:= bsClear; Canvas.font.size:=20; Canvas.font.style:=[fsItalic]; for i := 0 to trunc(length(S)/2)-1 do begin w:=canvas.TextWidth(copy(S,i*2+1,2)); h:=canvas.TextHeight(copy(S,i*2+1,2)); Drect.Left:=x; Drect.top:=y; Drect.Right :=x+w+ Canvas.TextWidth(' '); Drect.Bottom :=y+h; flg:=DT_center + DT_SINGLELINE + DT_VCENTER; DrawText(Canvas.Handle, pchar(copy(S,i*2+1,2)), -1, DRect, flg ); x:=x+w; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.