| [5151] 等幅フォント(plPrev) | 返信 削除 |
| 2011/8/26 (金) 10:00:25 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  |