Form1.ParentFont := True;
로 하시고 폼위에 추가된 모든 콤포넌트들이 ParentFont가 True가 되게 하세요.
그리고, 폼이 생성되는 부분에 아래의 코드를 넣어 보세요...
Self.Font.Assign(Screen.MenuFont);
폼 자신의 폰트를 Screen 객체의 메뉴 폰트로 Assign 하는 겁니다. 사용되는 모든 폼의 Create에 해 주세요.
procedure Form1.FormCreate(Sender: TObject);
begin
Self.Font.Assign(Screen.MenuFont);
//DisplayFont;//(이건 아래에 설명합니다.)
end;
이렇게 하면 폼위에 글자중 색깔이나 fsBold 스타일의 글자들이 일반적인 기본 글꼴로 변경될 겁니다.
개발자가 지정하는 폰트를 유지하고 싶으면
폼의 Object Inspect에서 ParentFont를 True를 하거나
Form1.ParentFont := True;
로 하시고 폼위에 추가된 모든 콤포넌트들이 ParentFont가 True가 되게 하세요.
그리고, 폼이 생성되는 부분에 아래의 코드를 넣어 보세요...
Self.Font.Assign(Screen.MenuFont);
폼 자신의 폰트를 Screen 객체의 메뉴 폰트로 Assign 하는 겁니다. 사용되는 모든 폼의 Create에 해 주세요.
procedure Form1.FormCreate(Sender: TObject);
begin
Self.Font.Assign(Screen.MenuFont);
//DisplayFont;//(이건 아래에 설명합니다.)
end;
이렇게 하면 폼위에 글자중 색깔이나 fsBold 스타일의 글자들이 일반적인 기본 글꼴로 변경될 겁니다.
개발자가 지정하는 폰트를 유지하고 싶으면
procedure Form1.DisplayFont;
begin
Label1.Font.Size := 14;
Label1.Font.Color := clRed;
Label1.Font.Style := [fsBold];
end;
로 해주세요...
그래도 안된다면, 윈도우 기본 폰트 크기가 보통크기(96 dpi), 큰크기(120 dpi)로 설정되어 있는 경우인데...
큰 글꼴에 대해 질답란에서 검색해 보시면 참고가 되실 겁니다.
그럼, 즐푸 하세요.....