폼위에 Panel을 좌측와 우측에 놓았습니다. 좌측에 있는 Panel의 align을 alleft로 우측에 있는 Panel의 align을 alclient로 설정을 하였습니다. 폼을 실행시키고 폼을 maximize했을때 좌측과 우측의 패널도 같이 사이징이 원래 처음에 작...
홍성락
•
2002.08.23 23:50
hsr/////////////////////////////////////////////////////
혹시 동일 비율로 크기 변환 말씀하시나요?
...
혹시 동일 비율로 크기 변환 말씀하시나요?
예전엔 패널을 상하로 놓은 경우였는데....
더 좋은 방법도 있겠죠, 스케일이나 크기 변동시 메세지처리하거나
ScaleBy등을 쓰면서요....
그런데 위에처럼 단순히 패널 크기만 조정한다면
아래처럼 해도됩니다. 단 그안에 컴포들 조정시는 위에서 말한것처럼 일일이 조정하던지 아니면 ScaleBy등을 적절히 써보시던지요...
1. 전역변수 D_ratio : Double; 를 선언합니다
2. 폼 Create에서 초기 폼크기와 패널1의 비율을 저장합니다.
procedure TForm1.FormCreate(Sender: TObject);
begin
D_ratio := (Panel1.Width / Form1.Width);
end;
3. 폼 Resize이벤트
procedure TForm1.FormResize(Sender: TObject);
begin
Panel1.Width := Round(Form1.Width * D_ratio);
end;