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 »

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 »

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 »

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 »

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

Background preliv forme

Odgovor Napisal/-a mayor »

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 »

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 »

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 »

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 »

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