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

Dodavanje boja unutar segmenta...

[es] :: Pascal / Delphi / Kylix :: Dodavanje boja unutar segmenta...

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

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

xcsdsgn
Ratko Kuzmić
Serbia

Član broj: 206272
Poruke: 32
91.228.253.*

Sajt: csdsgn.co.nr


Profil

icon Dodavanje boja unutar segmenta...29.06.2013. u 22:36 - pre 96 meseci
Postovani,

Imam jednu *.bmp fotografiju koja 50*50 unutar nje ima 5 segmenata bele boje, svaki segment je odvojen crnom linijom.
Kako mogu da dodam, promenim boju unutar svakog segmenta pojedinacno pomocu misa. Recimo 1 segment je bele boje, kada kliknem misem na segment 1 promeni se boja u crveno ako kliknemn jos jednom bude plava boja isto tako za ostalih 4 segmenata?

Hvala.
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2665



+73 Profil

icon Re: Dodavanje boja unutar segmenta...01.07.2013. u 03:44 - pre 96 meseci
> Imam jednu *.bmp fotografiju koja 50*50 unutar nje ima 5 segmenata bele boje, svaki segment je odvojen crnom linijom.
> Kako mogu da dodam, promenim boju unutar svakog segmenta pojedinacno pomocu misa. Recimo 1 segment je bele boje, kada kliknem misem na segment 1 promeni
> se boja u crveno ako kliknemn jos jednom bude plava boja isto tako za ostalih 4 segmenata?

Pored te osnovne bmp napravi i dodatne bmp (dimenzija jednog segmenta) za belu, crvenu i plavu. Kada se klikne unutar glavne slike, na osnovu koordinata možeš odrediti koji je to segment odnosno gde počinje i onda tu iscrtaš pomoćni obojeni segment (odgovarajući dodatni bmp).
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Dodavanje boja unutar segmenta...01.07.2013. u 10:47 - pre 96 meseci
Pogledaj Image.Canvas.FloodFill() funkciju.
 
Odgovor na temu

xcsdsgn
Ratko Kuzmić
Serbia

Član broj: 206272
Poruke: 32
91.232.106.*

Sajt: csdsgn.co.nr


Profil

icon Re: Dodavanje boja unutar segmenta...01.07.2013. u 15:50 - pre 96 meseci
Hvala reiser, to je to.

Moze li jos jedna pomoc,

Kocka 50 * 50 ima 5 segmenata, kada sam kliknuo na jedan segment i ofarbao onmouse down zelim upisati u tabelu. Kako sve to zapisati u tabelu ili stream?

Da li moze nekako da tu kocku obelezim sa 1 a svaki segment sa 1.1,1.2,1.3,1.4,1.5, druga kocka bi onda bila 2 sa segmentima 2.1,2.2,2.3,2.4,2.5?
Hvala jos jednom
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Dodavanje boja unutar segmenta...01.07.2013. u 18:04 - pre 96 meseci
Ako hoces da savucas stanje kvadrata (tj, kako su segmenti u kvadratu ofarbani), ja bih to odradio ovako:

Code:

const
  CELL_X_COUNT = 5;
  CELL_Y_COUNT = 5;
var
  X, Y       : Integer;
  colors     : array[1..CELL_X_COUNT, 1..CELL_Y_COUNT] of TColor;
  cell_width : Integer;
  cell_height: Integer;
begin
  cell_width := Image1.Picture.Bitmap.Width div CELL_X_COUNT;
  cell_height := Image1.Picture.Bitmap.Height div CELL_Y_COUNT;

  for X := 1 to CELL_X_COUNT do
    for Y := 1 to CELL_Y_COUNT do
      colors[X, Y] := Image1.Picture.Bitmap.Canvas.Pixels[Trunc((X - 1 + 0.5) * cell_width),
                                                          Trunc((Y - 1 + 0.5) * cell_height)];



CELL_X_COUNT i CELL_Y_COUNT ti predstavljaju broj segmenata u kvadratu, racuna se sirina i visina segmenta na osnovu toga, i onda se u brojacu gadja centralni piksel svakog segmenta i uzima boja koja se cuva u colors[] matrici. Nisam testirao kod, ali bi trebao da radi.

[Ovu poruku je menjao reiser dana 01.07.2013. u 19:17 GMT+1]
 
Odgovor na temu

xcsdsgn
Ratko Kuzmić
Serbia

Član broj: 206272
Poruke: 32
91.232.106.*

Sajt: csdsgn.co.nr


Profil

icon Re: Dodavanje boja unutar segmenta...02.07.2013. u 10:49 - pre 96 meseci
Probao sam radi, mada moram da budem 100% precizan da ubodem istu tacku i dobijem isti rezultat, a meni treba da ta vrednost bude fiksna.

Primer:

Imam 10 TImage komponenti, svaka TImage ima slicicu bmp 50*50, podeljena na 5 segmenata.
Potrebna mi je fiksna vrednost izabrane TImage unapred podesene , koji sam segment izabrao, boja.
Te vrednosti bi upisao u Tabelu, naravno da mogu opet da pozovem upit i dobijem vec definisane TImage.
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Dodavanje boja unutar segmenta...03.07.2013. u 18:09 - pre 96 meseci
Nista te nisam razumeo.
 
Odgovor na temu

xcsdsgn
Ratko Kuzmić
Serbia

Član broj: 206272
Poruke: 32
91.228.253.*

Sajt: csdsgn.co.nr


Profil

icon Re: Dodavanje boja unutar segmenta...03.07.2013. u 20:20 - pre 96 meseci
Nema veze u svakom slucaju cu sve izmene na TImage upisati u tabelu.

Hvala Vam puno :) :) :)
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Dodavanje boja unutar segmenta...

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

Postavi temu Odgovori

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