如何取得顯示器的字型大小比例???請賜招,謝謝!! |
|
尚未結案
|
|
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; 
錯誤無法編譯，能不能請版主說明清楚一點：
↓↓↓↓↓↓↓清楚了，謝謝! 發表人 - leo2568 於 2003/12/14 22:13:55
|
|
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; 網海無涯，學無止境! 發表人 - qoo1234 於 2003/12/14 17:19:25
|
|
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;
....
網海無涯，學無止境! 發表人 - qoo1234 於 2003/12/17 23:50:24
|
|
alick
一般會員 發表：2 回覆：12 積分：2 註冊：2003-11-24 發送簡訊給我 |
發表時間：2003-12-10 09:20:34
IP:61.63.xxx.xxx 未訂閱
系統時間：2024-07-04 5:42:32
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |