Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 3 odgovora
  • 3.451 pregleda

Najnovija ↓

Rectangle random position 23.12.2004. u 08:12 · pre 266 meseci #1
Zapeo sam u jednom djelu koda koji glasi:

//CODE//:
procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
begin
ListView1.Scroll(ListView1.InstanceSize,ListView1.InstanceSize);
image1.canvas.Brush.Color:=clLime;
image1.Canvas.Pen.Color:=clGreen;
image1.canvas.Rectangle(0,3,3,0);
//////////

Imam jednu slicicu koja predstavlja graf i na nju se trebaju iscrtavati kvadratici na
razlicitim pozicijama. Kvadratic uspijem nacrtati i to radi ali uvijek bude na istom mijestu. Kako da napravim da kad dodam item u listview da mi prog. nacrta kvadratic na razlicitim pozicijama?
Potpis
http://filsko.100webspace.net
Re: Rectangle random position 23.12.2004. u 08:38 · pre 266 meseci #2
Ako ti nije bitno gde ce se kvadratic pojaviti onda mozes da pises
Code:
X := Random(Image1.Width-3);
Y := Random(Image1.Height-3);
image1.canvas.Rectangle(X, Y , X+3, Y+3);

Ako imas neko pravilo po kojem se odredjuje mesto kvadratica moras prvo reci koje je to pravilo pa cemo moci da ti pomognemo.
Potpis
Play Store
Re: Rectangle random position 23.12.2004. u 13:38 · pre 266 meseci #4
mozda samo treba dodati pre toga Randomize, da bi se svaki put drugacije iscrtali, ovako ce uvek isto. drugo, ako ih ima vise na ekranu odjednom, trebao bi da ih sacuvas u neki niz pa da onda kad dodajes neki proveravas da se ne preklapa sa drugim...
Potpis
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme