Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

DrawGrid, ucitavanje slike

[es] :: Pascal / Delphi / Kylix :: DrawGrid, ucitavanje slike

[ Pregleda: 2603 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Cyber X

Član broj: 55075
Poruke: 30
*.ptt.yu.



Profil

icon DrawGrid, ucitavanje slike06.07.2005. u 14:27 - pre 228 meseci
Moze li neko da mi objasni kako da ucitam sliku u posebnu celiju DrawGrid-a?
Ili je mozda za to pogodniji StringGrid?

Ni u jednom ni u drugom ne znam to da izvedem :((

HELP !
 
Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.



+1 Profil

icon Re: DrawGrid, ucitavanje slike06.07.2005. u 15:12 - pre 228 meseci
Na onDrawCell upises:

Code:

procedure TMain.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
     if (Acol=0) and (arow=0) then
         with (Sender as TDrawgrid) do
              with canvas do
                  Draw(Rect.Left,Rect.top,image1.Picture.Graphic);

end;


Trebalo bi da je dobro (nisam proveravao).
 
Odgovor na temu

Cyber X

Član broj: 55075
Poruke: 30
*.ptt.yu.



Profil

icon Re: DrawGrid, ucitavanje slike06.07.2005. u 16:15 - pre 228 meseci
Radi, ali...

Meni treba da se slika pojavi npr. na pritisak dugmeta, a to sa ovim kodom ne mogu da izvedem.
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: DrawGrid, ucitavanje slike06.07.2005. u 16:22 - pre 228 meseci
Pa ti na pritisak dugmeta postavi neki flag (recimo ShowPictures := True) i ako je taj flag postavljen onda iscrtavaj slike.
 
Odgovor na temu

Cyber X

Član broj: 55075
Poruke: 30
*.ptt.yu.



Profil

icon Re: DrawGrid, ucitavanje slike06.07.2005. u 16:32 - pre 228 meseci
Hmm... Verovatno treba da bolje pojasnim.

Meni treba ovo zato sto ponovo pravim igru "snake", ali na drugi nacim.
Ranije sam je pravio iscrtavanjem niza slika, a sad hocu da uradim istu stvar uz pomoc StringGrida/DrawGrida zbog manjeg koda i lakseg pravljenja nivoa.

Dakle ista slika ce trebati da se postavlja na vise mesta, a da se brise sa drugih...
E, sad, kad bi sve slike ucitao na pocetku, to i ne bi bilo bas prakticno.
Ili se varam ?

Na pamet mi je prvo pala ideja da menjam vrednosti za ACol i ARow, ali mi nije uspelo.

Any idea ?
 
Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.



+1 Profil

icon Re: DrawGrid, ucitavanje slike06.07.2005. u 17:00 - pre 228 meseci
Pazi, kada se iscrtava grid, ta funkcija se poziva za svaku celiju zasebno znaci onoliko puta koliko imas kolona * redova. Ako bi uklonio proveru za row i acol i samo iscrtao sliku, ta slika bi bila u svim celijama.

U cells[arow, acol] drzi indekse slika koje treba da se iscrtaju i onda ih iscrtavas sa:

Draw(rect.left, rect.top, image[strtoint(cells[arow,acol])].Picture.graphic);

gde je image niz slika, ili mozes da koristis tpicturecollection.

Nadam se da si shvatio. :)



 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: DrawGrid, ucitavanje slike06.07.2005. u 17:03 - pre 228 meseci
Zasto komplikujes sa gridovima!?
Dovoljna ti je jedna matrica 50x50 (ili koliko vec hoces) u kojoj ces cuvati sta se nalazi u kom polju i posla samo na osnovu tih vrednosti iscrtas sliku na TBitmap.Canvas. To ce ti biti backbuffer i kad god je potrebno samo ga "pljunes" na formu ili neku komponentu (TImage, TPanel, TButton...) gde zelis da se vidi ta slika. Pogledaj moj primer http://www.elitesecurity.org/poruka/547708 ili http://www.elitesecurity.org/poruka/540770
 
Odgovor na temu

Cyber X

Član broj: 55075
Poruke: 30
*.ptt.yu.



Profil

icon Re: DrawGrid, ucitavanje slike11.07.2005. u 10:38 - pre 228 meseci
Ok, hvala svima, mislim da cu uraditi sta sam zamislio.

Jos nisam radio sa matricama, ali cu uspeti da izvucem nesto iz Srkijevih programa :)
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: DrawGrid, ucitavanje slike

[ Pregleda: 2603 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.