[ mrkvojed @ 21.04.2005. 21:08 ] @
To je to . Dakle. kako da mi labela ima custom boju pozadine i fonta.
Imam JEDI VCL ali ni tu nisam nasao.
Verovatno mi je promaklo.

Pozz svima

PS: Koja je razlika ako crtam .bmp ili .png . Sta je brze , manje ...
png moze da bude providno , a bmp ne - ili se varam
[ Srki_82 @ 21.04.2005. 21:54 ] @
Boja pozadine = property Color
Boja fonta = property Font.Color

pa ih postavi kako zelis
[ bancika @ 22.04.2005. 02:29 ] @
moze i bmp da bude providna, najlakse je da je stavis u TImage, postavis svojstvo transparent na true i onda se svi pixeli koji su obojeni kao onaj u donjem desnom uglo naprave providnim
[ Vdjuric @ 22.04.2005. 09:36 ] @
Citat:
bancika: moze i bmp da bude providna, najlakse je da je stavis u TImage, postavis svojstvo transparent na true i onda se svi pixeli koji su obojeni kao onaj u donjem desnom uglo naprave providnim


Moram i ja da se umesam... kako iscrtati BMP, bez timage komponente (koji, naravno treba da bude transparentan - tj. jedna boja u njemu treba da bude transparentna) na canvas npr. paintboxa ? Petljao sam se svojevremeno sa ovim i nikako mi nije poslo za rukom... :(
poz
[ mrkvojed @ 22.04.2005. 16:28 ] @
Citat:
da je stavis u TImage, postavis svojstvo transparent na true i onda se svi pixeli koji su obojeni kao onaj u donjem desnom uglo naprave providnim

Ovo sam probao - ali nece bre !?!
1) Na formi Timage
2) loadFromFile('... .bmp')
3) image1.Transparent := True ;
i nece.

Sta sam nocas propustio
[ mrkvojed @ 22.04.2005. 22:56 ] @
Kod mene se radi o donjem LEVOM uglu. Verovatno mi je
levoruk Radovan (ime racunara) Radi lepo.

Jos kad stavis
Code:
Form1.Brush.Style := bsClear ;

vidi se desktop !!! Lepo, fino i krasno ...

Hvala i pozdrav svima
[ bancika @ 23.04.2005. 01:37 ] @
izvini, moja greska, i treba levi ugao... svojevremeno smo ja i drug pisali po rukama koja je leva a koja desna da ne dodje do zabune :lol:

a sto se tice transparentnog iscrtavanja, znam dva nacina:
1) da source canvasu posaljes poruku (ne secam se koju )
2) da koristis pomocni TImageList, proces bi iso ovako
-postavis mu property koji kaze kako se crta na nesto transparent, ne secam se tacno, videces vec
-postavis mu dimenzije na dimenzije slike
-dodas slicicu sa maskiranom bojom koju hoces da proglasis providnom, ima par overloadovanih metoda, mozes i da napravis bitmap masku (crno providno, ostalo nije, ili obrnuto)
-i onda samo iscrtas.
to sigurno radi, probao sam pre
[ mrkvojed @ 23.04.2005. 11:52 ] @
Ne osvezava mi bitmap ?

Imam Image1 preko cele forme.
U nju stavim "pozadina.bmp" sa crnim coskovima (kao da bude zaobljena).
U FormCreate kazem :
Form1.Brush.Style := bsClear ;
Image1.Picture.LoadFromFile(ExtractFilepath(application.ExeName)+'Bitmaps\pozadina.bmp');
Image1.Transparent := True ;
I to lepo radi kada se Aplikacija pokrene. ALI : cim neki prozor recimo EXPLORER
otvorim,pa minimizujem - U TIM "PROVIDNIM" REGIONIMA MI OSTANU KOMADI EXPLORERA.

'bem li mu familiju !

Probao sam repaintove i refreshove na Image1 i na Form1 al' nece pa nece ...

Pomagajte... ako moze kodom
[ IgLo @ 23.04.2005. 12:30 ] @
A da probas sa ovim:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Color := clFuchsia;
  Form1.TransparentColorValue := clFuchsia;
  Form1.TransparentColor := True;
end;  


Koliko se secam ovo resenje (kao i tvoje) ne radi pod Win98
[ Srki_82 @ 23.04.2005. 12:44 ] @
Pogledaj ovo http://dhost.info/avram/srpskisoftware/opis.php?id=5
Tako sam pravio prozore nepravilnog oblika koji rade na Win9x, WinNT, Win2000... Koristi se finkcije SetWindowReg
[ mrkvojed @ 23.04.2005. 13:51 ] @
Evo resenjnjnja !
Koji sam ja babun - bilo mi je pred nosom

Dakle za eventualne buduce citaoce :

1) Jv Forms -> JvTransparentForm
2) Active -> True , AutoSize -> True
3) za Mask izaberes .bmp (po principu levog donjeg ugla)
4) Ne mora Form1.Brush.Style := bsClear ;
5) Napravish Image1 i upucas .bmp

Toliko. Hvala svima. Pozdrav.
[ Nemanja Avramović @ 23.04.2005. 19:09 ] @
pa to...

uz delphi 6 dobijas dxforumlibrary koji moze da `iskroji` prozor po bitmapi i mnogo je lepo ;)