Current time: 12-19-2018, 07:30 PM Stay in touch via Twitter Facebook RSS Feed
Ada Baiknya anda baca Peraturan Forum ForNesia Disini Dan Disitu Sebelum Terlambat!
System Registration Forums Mulai Kedepan Sewaktu waktu akan Di Tutup.
Silahkan Dibaca Mengenai Auto Pruning User . Agar tidak ada pertanyaan lagi tentang kehilangan akses forum.



cara save skin dengan trackbar

09-10-2014 08:52 PM cara save skin dengan trackbar
#1


kasara Away
HunteR
HunteR
*

Posts: 44
Joined: Aug 2014

Reputation:

FCoin: 2.36ƒc
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
http://i.imgur.com/VxkXKNL.gif

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:
08-04-2015 03:49 PM RE: cara save skin dengan trackbar
#2


Hanif123 Away
HunteR
HunteR
*

Posts: 38
Joined: Aug 2015

Reputation:

FCoin: 2.47ƒc
tinggal tulis di position trackbar om Smile

Hanif123, proud to be a member of ForNesia Family since Aug 2015.




Possibly Related Threads...
Thread: Author Last Post
  [Ask] Membuat Save Config yg tersimpan di exe???? dielzsign35 01-04-2016 08:31 PM
Last Post: Arpra99
  [Ask] Cara mempercantik form dengan anime/3D pict nunodeglo 08-04-2015 03:18 PM
Last Post: Hanif123

Search thread:


[-]
Advertisement