名前
題名
▼ 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; >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link