[ freespace @ 23.12.2004. 07:12 ] @
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?
[ Srki_82 @ 23.12.2004. 07:38 ] @
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.
[ freespace @ 23.12.2004. 08:25 ] @
Nema neko pravilo nego mi je bas ovo i trebalo. Hvala na pomoći!
[ bancika @ 23.12.2004. 12:38 ] @
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...