안녕하세요.

에디터를 만드는 중인데..
Stretch 를 이용해서 마우스로 끌어당기는 것이 아닌...
확대를 누르면 그림이 2배 확대되고,
축소를 누르면 그림이 1/2로 축소되고,
원래대로를 누르면 그림이 원래형태로 돌아오는 것을
만들고 있는데요.

2배과 1/2 이 한 번씩 밖에 안 먹히네요...
누르면 계속 확대가 먹히게 할려면 어케해야 되냐요?
아래와 같은 형식으로 했걸랑요?
제가 잘못 짜고 있는 건가요?

procedure TForm1.SizeBigClick(Sender: TObject);
begin
   ChildForm.Image1.Width := ChildForm.Image1.Picture.Width*2;
   ChildForm.Image1.Height := ChildForm.Image1.Picture.Height*2;
   if ChildForm.Image1.Width > ChildForm.ClientWidth then
      ChildForm.ClientWidth := ChildForm.Image1.Width;
   if ChildForm.Image1.Height > ChildForm.ClientHeight then
      ChildForm.ClientHeight := ChildForm.Image1.Height;
   // 스크롤바의 법위를 설정한다.
//   ChildForm.VertScrollBar.Range := ChildForm.Image1.Picture.Height*2;
//   ChildForm.HorzScrollBar.Range := ChildForm.Image1.Picture.Width*2;
end;

그럼..답변 부탁드립니다.
20000.