Forum » Programiranje » [delphi] 2D polje kvadratkov(Shape)
[delphi] 2D polje kvadratkov(Shape)
pr2501 ::
Ne spomnem se več kako se dodaja programska koda na to stran, pa sem za predstavitev programa uporabil sliko.
Kot začetnik imam na slednjo težavo:
v eni Formi
bi rad zrisal 32 kvadratkov, ki bi bili povezani z nekim procesom v drugi formi (tam bi se določalo, kdaj naj bodo kvadratki vidni in kdaj ne).
zaenkrat pa jih ne vem kako še zrisati vseh 32 cez celo formo v neki mreži; ... naknadno jih bom premikal po potrebi.
hvala
konec
pr2501 ::
sliko nisem uspel naložiti, zato bom moral kodo dodati kot besedilo:
//////////////////////////////////
Vhodi : array [1..8, 1..4] of boolean;
Rectangles: array[1..8, 1..4] of TShape;
for j := 1 to 8 do
for k := 1 to 4 do
if Vhodi[j, k] then
Rectangles[j, k].Show
else
Rectangles[j, k].Hide;
////////////////////////////////
Še eno pojasnilo:
Imam že polje 32 indeksov Boolean spremenljivk, v odvisnosti od katreih bodo kvadratki menjavali barvo med dvema ( rdeca zelena)
//////////////////////////////////
Vhodi : array [1..8, 1..4] of boolean;
Rectangles: array[1..8, 1..4] of TShape;
for j := 1 to 8 do
for k := 1 to 4 do
if Vhodi[j, k] then
Rectangles[j, k].Show
else
Rectangles[j, k].Hide;
////////////////////////////////
Še eno pojasnilo:
Imam že polje 32 indeksov Boolean spremenljivk, v odvisnosti od katreih bodo kvadratki menjavali barvo med dvema ( rdeca zelena)
konec
Vredno ogleda ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | [java] funkcija ekvivalentna print_r v PHPOddelek: Programiranje | 1680 (1443) | sverde21 |
» | Šah [Pacsal]Oddelek: Programiranje | 2235 (1838) | NeOman |
» | problem prijavljanja v accountOddelek: Operacijski sistemi | 1489 (1347) | ql000 |
» | [Turbo Pascal] Pomoč...Oddelek: Programiranje | 1477 (1379) | Grey |
» | Naloga iz PascalaOddelek: Programiranje | 907 (841) | Vesoljc |