掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ものさし (ID:152130)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
プロジェクトのマニフェストあたりに高DPIを有効にするかどうかで変わりますが 高DPIではない場合 cmをピクセルに変換 function CentimetersToPixels(Cm: Double): Integer; var DC: HDC; DPI: Integer; begin DC := GetDC(0); try DPI := GetDeviceCaps(DC, LOGPIXELSX); // 水平方向のDPI Result := Round(Cm * DPI / 2.54); // 1インチ = 2.54cm finally ReleaseDC(0, DC); end; end; 高DPIの場合Delphi 10.3以降だとインチをピクセルに変換するのが用意されてるからセンチをインチに換算して function CentimetersToPixels(Cm: Double; Control: TControl): Integer; begin Result := Round(Cm * Control.CurrentPPI / 2.54); end; こうかな? あとは関数を使ってメモリを書けば ものさしになるとおもうけど
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.