Menanggapi respon dari article sebelumnya Form Cantik Dengan Delphi dan Photoshop, jadi sekalian deh saya posting.

Langkah-langkah berikut adalah yang saya coba di Borland Delphi 7, Pastikan anda sudah download komponennya. SXSkinComponents dan Graphics32_1_8_1_SX2, anda bisa mendownloadnya di http://www.saarixx.info/sxskincomponents/en/index.htm. gratis.

1. Install Component

• Copy kedua folder itu ke C:\Program Files\Borland\Delphi7\Lib, default instalasi delphi begitu.
• Masuk ke folder Packages yang ada di SXSkinComponents ada beberapa file dengan extensi .dpk, double klik salah satu file tersebut. Saya menggunakan SXSkin_BDSxxxx_D.dpk.
• Klik Compile kemudian Klik Install. Abaikan saja jika ada warning, jika Error coba file .dpk yang lain sesuaikan dengan versi delphi anda.
• Buka folder Packages yang ada di Graphics32_1_8_1_SX2. saya menggunakan GR32_BDSxxxx.dpk, lakukan seperti saat menginstall SXSkin_BDSxxxx_D.dpk.
• Kopi semua file yang ada di SXSkinComponents ke C:\Program Files\Borland\Delphi7\Lib. Kecuali folder packages
• Kopi semua file yang ada di Graphics32_1_8_1_SX2 ke C:\Program Files\Borland\Delphi7\Lib. Kecuali folder packages .

Jika berhasil maka dipastikan akan ada tab komponen baru.

Sampai disini selesai install component baru.

2. Test Component

Buat project baru, sebaiknya anda atur folder penempatan skin dan project. Saya mengatur folder project saya seperti berikut. Jadi jika ingin menambahkan skin baru tinggal kopi paste aja deh ke SKIN (Folder).

2.1. Mengatur tata letak project

• File-file project dpr, pas, res, dfm dll
• Skin (folder)
  • Kayu ( contoh nama skin yang saya pakai buat contoh ini ).
    • Folder-folder skin object
    • File skin.ini
  • skin others

2.2. Mulai design

• Letakkan object SXSkinLibrary1 dan SXSkinForm1 pada form
• Atur protiesnya SXSkinLibrary1 sbb :
  • skinfile = cari file skin.ini (D:\Oprek\test1\skin\kayu\skin.ini)
  • skindir = D:\Oprek\test1\skin (otomatis setelah browse skinfile)
  • active = true;
• Letakkan object-object aplikasi yang anda butuhkan button, text, label combobox dan lain-lain.
• Untuk membuat background form letakkan juga object SXSkinImage1, dan atur propetiesnya sebagai berikut:
  • SkinLibrary = SXSkinLibrary1
  • Skin file, skin dir. Atur sebagai mana object SXSkinLibrary1.
  • SkinStyle = Background
  • Align = alClient (agar lebar SXSkinImage1 akan mengikuti lebar Form)

2.3 Mulai Program

unit Frm_1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, SXSkinForm, SXSkinLibrary, SXSkinControl, SXSkinButton,SXSkinImage, SXSkinSpinEdit, SXSkinEdit, SXSkinCheckBox;typeTForm1 = class(TForm)SXSkinLibrary1: TSXSkinLibrary;

SXSkinForm1: TSXSkinForm;

SXSkinImage1: TSXSkinImage;

SXSkinButton1: TSXSkinButton;

SXSkinEdit1: TSXSkinEdit;

SXSkinEdit2: TSXSkinEdit;

SXSkinButton2: TSXSkinButton;

procedure SXSkinImage1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure SXSkinImage1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure SXSkinImage1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

{Tambahkan variable berikut}

DraggingForm:Boolean;
StartDragPT:TPoint;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

SXSkinLibrary1.StoredSkin:=GetStoredSkinByIndex(0);

SXSkinLibrary1.Active:=True;

end;

procedure TForm1.SXSkinImage1MouseDown(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

if Button=mbLeft then

begin

DraggingForm:=True;

StartDragPT:=Mouse.CursorPos;

Dec(StartDragPT.X,Left);

Dec(StartDragPT.Y,Top);

end;

end;

procedure TForm1.SXSkinImage1MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer);

var PT:TPoint;

begin

if DraggingForm then

begin

PT:=Mouse.CursorPos;

SetWindowPos(Handle,0,PT.X-StartDragPT.X,PT.Y-StartDragPT.Y,0,0,SWP_NOSIZE or SWP_NOZORDER);

end;

end;

procedure TForm1.SXSkinImage1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if Button=mbLeft then

DraggingForm:=False;

end;

end.

2.4. Run