Pregledovalnik slik

Na obrazec Form1 bomo najprej dodamo nekaj komponent.

Najbolj važna je komponenta TImage, ki bo skrbela za prikazovanje slik.

Priporočamo

Lazarus razvojno okolje

Lazurs je razvojno okolje za hitro razvijanje aplikacij v programskem jeziku pascal, zelo podobno okolju Delphi, v katerem lahko razvijamo aplikacije za Windows, Linux ali MacOS operacijski sistem.

Dodamo še komponento TEdit in TButton.

V prvi bomo izpisali celotno pot odprte datoteke, medtem ko bomo s pomočjo gumba odpirali slike.

Priporočamo

Osnova sintaksa v programskem jeziku Pascal

V tokratni lekciji si bomo pogledali osnovno sintakso uporabe programskega jezika Pascal, ki ga uporabljamo v razvojnem okolju Delphi ali Lazarus.

Na obrazec dodamo še komponento TOpenDialog, ki omogoča prikaz okna za izbiro datotek.

S pomočjo miške oblikujemo obrazec, da so komponente razporejene tako, kot je prikazano na sliki.

Sedaj bomo za posamezne elemente nastavili lastnosti oz. Properties.

Najprej na obrazcu kliknemo element Edit1.

Njegovo lastnost Text nastavimo na prazno vrednost.
S tem smo dosegli, da ob zagonu programa polje ne bo vsebovalo nobenega teksta.

Sedaj izberemo komponento TImage1.

V njej nastavimo lastnot Strech na True. Tako bo slika prikazana čez celotno površino elementa.

Da bomo ohranili razmerje slike, nastavimo še lastnost Proportional na True.

Sedaj bomo naredili, da se bo v primeru, da bomo raztegnili okno našega ekrana, pri tem raztegnila tudi slika.

Najprej lastnost Align nastavimo na alCustom.

Sedaj odpremo lastnost Anchor in pri vseh možnostih nastavimo vrednost na True.

S tem smo dosegli, da se bo v primeru spreminjanja širine ali višine našega programa temu prilagodila tudi naša komponenta in bo vseskozi enako oddaljena od vseh robov.

Na obrazcu sedaj klinite na gumb Button1 in nastavitev za vrednost Caption nastavite Odpri.

Gumb sedaj dvokliknite in dodajte naslednjo kodo:

if OpenDialog1.Execute then
  begin
    edit1.Text:=OpenDialog1.FileName;
    image1.Picture.LoadFromFile(OpenDialog1.FileName);
  end;  

Razlaga
Najprej s funkcijo OpenDialog1.Execute odpremo okno za izbiranje datotek. V kolikor izbiro potrdimo, najprej v polje Edit1 vpišemo pot izbrane datoteke, nato pa v objekt Image1 naložimo našo sliko.

Če program zaženete, lahko sedaj preko gumba Odpri izberete sliko, ki se bo prikazala v vašem programu.

Okno lahko poljubno raztegujete, pri čemer se bo ustrezno raztegovala tudi slika.

Priporočamo

Število dni med dvema datumoma

V razvojnem okolju Lazarus bomo izdelali program, ki bo prikazal število dni med dvema datumoma.

Priporočamo

Enostaven urejevalnik besedil

V razvojnem okolju Lazarus bomo sprogramirali enostaven urejevalnik besedil, ki omogoča odpiranje in shranjevanje teksta v datoteko.