Delphi órák - hozzon létre egy egyszerű 1
csak hasznos anyagok
Alibaba fő részvényese lett Kína leggazdagabb embere
Cikkek
A Microsoft elindította az Office 16 zárt tesztelését
Cikkek
A szakértők biztonsági réseket találtak a Windows 8.1-ben
Cikkek
A moszkvai metró egy egységes mobilhálózat lesz
Cikkek
Az eBay elfogadja a Bitcoint
Cikkek
Vivitek bemutatta az "iskolai" projektort D755WTIR
Cikkek
A "Vásárlás" gomb megjelent a Twitteren
Cikkek
A "Yandex.News" mostantól megtekinthető az iPhone-on
Cikkek
Most egy egyszerű grafikai játékot fogunk írni, amelynek lényege, hogy a felajánlott időnek ideje legyen, hogy megtalálja az azonos színű formákat. Nem tudom, hogyan lehet pontosabban közvetíteni a játék jelentését. általában akkor mindent meg fogsz érteni)
Ha szeretné tudni a költségek SEO szolgáltatások, akkor látogasson el a webhely netsend.ru.
Mint mindig, megnyitjuk a Delphit, és létrehozunk egy új projektet. Az Additional fülön azonnal dobja ki a DrawGrid összetevő formáját. Számos tulajdonságot kell módosítanunk ehhez:
1. A ColCount tulajdonság - egyenlő legyen 20
2. A RowCount tulajdonság is 20
3. DefaultColWidth = 20 tulajdonság
4. DefaultRowHeight tulajdonság = 20
5. FixedCols = 0
6. FixedRows = 0
7. DefaultDrawing = Hamis
Végül valami hasonlónak kell lenned.
Most véletlenszerűen hozzá kell rendelni az egyes cellákat egy bizonyos színhez. Összesen 3 színben (piros, zöld és kék) leszünk.
Átmegyünk a kódba, és a kulcsszó fölött a var beillesztjük ezt a kódot
const
MAX_COLORS = 3;
const
PossibleColors. a TColor = (ClRed, ClBlue, ClGreen) tömb [0..MAX_COLORS-1];
Ezután létre kell hoznunk egy kétdimenziós tömböt, amelynek celláiban a megfelelő négyzetek színei lesznek tárolva. mert a 20-20-as játékterület nagysága, és a tömb lesz ugyanolyan dimenzióval. Először is, állítsunk ki néhány állandót, amelyekben a játékterület méretét tároljuk. Ismét a var függvény felett a következő kódot írjuk:
const
MAX_COLUMNS = 20;
MAX_ROWS = 20;
Most hozzon létre egy tömböt. Ezt a var ie kulcsszó után tesszük. közvetlenül után:
ColorOfBrick. tömb [0..MAX_COLUMNs, 0..MAX_ROWS] TColor;
A továbblépéshez most olyan eljárást kell létrehoznunk, amely véletlenszerűen hozzárendeli a megfelelő színeket a négyzetekhez, amikor a játék elindul. A nyilvános kulcsszó után írunk
Nyomja meg a CTRL + SHIFT + C billentyűkombinációt. A voila és a Delphi létrehozott egy sablont jövőbeni eljárásunkra. A jövőben nem fogok részletesen beszélni az új eljárás vagy funkció létrehozásának folyamatáról, ha hirtelen elfelejtetted, hogy visszatérsz erre a helyre. Most, amikor a létrehozott eljárás sablonja, nézze meg, hogy mi következik be a végén és adja hozzá a hiányzó sorokat.
eljárás TForm1.AssignBrickColors;
var
i, j. integer;
kezdődik
az i: = 0-hoz Form1.DrawGrid1.ColCount-1 do
j: = 0 a Form1.DrawGrid1.RowCount-1 számára
ColorOfBrick [i] [j]: = Lehetséges színek [Random (MAX_COLORS)]
végén;
Megkaptuk. Remélem. Engedjék meg a játékosnak, hogy új játékot indítson, amikor azt akarja, ehhez a Szabvány fülön lévő Gomb komponens formáját gördítse, és azonnal változtassa meg a Caption tulajdonságát "Új játékra". Hozzon létre egy OnClick eseménykezelőt a gombra kétszer kattintva. A kezdet és a vég között írja:
Természetesen az indításkor új játékot is el kell indítani, így egy onCreate eseménykezelőt hozunk létre az űrlapon, és újra kezdetektől fogva írunk:
Nos, és végül készítsd el az OnDrawCell események kezelőjét a DrawGrid komponensen
DrawGrid1.Canvas.Brush.Color: = ColorOfBrick [ACol] [ARow];
DrawGrid1.Canvas.FillRect (Rect)
Futtassa a projektet, itt van, amit kaptam:
Az 1. rész vége