Enostaven urejevalnik besedil

Najprej bomo pripravili okolje za novo aplikacijo.

Kliknemo File -> New.

Izberemo možnost Project -> Application.

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.

Na obrazec bomo sedaj dodali komponento za urejanje besedila.

V zgornji orodni vrstici izberemo TMemo.

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.

Kliknemo na obrazec, da na njega dodamo izbrano komponento.

Sedaj bomo nastavili nekaj njegovih lastnosti.

Na oknu Properties nastavite možnost alClient, kar pomeni, da bo komponenta za urejanje besedila zasedala celotno površino obrazca.

Sedaj izberite Lines ter pobrišite tekst.

S tem smo dosegli, da privzeto komponenta ne bo vsebovala teksta.

Naš urejevalnik besedila bo vseboval tudi meni.

Zgoraj izberite komponento TMainMenu.

Komponento dodajte na obrazec ter jo dvokliknite.

Odpre se vam okno za dodajanje opcij v meni.

Kliknite z desnim miškinim gumbom na New Item 1 in izberite možnost Create Submenu.

Sedaj izberite novo dodano opcijo.

Zopet kliknite z desnim miškinim gumbom in izberite možnost Insert New Itema (after).

Sedaj na isti način dodajte še dve dodatni opciji.

Opcije preimenujte, kar storite tako, da izberete opcijo ter nastavite vrednost lastnosti Caption v oknu Properties.

Končni rezultat bi moral biti tak, kot je prikazan na sliki.

Na obrazec sedaj dodajte še komponenti TOpenDialog in TSaveDialog.

Najdete ju v zavihku Dialogs.

Sedaj v obrazcu izberite Datoteka in kliknite na opcijo Izhod.

Odprlo se vam bo okno s kodo.

Notri vstavite naslednjo kodo:

Form1.Close;

Ob kliku na to opcijo bo omenjena vrstica zaprla program.

Sedaj v obrazcu izberite Datoteka in kliknite na opcijo Odpri.

Notri vstavite naslednjo kodo:

  if OpenDialog1.Execute then
  begin
      Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  end;

Omenjena koda bo prikazala dialog, kjer boste izbrali datoteko ter jo naložila v komponento za urejanje besedila.

Podobno naredite še za opcijo Shrani.

Notri vstavite naslednjo kodo:

    if SaveDialog1.Execute then
    begin
      Memo1.Lines.SaveToFile(SaveDialog1.FileName);
    end;  

Omenjena koda bo prikazala dialog za shranjevanje ter shranila vsebino komponente za urejanje teksta v izbrano datoteko.

Program sedaj zaženemo s klikom na ikono trikotnika.

Program se bo zagnal in že ga lahko uporabljamo kot enostaven urejevalnik besedila.

Nove datoteke tako lahko odpiramo ali shranjujemo preko menija Datoteka.

Priporočamo

Pregledovalnik slik

V razvojnem okolju Lazarus bomo sprogramirali enostaven pregledovalnik slik, ki bo znal slike tudi raztegovati ter pri tem ohraniti pravilno razmerje slike.

Priporočamo

Število dni med dvema datumoma

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