問題】如何設定顯示器的字型大小比例?

發文回覆瀏覽次數：1029

推到 Plurk!

推到 Facebook!

問題】如何設定顯示器的字型大小比例?

尚未結案

t27
中階會員

發表：34
回覆：95
積分：90
註冊：2002-06-19

發送簡訊給我

#1 引用回覆回覆

發表時間：2003-12-21 14:53:52

IP:61.230.xxx.xxx 未訂閱

procedure TForm1.Button1Click(Sender: TObject); var LogFontStructure: logfont; begin SystemParametersInfo(SPI_GETICONTITLELOGFONT,0,@LogFontStructure,0); ShowMessage(LogFontStructure.lfFaceName); LogFontStructure.lfFaceName := 'Arial'; SystemParametersInfo(SPI_SETICONTITLELOGFONT,SizeOf (LogFontStructure), @LogFontStructure,SPIF_SENDCHANGE); end;顯示器的字型大小比例上項程式,可取得\設定顯示器的字型,請問如何設定字型大小比例?

leo2568
中階會員

發表：54
回覆：124
積分：70
註冊：2003-09-21

發送簡訊給我

#2 引用回覆回覆

發表時間：2003-12-21 22:39:57

IP:61.217.xxx.xxx 未訂閱

引言:上項程式,可取得\設定顯示器的字型,請問如何設定字型大小比例?

procedure TForm1.Button1Click(Sender: TObject);
var
  LogFontStructure: logfont;
  TagEXTLOGFONT   : logfont;
begin
  ...
  ...
  LogFontStructure.lfFaceName := 'Arial';
  TagExtLOGFONT   .lfFaceName := '23';
  ...
  ...
end;

╭╧╮╭╧╮╭╧╮╭╧╮╭╮☆ ║聖│║誕│║快│║樂│ ╰☆╮ ╘∞╛╘∞╛╘∞╛╘∞╛☆╰☆ . ﹒☆‧☆∴．：☆﹒‧∴ ☆..．..

系統時間：2024-07-06 3:03:00

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！