Background preliv forme

Vse o grafiki, canvasu, directdraw, itd.
Odgovori
mayor
Prispevkov: 292
Pridružen: 22.04.2008 19:55:10

Background preliv forme

Odgovor Napisal/-a mayor » 13.05.2008 20:04:04

Pozdravljeni ;)

Kako bi v Delphiju naredil preliv forme iz rumene barve v belo recimo?

Lp

aoven
Prispevkov: 2338
Pridružen: 27.06.2001 23:56:07

Background preliv forme

Odgovor Napisal/-a aoven » 13.05.2008 20:41:08

Tako, da se odpraviš na Torry in tam poiščeš eno izmed mnogih freeware panel komponent, ki to omogočajo.

Aleksander

mwore
Prispevkov: 97
Pridružen: 01.07.2001 23:25:08

Background preliv forme

Odgovor Napisal/-a mwore » 13.05.2008 20:55:53

Tudi na roke se da precej enostavno, GradientFill.

Lp, :)

fora
Prispevkov: 220
Pridružen: 06.08.2003 19:31:22

Background preliv forme

Odgovor Napisal/-a fora » 14.05.2008 08:18:17


mayor
Prispevkov: 292
Pridružen: 22.04.2008 19:55:10

Background preliv forme

Odgovor Napisal/-a mayor » 14.05.2008 15:12:49

fora ti me vedno rešiš!

med brskanjem na torryu sem na tem linku:
http://www.torry.net/quicksearchd.php?S ... &Title=Yes

pod
Components > Panels > Enhanced Panels

sem zasledil da lahko daš tudi lepe buttne, tudi če piše da je za d2005 noče buildat tam, pa se že pol dneva matram.
ali kdo že uporablja te komponente?

mayor
Prispevkov: 292
Pridružen: 22.04.2008 19:55:10

Background preliv forme

Odgovor Napisal/-a mayor » 14.05.2008 16:00:31

najlažje je uporabiti tole:
var Row, Ht: Word ;
begin
Ht := (ClientHeight + 255) div 256 ;
for Row := 0 to 255 do
with Canvas do begin
Brush.Color := RGB(0, 0, Row) ;
FillRect(Rect(0, Row * Ht,
ClientWidth, (Row + 1) * Ht)) ;
end;

Lp

mayor
Prispevkov: 292
Pridružen: 22.04.2008 19:55:10

Background preliv forme

Odgovor Napisal/-a mayor » 14.05.2008 16:16:52

a kdo ve kako bi namesto te vrstice:
Brush.Color :=RGB(0, 0, Row) ;


kako bi namesto RGB(0,0, Row) napisal #FCED92 za ozadje?

Lp

Uporabniški avatar
krho
Prispevkov: 709
Pridružen: 11.01.2003 23:02:56

Background preliv forme

Odgovor Napisal/-a krho » 14.05.2008 16:30:55

Brush.Color :=RGB($92, $ED, $FC) ;
Uredite zbirko filmov, tv serij in iger - http://xcollect.sf.net
Zamenjate leglo virusov s preprostim in naprednim odjemalcem elektronske pošte. - http://www.simail.si

mayor
Prispevkov: 292
Pridružen: 22.04.2008 19:55:10

Background preliv forme

Odgovor Napisal/-a mayor » 14.05.2008 18:16:49

aha hvala.
to mi je vsekakor jasno.
želim pa še dodati preliv v belo.

Tale koda: Brush.Color :=RGB(0, 0, Row) ; dela preliv vendar ne upošteva #FCED92 tega ozadja.

Koda: Izberi vse

 var Row, Ht: Word ;
begin
Ht := (ClientHeight + 255) div 256 ;
for Row := 0 to 255 do
with Canvas do begin
Brush.Color := RGB(0, 0, Row) ;
FillRect(Rect(0, Row * Ht,
ClientWidth, (Row + 1) * Ht)) ;
end; 
Tista koda, ki si mi jo poslal dela pa le #FCED92 (svetlo rumeno ozadje)

Lp

Odgovori