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 !!!