문영철 wrote:

> 안녕하세요?

> 늘 이렇게 도움만 청하네요... 초보라서

> 다름이 아니오라 메세지 다이알로그의 폰트는 어디서 변경하죠?

>



이재식 Wrote :

안녕하세요?



아시겠지만, 메세지 다이얼로그 박스의 폰트 및 그 크기를 변경하면

MessageDlg,MessageDlgPos, MessageBox, ShowMessage, ShowMessagePos등은

모두 바뀌어 버립니다.

이유는 위 모든 함수들이 CreateMessageDialog라는 함수를 공용하기 때문입니다.



즉, 한 application에서, MessageDlg에서는 굴림체에 12로 했다가,

showMessage에서는 바탕체에 10으로 할 수 없습니다.

그렇기 하기위해서는 다시 소스를 고쳐야 합니다.

여기서, 소스란 dialogs.pas소스를 말합니다. 델파이가 주는 소스입니다.



변경하는것은 좀 까다(?)롭습니다.

그래도, 한번 고쳐보실 랍니까?



일전에 저의 메일로 showMessage의 폰트 및 크기를 변경하고 싶은데,

방법을 여쭈어보는 분이 있었습니다.

그래서, 짬을 내서 dialogs.pas파일을 변경했는데, 만족하시더라구요.



여기서 다시 설명을 좀 해야 겠네요.

우선 제가 변경한 dialogs.pas의 dialogs.dcu를 드리는것이 가장 좋은데,

여기에 파일을 올리는 방법을 모르겠군요.

dialogs.pas에서 CreateMessageDialog함수를 찾아서 해당부분을 위처럼

고치세요.



ClientWidth

:= Max(IconTextWidth, ButtonGroupWidth) + HorzMargin * 2 +

(canvas.TextWidth(msg) div 4) + (HorzMargin div 8) ;

ClientHeight := IconTextHeight + ButtonHeight + VertSpacing +

VertMargin * 2 + canvas.TextHeight(msg) div 8 ;



또

with TLabel.Create(Result) do

begin

...

...

Parent := Result;

WordWrap := True;

Caption := Msg;



// 나의 추가

//*************************



font.Size := 12 ;

font.name := '굴림체' ;

// ***************************



...

...

...

// ******************************************

SetBounds (Aleft, vertMargin,

TextRect.Right + canvas.TextWidth(msg),

TextRect.Bottom + canvas.TextHeight(msg)

) ;

// ***********************************************



...

...

위처럼 세부분만 수정하면 됩니다.

모든 다이얼로그 박스는 내용을 Label에 출력을 합니다.

그것은 CreateMessageDialog박스 함수를 들여다보면 쉽게 알 수 있습니다.



수정의 핵심은 MessageForm의 client영역을 수정해야 합니다.

글씨 유형과 크기에 따라 client영역이 당연히 커졌다 줄었다 해야 하니까요.



그리고, Label의 폰트 및 크기를 변경하면 됩니다.



동시에 Label의 bound영역을 수정해야 합니다.

이것을 수정하지 않으면 label에 쓰여지는 글자크기 및 내용의 양 그리고 글자유형에

따라 내용들이 깨져버립니다.



pas를수정하시면 반드시 재컴파일하셔서 ..lib디렉토리에 dcu파일을

엎어쓰기 하셔야 합니다.

그리고, 해당 응용프로그램을 실행하시면 됩니다.

기존에 실행되어 있다면 일단은 닫고 다시 실행해야 새로 변경된

dcu파일을 인식할 수 있습니다.