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ä.