Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 11 odgovora
  • 4.883 pregleda

Najnovija ↓

Kako labela custom boje 21.04.2005. u 22:08 · pre 262 meseca #1
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
Re: Kako labela custom boje 21.04.2005. u 22:54 · pre 262 meseca #2
Boja pozadine = property Color
Boja fonta = property Font.Color

pa ih postavi kako zelis
Potpis
Play Store
Re: Kako labela custom boje 22.04.2005. u 03:29 · pre 262 meseca #3
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
Potpis
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
Re: Kako labela custom boje 22.04.2005. u 10:36 · pre 262 meseca #4
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
Re: Kako labela custom boje 22.04.2005. u 17:28 · pre 262 meseca #5
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 :)
Re: Kako labela custom boje 22.04.2005. u 23:56 · pre 262 meseca #6
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
Re: Kako labela custom boje 23.04.2005. u 02:37 · pre 262 meseca #7
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 :)
Potpis
Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com
Re: Kako labela custom boje 23.04.2005. u 12:52 · pre 262 meseca #8
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 :)
Re: Kako labela custom boje 23.04.2005. u 13:30 · pre 262 meseca #9
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 :)
Re: Kako labela custom boje 23.04.2005. u 14:51 · pre 262 meseca #11
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.
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme