[kasara]

halo agan2 semua hehehe udah muter2 ga nemu kalo save skin kan udah ada yang bahas ,,nah gmna kalo save skin dengan trakbar jadi save trackbar nya gt,,udah cba tapi ga bisa bisa
ini ss nya
[Only registered and activated users can see links Click here to register]

nah skin udh ke save dan load ok,,tpi trakbar ga ke load atau ke save,,nah gmna sih script nya spaya ngesave dan ke load

Spoiler:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, sTrackBar, sSkinProvider, sSkinManager, Menus,
StdCtrls, sButton, Inifiles, Shellapi;

type
TForm1 = class(TForm)
sButton1: TsButton;
MainMenu1: TMainMenu;
s1: TMenuItem;
sSkinManager1: TsSkinManager;
sSkinProvider1: TsSkinProvider;
sTrackBar1: TsTrackBar;
BlackBox: TMenuItem;
AlterMetro: TMenuItem;
Cappuccino: TMenuItem;
Fm: TMenuItem;
procedure BlackBoxClick(Sender: TObject);
procedure AlterMetroClick(Sender: TObject);
procedure CappuccinoClick(Sender: TObject);
procedure FmClick(Sender: TObject);
procedure sTrackBar1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

var
MyIni: Tinifile;

implementation

{$R *.dfm}

procedure TForm1.BlackBoxClick(Sender: TObject);
begin
sSkinManager1.SkinName:=BlackBox.Name
end;

procedure TForm1.AlterMetroClick(Sender: TObject);
begin
sSkinManager1.SkinName:=AlterMetro.Name
end;

procedure TForm1.CappuccinoClick(Sender: TObject);
begin
sSkinManager1.SkinName:=Cappuccino.Name
end;

procedure TForm1.FmClick(Sender: TObject);
begin
sSkinManager1.SkinName:=Fm.Name
end;

procedure TForm1.sTrackBar1Change(Sender: TObject);
begin
case sTrackBar1.Position of
1: form1.sSkinManager1.HueOffset := 1000;
2: form1.sSkinManager1.HueOffset := 2000;
3: form1.sSkinManager1.HueOffset := 3000;
4: form1.sSkinManager1.HueOffset := 4000;
5: form1.sSkinManager1.HueOffset := 5000;
6: form1.sSkinManager1.HueOffset := 6000;
7: form1.sSkinManager1.HueOffset := 7000;
8: form1.sSkinManager1.HueOffset := 8000;
9: form1.sSkinManager1.HueOffset := 9000;
10: form1.sSkinManager1.HueOffset := 10000;
end;
end;



procedure TForm1.FormCreate(Sender: TObject);
var NamaSkin : string;
begin
myini := tinifile.Create(Getcurrentdir+'\Load.dir');
NamaSkin := myini.ReadString('SETTING', 'Skin', ' ');
sSkinManager1.SkinName:= NamaSkin;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
MyIni := TIniFile.Create(GetCurrentDir+'\Load.dir');
Myini.WriteString('SETTING', 'Skin', sSkinManager1.SkinName);
end;

end.

ok makasih ya mohon bimbingan nya skli lg maaf buka trit baru abis blm ada yang bahs,,,makasih sebelumnya ya om jempol:

[Hanif123]

tinggal tulis di position trackbar om