Delphi - Kuvan esittäminen

Kuvan esittäminen

Ohjelmasta puuttuu vielä kuvan piirto:

1.: Lisää komponentti:

		Image   (  Additional-sivu )
		  Name = ImageBmp
		  koko = ...  mahdollisiman iso ...

2.: Lisää painetun näppäimen käsittelykoodin loppuun:

		nimi := QueryAapinenKuva.AsString;
		if ( nimi = '' ) then exit;
		ImageBmp.Picture.LoadFromFile(nimi);

3.: Aja ohjelma :-)

Ohjelmassa on vielä se vika, että kuva ei aina välttämättä mahdu sille varattuun tilaan. Toisaalta pienet kuvat ovat todella pieniä. Asiaa voitaisiin auttaa laittamalla päälle ominaisuus ImageBmp.Stretch. Kokeile! Nyt kuitenkin kuvat ovat vääränmuotoisia. Ongelma voidaan korjata muuttamalla ImageBmp- komponentin kokoa samassa suhteessa, mikä on kuvan alkuperäinen suhde. Nämä laskut on tehty ohjelman versiossa 1.0, joka löytyy monisteen lopussa olevasta liitteestä.