Cześć chciałbym się dowiedzieć jak zrobić np. formy cz panelu kolor np chromowy, wiem ze to jest zmieszanie koloru białego z szarym, nawet mam komponenty do tego tylko w *.DCU a nie mam źródła zobaczyć jak to wygląda. A poza tym chciałbym się nauczyć, gdyż chce różne komponenty doprowadzić do takiego stylu.( Jakoś pÓźniej zastosuje do zrobienia SKIN'ów do moich programów).
Dokładnie mi chodzi o pomieszanie kolorów np. na z góry do dołu biały w szary
Dziękuje za pomoc i pozdrawiam [cya]
Tym sposobem możesz zrobić dużżżżo kolorów-w skali RGB( nie wiem czy ta się przyda ale na wszelki wypadek):
var
r:byte;
g:byte;
b:byte;
begin
Form1.color:=RGB(r,g,b)
end;
MASZ PROGRAM W KODACH ŹRÓDŁOWYCH MOJEJ ROBOTY - FUNKCJA RGB SCIAGAJ I TO JUZ !!!!!!!!! :):)
NAJLEPIEJ JAKBYS SE DOPASOWAŁ SAM KOLOR ZA POMOCA SUWAKÓW-TRACKBAR!!!
USTAW NA FORMIE:
TRACKBAR_r - red
TRACKBAR_g - green
TRACKBAR_b - blue
PANEL1 - zebys widział efekt - kolor jaki chcesz uzuskac
i 3 labele które będą ci pokazywac wartosc r,g,b
label1.name:='color_r';
label1.name:='color_g';
label1.name:='color_b';
var
r,g,b:byte;
i nacisnij na TRACKBAR_r i pisz:
r:=TrackBar_r.Position;
Panel1.Color:=rgb(r,g,b);
color_r.caption:=IntToStr(Trackbar_r.Position); \ wartosc red wyswietli
\ sie na label - color_r
potem klikaj na TRACKBAR_g i wal procedure:
g:=TrackBar_g.Position;
Panel1.Color:=rgb(r,g,b);
color_g.caption:=IntToStr(Trackbar_g.Position);
i TRACKBAR_b:
b:=TrackBar_b.Position;
Panel1.Color:=rgb(r,g,b);
color_b.caption:=IntToStr(Trackbar_b.Position);
JAK BY COS NIE WYSZŁO WAL POD E-MAILA LUB NAPISZ NA GG MASZ NR NA DOLE ALBO SCIAGNIJ W DELPHI KODY ŹRÓDŁOWE - PROGRAM FUNKCJA RGB !!! [browar] [browar] [browar]
POZRDOFKA !!!