프로그래밍시 한글 폰트 사용할때 스크립트를 영문으로 두어 그런 현상이



나타나더군요... 2000에서는 스크립트를 영문으로 해도 정상적으로 잘



보이는데.. 98에서 실행할경우 한글이 다르게 나오는데.. 스크립트를 한글로



바꾸어 주면 원하는데로 정상적으로 나옵니다.



안명호 wrote:

> 윈도우 2000에서 프로그램을 작성하여 윈도우 98에서 동작을 시켜보면

>

> 프로그램 작성시 설정한 화면 디자인이 다르게 나옵니다.

>

> 보통 굴림체 9포인트로 작성을 하는데.. 더 작게 나오는것 같더군요..

>

> 이 문제를 어떻게 해결해야 하나요...

>

> 혹시 2000과 98이 폰트가 다른가요? 그러면 98의 폰트를 복사해서 사용하면

>

> 문제를 해결 할 수 있나요?

>

> 빠른 도움 부탁 드립니다.

안명호 wrote:

> 윈도우 2000에서 프로그램을 작성하여 윈도우 98에서 동작을 시켜보면

>

> 프로그램 작성시 설정한 화면 디자인이 다르게 나옵니다.

>

> 보통 굴림체 9포인트로 작성을 하는데.. 더 작게 나오는것 같더군요..

>

> 이 문제를 어떻게 해결해야 하나요...

>

> 혹시 2000과 98이 폰트가 다른가요? 그러면 98의 폰트를 복사해서 사용하면

>

> 문제를 해결 할 수 있나요?

>

> 빠른 도움 부탁 드립니다.





안녕하세요~ 구창민입니다.



저는 2000을 사용하지 않으니 2000을 잘 모릅니다만,

제 눈이 짧은 건지 네트웍이나, 하드웨어 지원말구는

NT와 크게 변한바가 없는 거 같던데..역시 제가 눈이 짧은 건가요 ^^



만약 저 같으면 2000도 OS가 언 놈이 조사해보면 NT로 나올테니,

먼저 OS를 조사하는 루틴을 가미해서 98인경우는

시스템 폰트를 사용하거나, 또는 특정한 폰트를 사용하여 그게 여의치않으면

폰트를 98에 맞는 폰트로 이것저것 바꾸어 테스트 해보거나 하겠습니다.



참고로, SystemParametersInfo함수를 사용하면 시스템과 똑같은 글꼴을

Window9x 에서는 얻어낼 수 있을 겁니다.



다음과 같은 코드로..



procedure TForm1.Button1Click(Sender: TObject);

var

NonClientMetrics: TNonClientMetrics;

begin

NonClientMetrics.cbSize := sizeof(NonClientMetrics);

if

SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @NonClientMetrics,0)

then

Self.Font.Handle := CreateFontIndirect(NonClientMetrics.lfMenuFont);

end;



헌데 SystemParametersInfo 첫인자중 SPI_GETNONCLIENTMETRICS 때문에 이놈이

NT에서 지원을 안하는 것 같더라구요..^^;



혹시나, 한번 2000에서 테스트를 해 보시기 바랍니다.



역시 여의치 않으시면, OS를 구분하시어 모듈을 작성하심이...^^;



참, OS를 구분하는 건 아실테지만

아래 방식도 참고하세요..



var

OS: TOSVersionInfo;

begin

OS.dwOSVersionInfoSize := Sizeof(OS);

GetVersionEx(OS);

with OS do

case dwPlatformId of

VER_PLATFORM_WIN32s :

Label1.Caption := 'Windows 3.1x/32s';

VER_PLATFORM_WIN32_WINDOWS :

begin

if (dwMajorVersion = 4) and (dwMinorVersion > 0) then

Label1.Caption := 'Windows 98'

else

Label1.Caption := 'Windows 95';

end;

VER_PLATFORM_WIN32_NT :

Label1.Caption := 'Windows NT' ;

end;

end;

그럼~ 즐거운 프로그래밍 하시길~

구창민님 우선 성의 있는 답변 감사드립니다.



하지만 다른 방법으로 문제를 해결 하였습니다.



다른분의 NT에서 프로그래밍 경험을 말해 주셔서



2000에서도 비슷하리라 생각하고 해보았더니.. 되더군요...



한글폰트 쓸때 스크립트가 디폴트로 영문이 되어 있던데 이를 한글로



바꾸어 주니 해결 되더군요...



아

안명호 wrote:

> 구창민님 우선 성의 있는 답변 감사드립니다.

>

> 하지만 다른 방법으로 문제를 해결 하였습니다.

>

> 다른분의 NT에서 프로그래밍 경험을 말해 주셔서

>

> 2000에서도 비슷하리라 생각하고 해보았더니.. 되더군요...

>

> 한글폰트 쓸때 스크립트가 디폴트로 영문이 되어 있던데 이를 한글로

>

> 바꾸어 주니 해결 되더군요...

>

> 아