如何取得顯示器的字型大小比例???請賜招,謝謝!! |
尚未結案
|
alick
一般會員 ![]() ![]() 發表:2 回覆:12 積分:2 註冊:2003-11-24 發送簡訊給我 |
|
qoo1234
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
|
alick
一般會員 ![]() ![]() 發表:2 回覆:12 積分:2 註冊:2003-11-24 發送簡訊給我 |
|
leo2568
中階會員 ![]() ![]() ![]() 發表:54 回覆:124 積分:70 註冊:2003-09-21 發送簡訊給我 |
|
qoo1234
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject); var LogFontStructure: logfont; begin SystemParametersInfo(SPI_GETICONTITLELOGFONT,0, at LogFontStructure,0); ShowMessage(LogFontStructure.lfFaceName); LogFontStructure.lfFaceName := 'Arial'; SystemParametersInfo(SPI_SETICONTITLELOGFONT,SizeOf (LogFontStructure), at LogFontStructure,SPIF_SENDCHANGE); end; ![]() |
leo2568
中階會員 ![]() ![]() ![]() 發表:54 回覆:124 積分:70 註冊:2003-09-21 發送簡訊給我 |
引言:procedure TForm1.Button1Click(Sender: TObject); var LogFontStructure: logfont; begin SystemParametersInfo(SPI_GETICONTITLELOGFONT,0, at LogFontStructure,0); ShowMessage(LogFontStructure.lfFaceName); LogFontStructure.lfFaceName := 'Arial'; SystemParametersInfo(SPI_SETICONTITLELOGFONT,SizeOf (LogFontStructure), at LogFontStructure,SPIF_SENDCHANGE); end; ![]() |
qoo1234
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
at意思是@符號
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; ![]() |
alick
一般會員 ![]() ![]() 發表:2 回覆:12 積分:2 註冊:2003-11-24 發送簡訊給我 |
|
aquarius
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:3 回覆:347 積分:330 註冊:2003-05-21 發送簡訊給我 |
|
alick
一般會員 ![]() ![]() 發表:2 回覆:12 積分:2 註冊:2003-11-24 發送簡訊給我 |
|
aquarius
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:3 回覆:347 積分:330 註冊:2003-05-21 發送簡訊給我 |
|
alick
一般會員 ![]() ![]() 發表:2 回覆:12 積分:2 註冊:2003-11-24 發送簡訊給我 |
|
william
版主 ![]() ![]() ![]() ![]() ![]() 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
t27
中階會員 ![]() ![]() ![]() 發表:34 回覆:95 積分:90 註冊:2002-06-19 發送簡訊給我 |
|
qoo1234
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
|
qoo1234
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
其他請參考Form.pas單元
TScreen = class(TComponent) private .... procedure IconFontChanged(Sender: TObject); function GetCustomFormCount: Integer; function GetCustomForms(Index: Integer): TCustomForm; function GetCursors(Index: Integer): HCURSOR; function GetDataModule(Index: Integer): TDataModule; function GetDataModuleCount: Integer; function GetDefaultIME: String; function GetDesktopTop: Integer; function GetDesktopLeft: Integer; function GetDesktopHeight: Integer; function GetDesktopWidth: Integer; function GetDesktopRect: TRect; function GetWorkAreaRect: TRect; function GetWorkAreaHeight: Integer; function GetWorkAreaLeft: Integer; function GetWorkAreaTop: Integer; function GetWorkAreaWidth: Integer; function GetImes: TStrings; function GetHeight: Integer; function GetMonitor(Index: Integer): TMonitor; function GetMonitorCount: Integer; function GetFonts: TStrings; function GetForm(Index: Integer): TForm; function GetFormCount: Integer; procedure GetMetricSettings; function GetWidth: Integer; procedure InsertCursor(Index: Integer; Handle: HCURSOR); procedure RemoveDataModule(DataModule: TDataModule); procedure RemoveForm(AForm: TCustomForm); procedure SetCursors(Index: Integer; Handle: HCURSOR); procedure SetCursor(Value: TCursor); procedure SetHintFont(Value: TFont); procedure SetIconFont(Value: TFont); procedure SetMenuFont(Value: TFont); procedure UpdateLastActive; .... ![]() |
alick
一般會員 ![]() ![]() 發表:2 回覆:12 積分:2 註冊:2003-11-24 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |