Neuvoja

Kuvan koon muuttaminen suhteessa: Pikkukuvagrafiikan luominen

Kuvan koon muuttaminen suhteessa: Pikkukuvagrafiikan luominen



We are searching data for your request:

Forums and discussions:
Manuals and reference books:
Data from registers:
Wait the end of the search in all databases.
Upon completion, a link will appear to access the found materials.

Grafiikassa "ohjelmointi" a pienoiskuva on kuvan pienennetty versio.

Tässä on idea seuraavalle sovelluksellesi: luo "lomakkeenvalitsin", jonka avulla käyttäjät voivat helposti valita ja selata avoimia lomakkeita näyttämällä niiden kaikkien pikkukuvat valintaikkunassa.

Mielenkiintoinen idea? Kuulostaa IE 7 -selaimen "Pikavälilehdet" -ominaisuudesta :)

Ennen kuin todella luodaan tällainen siisti ominaisuus seuraavalle Delphi-sovelluksellesi, sinun on tiedettävä, kuinka tarttua lomakkeen kuvaan ("lomakeruutu)" ja kuinka muuttaa sen koko suhteessa haluttuun pikkukuvaan.

Suhteellinen kuvan koon muuttaminen: Pikkukuvagrafiikan luominen

Alta löydät koodilohkon, jolla voit ottaa kuvan lomakkeesta (Lomake1) käyttämällä GetFormImage menetelmä. Tuloksena olevan TBitmap-koon kokoa muutetaan sen jälkeen, että se sopii pikkukuvien enimmäisleveyteen (200 pikseliä) ja / tai korkeuteen (150 pikseliä).
Koon koon muuttaminen ylläpitää kuvan kuvasuhdetta.

Saatu kuva näytetään sitten TImage-ohjaimessa, nimeltään "Image1".

const maks. leveys = 200; maxKorkeus = 150; var pikkukuva: TBitmap; thumbRect: TRect; alkaa pikkukuva: = Form1.GetFormImage;yrittää thumbRect.Left: = 0; thumbRect.Top: = 0;// suhteellinen koko     jos pikkukuva.leveys> pikkukuva.korkeus sitten     alkaa thumbRect.Right: = maxWidth; thumbRect.Bottom: = (enimmäisleveys * pikkukuva.korkeus) div thumbnail.Width;loppu lopussa alkaa thumbRect.Bottom: = maxHeight; thumbRect.Right: = (maxHeight * pikkukuva.leveys) div thumbnail.Height;pää; thumbnail.Canvas.StretchDraw (thumbRect, pikkukuva); // koon muuttaminen pikkukuva.leveys: = thumbRect.Right; pikkukuva.korkeus: = thumbRect.Bottom;// näyttö TImage-ohjaimessa Image1.Picture.Assign (pikkukuva);vihdoin thumbnail.Free;pää; pää;

Huomaa: GetFormImage kopioi vain lomakeasiakkaan alueen - jos joudut ottamaan lomakkeen koko "näyttökuvan" (mukaan lukien sen reunus), tarvitset erilaisen lähestymistavan ... lisätietoja siitä ensi kerralla.


Katso video: 35 kulmaa kosmologiaan: Missä kaikki ovat (Elokuu 2022).