名前
題名
▼ Syakeさん > マスターこんいちは > 夏の甲子園も終わり（紙面では終わってないようですが・・・） > そろそろ秋の訪れを感じる今日この頃でございます。 > > コードを2007からXEに移行中に、等幅フォント(ＭＳ　ゴシック) > 等幅にならないと言いましょうか、２行描画した場合に描画位置 > がずれる現象があるようす。 > 試行錯誤しましたが、FontNameで指定した場合とFont.Nameで指 > 定した場合に動作が異なるようです。 > ２行目が異なったフォントで描画されてるような？？ > > {サンプル的コード} > for i := 1 to 10 > begin > if i in [1,2] then > begin > FontName('・・・・'); > ・・・・ > end else if i in [7,8] then > begin > 　　FontName('ＭＳ ゴシック'); //←Font.Name := 'ＭＳ ゴシック'; > 　　FontStyle([]); > FontSize(10); > case i of > 7: StrTxt := '000000000000000000000000000000000'; > 8: StrTxt := '000000000000000000000000000000000'; > end; > TextRectLC(X1,X2,Y1,Y2,StrTxt); > end else begin > FontName('・・・・'); > 　　・・・・ > end; > end; > 上記のような感じでしょうか。 > > DelphiXE　Win7　TplPrev(9.02) > > 過去のコンポーネントで開発したプログラムでは正常に描画できていたの > で問題ないようです（たぶん）ので、Ver9.00以降の問題なのでしょうか？ > > お手数ですがよろしくお願いします。　m(_ _)m > >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link