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 | 1586 (1349) | sverde21 |
| » | Šah [Pacsal]Oddelek: Programiranje | 2139 (1742) | NeOman |
| » | problem prijavljanja v accountOddelek: Operacijski sistemi | 1363 (1221) | ql000 |
| » | [Turbo Pascal] Pomoč...Oddelek: Programiranje | 1392 (1294) | Grey |
| » | Naloga iz PascalaOddelek: Programiranje | 843 (777) | Vesoljc |