Posts: 69
Threads: 9
Joined: May 2014
Reputation:
FCoin: 4.92ƒc
08-07-2014, 01:36 AM
(This post was last modified: 08-09-2014, 08:26 AM by uzo_sick.)
Ajarin ane dong Mbah gimana cara nambahin efect color hue di project ?
uzo_sick, proud to be a member of ForNesia Family since May 2014.
Posts: 67
Threads: 33
Joined: Jun 2014
Reputation:
FCoin: 2ƒc
(08-07-2014, 01:36 AM)uzo_sick Wrote: Ajarin ane dong Mbah gimana cara nambahin efect color hue di project ?
Pake ini mbah
Code:
procedure TForm3.sTrackBar1Change(Sender: TObject);
begin
if (sSkinManager1.HueOffset <> sTrackBar1.Position) then begin
sSkinManager1.BeginUpdate;
sSkinManager1.HueOffset := sTrackBar1.Position;
sSkinManager1.EndUpdate(True, False);
end;
end;
procedure TForm3.sTrackBar2Change(Sender: TObject);
begin
if (sSkinManager1.Saturation <> sTrackBar2.Position)
sSkinManager1.BeginUpdate;
sSkinManager1.Saturation := sTrackBar2.Position;
sSkinManager1.EndUpdate(True, False);
end;
end;
wiebie2012, proud to be a member of ForNesia Family since Jun 2014.
Posts: 69
Threads: 9
Joined: May 2014
Reputation:
FCoin: 4.92ƒc
(08-09-2014, 01:56 PM)wiebie2012 Wrote: (08-07-2014, 01:36 AM)uzo_sick Wrote: Ajarin ane dong Mbah gimana cara nambahin efect color hue di project ?
Pake ini mbah
Code:
procedure TForm3.sTrackBar1Change(Sender: TObject);
begin
if (sSkinManager1.HueOffset <> sTrackBar1.Position) then begin
sSkinManager1.BeginUpdate;
sSkinManager1.HueOffset := sTrackBar1.Position;
sSkinManager1.EndUpdate(True, False);
end;
end;
procedure TForm3.sTrackBar2Change(Sender: TObject);
begin
if (sSkinManager1.Saturation <> sTrackBar2.Position)
sSkinManager1.BeginUpdate;
sSkinManager1.Saturation := sTrackBar2.Position;
sSkinManager1.EndUpdate(True, False);
end;
end;
makasih mbah @wiebie2012 atas pencerahan'a.... wah:
uzo_sick, proud to be a member of ForNesia Family since May 2014.
![[Image: Untitled.png]](https://images.weserv.nl/?url=lh5.googleusercontent.com%2F-Fp_UjLbUqFE%2FU-VpeIKv0lI%2FAAAAAAAAABc%2FgrfawtbljcQ%2Fw712-h445-no%2FUntitled.png)
