Ako začať?

Vo väčšine projketov je vždy dobré najprv si projekt premysliet, poprípade napísať hlavné body na papier a ujasnisť si isté kroky. Tí ktorí programujú vedia, že to ušetrí mnoho času pri neskorších úpravách a prepisovaní kódu.
A teraz späť k mínam. Najprv si do formulára vložíme potrebné objekty.
Do formulára vložíme objekty tak že klikneme na objekt (tým ho vyberieme) a potom klikneme do formulára ale tlačítko myši nepúštame ho hneď, ešte pred tým musíme zvoliť veľkosť objektu(ako keď kreslíte obdlžník v grafickom editore..):

3x TImage cesta:Panel s objektami->Additional->TImage

1x TTimer cesta:Panel s objektami->System->TTimer

1x TBitBtn cesta:Panel s objektami->Additional->TBitBtn

1x TLabel cesta:Panel s objektami->Standard->TLabel

Váš formulár s inšpektorom objektov by mal vyzerať nejak takto:

Tak a už to len nakódiť..

Aby nevyzeralo že je toho veľa rozkúskujeme si to začneme trochu od konca a vysvetlíme si časti kódu aby ste si ho mohli neskôr sami upravovať.
Začneme TTimerom. Stáči že na objekt vo formulári 2x klikneme a Lazarus nám spraví hlavičku. Do ktorej vložíme nasledujúci kód.
procedure TForm1.Timer1Timer(Sender: TObject); begin inc(cas); //pocet sekund pri riešeni min form1.image2.canvas.FillRect(image2.ClientRect); //vymazanie image2,3 form1.image3.canvas.FillRect(image3.ClientRect); form1.Image2.canvas.TextOut(1,1,inttostr(cas));//vypis aktulaneho casu form1.Image3.canvas.TextOut(1,1,inttostr(vlajky));// pocet volnych vlajok end;

Globálne premenné

Na začiatok kódu je potrebné zadefinovať premenné s ktorými bude mocť pracovať každá funkcia. Vložte nasledujúci kód tak aby správne sedel to znamená na začiatok kódu medzi var a implementation Malo by to vyzerať takto.
var Form1: TForm1; vlajka: array[1..9,1..9] of integer; //pomocne pole určujúce umiestnenie vlajky pocetmin:array[1..9,1..9] of integer; //pocet min v okoli policka (x,y) navstivil:array[1..9,1..9] of boolean; //urcuje ci sme na dane policku uz klikli tlacidlo,tlacidlo2,ciste,one,two,three,four,five,six,seven,eight,smile,nosmile,mine,flag:Tbitmap ; //nazvy obrazkov sr,ss,cas,vlajky:integer; //pomocne premenne konec,uz:boolean; implementation
Skúste si spustiť projekt malo by byť všetko v poriadku. Ak nastane chyba skúste si kroky prejsť ešte raz. Prípadne si stiahnite celý projekt na konci článku je link.

Vytvorenie obrázkov

Kedže budeme pracovať s TImage ktorý je určený na kreslenie nastal čas si vytvoriť vlastné obrázky pre svoje míny. Obrázky vložte do súboru s projektom.
Alebo si stiahnite moje obrázky ktoré su nižšie prípadne celý projekt na konci článku kde ich nájdete tiež.

TForm1.FormCreate

Tak a teraz s čistým svedomím môžeme vložiť ďalšiu časť kódu do formulára do hlavnej funckie/procedúry TForm1.FormCreate ktorá sa spúšťa hneď ako prvá. To isté je aj v jazyku C, ale tam sa tá funkcia volá main(). Niektoré funkcie sú zakomentované kedže ich ešte nemáme zadefinovavé a pri preklade by nám robili problémy. Preto keď si ich doplníme sami si ich odkomentujte.
procedure TForm1.FormCreate(Sender: TObject); begin uz:=false; vlajky:=10; //počet možných vlajok na ozna4enie miesta s minou form1.image3.canvas.Font.Height:=20; //nastavenie veľkosti image3 form1.image3.canvas.FillRect(image3.ClientRect); //vymazanie image3 form1.Image3.canvas.TextOut(1,1,inttostr(vlajky)); //vypis poctu vlajok form1.image2.canvas.FillRect(image2.ClientRect); form1.image2.canvas.Font.Height:=20; //načítanie obrazkov flag:=tbitmap.create; flag.loadfromfile('flag.bmp'); mine:=tbitmap.create; mine.loadfromfile('mine.bmp'); tlacidlo2:=tbitmap.create; tlacidlo2.loadfromfile('tlacidlo2.bmp'); tlacidlo:=tbitmap.create; tlacidlo.loadfromfile('tlacidlo.bmp'); ciste:=tbitmap.create; ciste.loadfromfile('ciste.bmp'); one:=tbitmap.create; one.loadfromfile('One.bmp'); two:=tbitmap.create; two.loadfromfile('Two.bmp'); three:=tbitmap.create; three.loadfromfile('Three.bmp'); four:=tbitmap.create; four.loadfromfile('Four.bmp'); five:=tbitmap.create; five.loadfromfile('five.bmp'); form1.BitBtn1.Glyph.LoadFromFile('smile.bmp'); cas:=0;//vynulovanie pociatocneho casu form1.Image2.canvas.TextOut(1,1,inttostr(cas)); konec:=false; //vynuluj; //rozmiestnenie; //krtlacidlo ; //vokoli; end;

Náš formulár pred a po spustení by mal vyzerať nejak takto:

Zhrnutie

V dnešnom diely sme si načrtli hlavnú kostru nášho programu. Mnohí určite vidia akým smerom sa to bude uberať a dolaďovať. V ďalšom diely budeme vkladať zdrojové kódy teda pridáme funckionalitu, jemne zlepšíme výzor programu a na záver zverejním kompletný funkčný projekt míny.