이동훈 wrote:

>

> 메인 메뉴의 구성을 팝업메뉴로 구성하여 제작하는데...

>

> 팝업메뉴의 글자가 너무 작아서 고민인데 팝업메뉴의

>

> 글자폰트 크기를 조절할 방법은 없는지요!

>

> 델파이 3.0에서...



애구 방금전에 그냥 소스 있는거 올렸다가 제가 테스트 해보았더니 시스템 전체에 메뉴 폰트를 바꿔 버리는 소스 였군요..



다시 올립니다..





unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Menus;



type

TForm1 = class(TForm)

PopupMenu1: TPopupMenu;

N121: TMenuItem;

N341: TMenuItem;

asdadasasd1: TMenuItem;

ewqwrqrqwrqw1: TMenuItem;

N1: TMenuItem;

procedure FormCreate(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

oldFontSize: integer;



implementation



{$R *.DFM}



function GetMenuFontSize: Integer;

var

ncm: TNonClientMetrics;

PixelsPerInch: integer;

begin

ncm.cbSize := sizeof(TNonClientMetrics);

SystemParametersInfo(

SPI_GETNONCLIENTMETRICS,

sizeof(NONCLIENTMETRICS),

@ncm,

SPIF_UPDATEINIFILE

);

PixelsPerInch := GetDeviceCaps(GetDC(Form1.handle), LOGPIXELSY);

Result := -MulDiv(ncm.lfMenuFont.lfHeight, 72, PixelsPerInch);

end;



{ Set menu font size }

procedure SetMenuFontSize(FontSize: Integer);

var

ncm: TNonClientMetrics;

PixelsPerInch: Integer;

begin

ncm.cbSize := sizeof(TNonClientMetrics);

SystemParametersInfo(

SPI_GETNONCLIENTMETRICS,

sizeof(NONCLIENTMETRICS),

@ncm,

0

);



PixelsPerInch := GetDeviceCaps(GetDC(Form1.Handle), LOGPIXELSY);

ncm.lfMenuFont.lfHeight := -MulDiv(FontSize, PixelsPerInch, 72);



SystemParametersInfo(

SPI_SETNONCLIENTMETRICS,

sizeof(NONCLIENTMETRICS),

@ncm,

SPIF_UPDATEINIFILE

);

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

oldFontSize := GetMenuFontSize;

SetMenuFontSize(14);

end;



procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

SetMenuFontSize(oldFontSize);

end;



end.