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

TImage i transparent

[es] :: Pascal / Delphi / Kylix :: TImage i transparent

[ Pregleda: 1729 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

franjo_tahi
Franjo Tahi
Zagreb

Član broj: 34712
Poruke: 399
*.adsl.net.t-com.hr.



+1 Profil

icon TImage i transparent30.03.2011. u 11:40 - pre 159 meseci
Na fromi imam više timage objekata. Na svaki crtam iz program linije.
1. timage je podloga, a ostali su položeni preko njega

Kako napraviti da se podloga vidi kroz slike koje su preko nje?
Ako postavim Image1.Transparent := true tada se ne vide linije koje sam nacrtao
Ako ostavim Transparent := false tada se ne vidi podloga ispod slike koja je preko.
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: TImage i transparent30.03.2011. u 16:12 - pre 159 meseci
Najjednostavnije je da sliku staviš na posebnu formu kojoj ćeš podesiti AlphaBlendValue.
 
Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 810
*.dynamic.sbb.rs.



+62 Profil

icon Re: TImage i transparent30.03.2011. u 19:55 - pre 159 meseci
Zar nema u TImage i property TransparentColor...?

Pozz

Rajko
 
Odgovor na temu

franjo_tahi
Franjo Tahi
Zagreb

Član broj: 34712
Poruke: 399
*.adsl.net.t-com.hr.



+1 Profil

icon Re: TImage i transparent31.03.2011. u 12:08 - pre 159 meseci
Ne, TImage nema TransparentColor...

Ne odgovara mi da postavim sliku koja mora biti transparentna na drugu formu jer takvih slika može biti 50-tak, ovisi o parametrima.

- Podloga je jedna slika, to bi se moglo iscrtati i direktno na formu.
- preko te podloge se postavljaju ostale slike, a može doći i do preklapanja ovih slika.

Slika se ne učitava, samo se crta po Canvas-u. Možda neka druga kontrola? Ne odgovara mi crtanje direktno na formi jer moram svaku sliku za sebe pomicati, ako radim direkt na formi, moram refrešati cijelu formu....

Ideje?
 
Odgovor na temu

((BugA))
Igor Djordjevic
Bor, Srbija

Član broj: 29241
Poruke: 196
*.dynamic.isp.telekom.rs.

ICQ: 66516695
Sajt: www.MalamutKlub.com


+17 Profil

icon Re: TImage i transparent31.03.2011. u 16:54 - pre 159 meseci
Mozda TPaintBox? Tu bi trebalo da postignes providnost bez problema, samo ovde sam moras voditi racuna o osvezavanju (refresh) kontrole.
 
Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 810
*.dynamic.sbb.rs.



+62 Profil

icon Re: TImage i transparent31.03.2011. u 20:53 - pre 159 meseci
Evo resenja.

1) Rekao si da iskljucivo radis crtanje, koriscenjem Image.Canvas-a. Odlicno, jer to znaci da je Image.Picture.Graphic tipa TBitmap, odnosno, dozvoljeno je prici mu i ovako: Image.Picture.Bitmap. (Da pojasnim: ako je slicajno Picture.Graphic nekog drugog tipa, jer smo recimo ucitali Icon, pozivanje Picture.Bitmap smesta diskarduje postojecu sliku/Graphic, i kreira novi Picture.Graphic tipa TBitmap. U nasem slucaju, ne desava se nista, odnosno ostaje postojeca slika/bitmapa)
2) Sad je lako, TBitmap ima property Transparent, a takodje ima i TransparentColor; to je to.
3) Probao sam, ovo radi ;) .

Pozz

Rajko
 
Odgovor na temu

franjo_tahi
Franjo Tahi
Zagreb

Član broj: 34712
Poruke: 399
*.adsl.net.t-com.hr.



+1 Profil

icon Re: TImage i transparent01.04.2011. u 11:12 - pre 159 meseci
Hvala na pomoći. Sada radi onako kako mi treba.
Malo se trebalo igradi s postavljanjem boja budući da ne učitavam sliku, a sami tImage kreiram u prog.

Image koji mora biti transparenti mora imata FillRect.
Code:

   ...
   i2.Picture.Bitmap.SetSize(100,100);
   i2.Picture.Bitmap.Canvas.Brush.Color := clBtnFace;
   i2.Picture.Bitmap.Canvas.Brush.Style := bsSolid;
   tr.Left := 0;
   tr.Top := 0;
   tr.Bottom := 100;
   tr.Right := 100;
   i2.Picture.Bitmap.Canvas.FillRect(tr);
   i2.Picture.Bitmap.Canvas.Brush.Color := clBlack;
   i2.Picture.Bitmap.Transparent := true;
   i2.Picture.Bitmap.TransparentColor := clBtnFace;
   i2.Picture.Bitmap.Canvas.MoveTo(100,0);
   i2.Picture.Bitmap.Canvas.LineTo(0,100);
   ...


Ovo je samo kod za testiranje (ne odiše ljepotom), sve skupa ide u klasu.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: TImage i transparent

[ Pregleda: 1729 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

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