Delphi Skinner SXSkinComponents : Stillcetek

22
Sep

Delphi Skinner SXSkinComponents

Delphi

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

Author : Lukman

Comments

25 Responses to “Delphi Skinner SXSkinComponents”

beginner delphi on October 31st, 2007 11:31 am

wah mas tutorialnya bgs banget !!! Lain kali buat lagi g lbh bgs ya mas !?
Lukman on November 3rd, 2007 6:42 pm

terima kasih beginner, nulis kalo lagi mut neh, blom ada ide juga, biasanya ada ide kalo lagi ada yang tanya.. he he..
Allysa Suci on November 5th, 2007 1:44 pm

assalamu’alaikum
langsung aja ya mas

terima kasih buat SXSiknnya sangat membantu,tapi ada kendalanih..begitu saya buat dan aplikasinya dibuka dikomputer orang lain kok tampilannya kaga kelihatan bahkan buttonnya pun hilang sedangkan di komputer saya jalan seperti biasanya.

trus di bagian lain ada conto demo2 dan saya coba contoh yang menggunakan skin seperti form cantik yang anda buat tapi sepertinya ini menggunakan pemanggilan untuk sekinnya tolong jelasin di email saya atau diposting ya..!

seperti halnya minamp dll menggunakan skin dengan pemanggilan,nah kalau boleh tahu sofware apa yang digunakan untuk membuat skinnya.

trus gimana cara untuk dijadikan skin di delphi seperti halnya di exsample demo dua ada skin.ini. tolong jelasin ya mas..!

semoga mas mau membantu dengan hati tulus dan iklas disela-sela kesibukannya.

wassalamu’alaikum
Lukman on November 5th, 2007 5:10 pm

Wa’alaikumsalam Ya Allysa.

Untuk pertanyaan 2 dan 4, insya Allah dalam minggu2 ini tak posting, mengganti skin seperti halnya winamp. + contohnya insya allah. Meski kayaknya dicontoh bawaannya ada deh. Nanti saya coba di paparkan menurut versi saya sendiri.

Dijalankan di Komputer lain kenapa ga jalan?

Jika anda menjalankan aplikasi mentahnya (bukan file .exe hasil program) maka anda harus install SXSkin di Delphi temen anda tersebut. Langkah2nya sudah dijelaskan.

Jika file exe yang dijalankan dikomputer teman anda tersebut, maka perhatikan saat anda mendevelop, khususnya letak folder skinnya. Kemungkinan besar karena ga menemukan folder skin yang dimaksud.

Software untuk membuat skin, bisa menggunakan Adobe Photosop, Corel Draw atau aplikasi design lain yang bisa menghasilkan file jpg/png/gif

File skin.ini sebenarnya hanya file text configurasi aja, coba dibuka pake notepad.

Seperti :

[Background]
Transparent=0
Element1=E1,JPEG_IMAGE
E1.Transparent=0
E1.Path=background.jpg
E1.ResizeMode=Tile

Config diatas adalah setting untuk membuat background, ada transparence background, jenis file background, nama file background dan sebagainya.

Jika anda pengen ganti skin anda cukup merubah file background.jpg, pake Photoshop(misalnya).

atau jika ga mau susah2 khan disediakan skin2 di sini
http://www.saarixx.info/sxskincomponents/en/downloads.php

Demikian semoga membantu.

Terima kasih dah mampir di stillcetek.com

Wassalam.
harum on November 12th, 2007 11:57 am

mas..teu aya nu barunya..!
mas sewaktu menginstal delphi disatu form ada pilihan,delphi instalshiell,dll.kalau di web istilahnya link ya..? nah..cara link nya gimana bisa memanggil sofware langsung instal gotu loch..trus dimenu ada help cara memanggilnya gimana hingga bisa ngeluarin html help bahkan note pad atau html apakah harus ke data base dulu..? trus-trus kalau kita bikin datata base supaya data basenya tidak bisa di buka pake codenya gimana saya udah coba tapi ga..berhasil..data base bawaan delphi 7.0 maksih sebelumnya maap mengganggu tentang sxskinnya makasih sangat membantu..
wassalam
herman on November 18th, 2007 2:56 pm

assalamu’alaikum
bagus juga web ini buat singgah tiap online,sebenarnya saya iseng masuk kesini soalnya ditiap ruangan warnet tertulis ”ingin membangun websit..!mempercantik atau pesan domain silahkan hubungi http://stillcetek.com hingga saya penasaran,tapi kok orang lampung dipikir orang tasikmalaya soalnya ada di dua warnet tulisan seperti ini ditasikmalaya,so orang mana juga web ini bagus untuk disinggahi..terus berkarya yah…!
allysa suci on November 20th, 2007 9:10 am

assalamu’alaikum
mas kok belum di posting..? udah dua minggu loh..!
saya juga udah lima kali nengok kmari…apa mas masih sibuk dan belum punya waktu,maapyah mengganggu tapi janiji ya posting
wassalam
Change Skinner Aplikasi dengan Delphi : Stillcetek on November 20th, 2007 4:02 pm

[…] Delphi Skinner SXSkinComponents […]
Hery Liem on December 23rd, 2007 3:30 pm

Mas Lukman salam kenal, sukses selalu.
Saya ada masalah seputar Delphi, moga2 Mas Lukman bisa bantu.
Saya pake DOS Command “mountvol”, trus muncul data volume dari masing-masing drive. Misal untuk drive C –> \\?\Volume{5fd4a2ca-91c7-11dc-b250-806d6172696f}\
Nah, gimana caranya untuk mengambil data “5fd4a2ca-91c7-11dc-b250-806d6172696f” saja untuk ditampilkan di Edit / Label?
Terimakasih sebelumnya..
Lukman on December 24th, 2007 9:21 pm

mendapatkan volume label suatu drive, aku blom pernah nyoba sih, tapi coba deh baca2 yang ini sapa tau membantu.
de'wawan on January 16th, 2008 2:42 pm

mas tolong artikel untuk percantik form delphi dengan sxskin-nya di tambah ya…
soalnya aku seneng banget dengan yang unik2 dan yang cantik2 he2x..
aku mo belajar juga, ntar kalo aku dapat tips, ntar aku ikutan posting, biar bisa sama2 berbagi ilmu.
jaya indonesiaku..
redy krisna on April 17th, 2008 1:59 pm

Mas bagaimana solusi bwt delphi yang ndk ada komponen sxskinnya? maksudnya apabila di running programnya ndk jalan…
Lukman on April 20th, 2008 2:08 pm

Mas rendy,
Terima kasih sudah mampir distillcetek. SxSkin memang tdak secara default ada di delphi, setahu saya delphi 6/7 itu ga ada,

mas harus install dulu komponennya, langkah2nya sudah dijelaskan diatas.

jika memang tidak berhasil, akan sangant kompleks masalahnya, jadi errornya seperti apa mungkin bisa disampaikan disini, mungkin saya/temen2 yang lain punya solusinya.
norman on April 22nd, 2008 5:03 pm

om om.. saya dah install komponen dan gak ada masalah. TApi kenapa yah, di delphi memang sudah terlihat bagusnya, eh..ketika saya run kok tampak form yang biasa tanpa komponen??

ada apaan sih?? thanks..
Lukman on April 23rd, 2008 6:07 pm

Hai norman, sudah masukkan kodenya? seperti yang ini procedure TForm1.FormCreate(Sender: TObject); ………..

Yuk coba lagi…
norman on April 25th, 2008 9:49 am

woiya bener… thanks lagi..
jerry on May 22nd, 2008 1:26 am

pengen tanya kalau bisa kirimkan alamat web untuk dapatkan komponen skin yang bagus.aku coba skin almdev.com tp dia shareware jd tiap running ada pesan windownya muncul.
jerry on May 23rd, 2008 7:59 pm

ada yang punya alphaskins yang full (bukan trial) soalnya akujalankan selalu muncul pesan window pada saat run (this is trial version) bagaiamana cara mematikan window itu?

trus ada juga yang punya tidak almdev skin yang full juga/???kalau ada tolong kasih ke aku ..contact : 081944243331 .segera.
oche on June 6th, 2008 3:12 pm

Mas, tolong dong buat lagi tips & trik untuk mempercantik tampilan form pada delphi….
artikel anda sangat membantu dan bermanfaat banget buat saya.
makasih ya mas….
Jangan bosen ya buat artikel baru…
Smangat mas,,,,,,!!!!

thank’s
oche on June 6th, 2008 3:46 pm

Mas, aku kan pakek delphi 6.
kok gak bisa di instalkan yo kompenennya….
tolong jawab cepet donk….
mang pa harus delphi versi 7 ya…
siddik on June 17th, 2008 12:26 pm

mas, pas aku mau install, pas compile minta require GR32_D7.dcp sementara saya cari diseluruh folder file itu gak ada. gimana solusinya yaa. thx
jojo on October 9th, 2008 12:05 pm

saya install componenya kok ada pesan error “unable to find project” knp itu y..thank’s cepet y…
sIDas on November 24th, 2008 8:02 pm

Tips & Trik2nya Oke Punya Mas…
Kalo ada yang laen tolong bagi2 Yo???
strato on December 10th, 2008 7:02 am

bos kalo misal buat aplikasi delphi7 dengan database desktop gimana caranya supaya bisa jalan di komputer lain?
Lukman on December 10th, 2008 8:31 am

coba pake install shield biasanya ada di paket delphinya.

Delphi Skinner SXSkinComponents

Comments

Leave a Reply