| [5160] 同様の現象を確認しました | 返信 削除 |
| 2011/8/27 (土) 21:58:18 Mr,XRAY |
|
▼ Syakeさん，どうも 同様の現象を確認しました． 以下はテストコードです． Windows XP(SP3) + Delphi 2010, XE, Windows 7 U64 + Delphi 2010, XE で発生しました． plAdjustFontという関数を無効にすると発生しませんでした． これから，OSとDelphiの各バージョンでテストしてみます． どれが本当なのかも調べる必要があります． とりあえず，plAdjustFontを無効にしてみてください． しかし，Syakeさんに，またまた感謝ですね． バグ発見功労者のトップかも知れません． もちろん，いまいまでバグを発見して下さった方々にも感謝しております． procedure TForm1.Button1Click(Sender: TObject); var StrTxt : String; X1 : Integer; X2 : Integer; Y1 : Integer; Y2 : Integer; Yhigh : Integer; begin X1 := 200; X2 := 1700; Y1 := 400; Yhigh := 50; Y2 := Y1 + Yhigh; with plPrev1 do begin BeginDoc; FontName('ＭＳ ゴシック'); FontStyle([]); FontSize(10); StrTxt := '000000000000000000'; TextRectLC(X1, X2, Y1, Y2, StrTxt); Y1 := Y1 + 50; Y2 := Y1 + Yhigh; FontName('ＭＳ ゴシック'); FontStyle([]); FontSize(10); StrTxt := '000000000000000000'; TextRectLC(X1, X2, Y1, Y2, StrTxt); EndDoc; ShowModal; end; end;  |