Suhteellisen koon säilyttäminen

• Tehtävä 3.21 Ikkunan jakaminen 9 osaan 1/4 suhteessa

Mikäli ikkuna halutaan jakaa esim. 3 yhtäsuureen osaan korkeussuunnassa, joudutaan itse ohjelmoimaan miten paneelien koot muuttuvat. Tämä voidaan kirjoittaa esim. FormResize- tapahtumaan:

	{ Panel1.Align = alTop      }
	{ Panel2.Align = alTop      }
	{ Panel3.Align = alClient   }
	procedure TFormPanelDemo.FormResize(Sender: TObject);
	var korkeus:integer;
	begin
	  korkeus := ClientHeight div 3;
	  Panel1.Height := korkeus;
	  Panel2.Height := korkeus;
	end;

Tehtävä 3.21 Ikkunan jakaminen 9 osaan 1/4 suhteessa

Muuta edellistä yhdeksään osaan jaettua ohjelmaa siten, että ikkunoiden A,B,C ja D leveys ja korkeus on aina 1/4 koko ikkunan leveydestä ja korkeudesta