현재 프로그램 크기를 Width=850, Height=610로 되어있습니다.
1024*768 에서는 문제가 없는데요.
800*600에서는 넘쳐버립니다.
이것을요. 윈도우즈 화면 해상도에 따라 일정한 크기로 맞추고 싶은데요.
어떻게 하면 되겠습니까.
아시는 분은 한조언 부탁드리겠습니다.
procedure TForm1.FormCreate(Sender: TObject);
begin
Scaled:=true;
if Screen.Width<>ScreenWidth then
begin
Width:=LongInt(Width)*LongInt(Screen.Width) div ScreenWidth;
Height:=LongInt(Height)*LongInt(Screen.Height) div ScreenHeight;
ScaleBy(Screen.Width, ScreenWidth);
end;
end;
오늘 하루도 즐거운 하루되세요.