« Dunia Ini Tak Boleh Disia-siakan
Pasrahkan dimana saja Allah mendudukkan dirimu »

Delphi Skinner SXSkinComponents


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. :D
  • 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

This entry was posted on Saturday, September 22nd, 2007 and is filed under Delphi. You can follow any responses to this entry through RSS 2.0. You can leave a response, or trackback from your own site.

  1. #1 by beginner delphi at October 31st, 2007

    wah mas tutorialnya bgs banget !!! Lain kali buat lagi g lbh bgs ya mas !?

    Quote

  2. #2 by Lukman at November 3rd, 2007

    terima kasih beginner, nulis kalo lagi mut neh, blom ada ide juga, biasanya ada ide kalo lagi ada yang tanya.. he he..

    Quote

  3. #3 by Allysa Suci at November 5th, 2007

    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

    Quote

  4. #4 by Lukman at November 5th, 2007

    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.

    Quote

  5. #5 by harum at November 12th, 2007

    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

    Quote

  6. #6 by herman at November 18th, 2007

    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…!

    Quote

  7. #7 by allysa suci at November 20th, 2007

    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

    Quote

  8. #8 by Hery Liem at December 23rd, 2007

    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..

    Quote

  9. #9 by Lukman at December 24th, 2007

    mendapatkan volume label suatu drive, aku blom pernah nyoba sih, tapi coba deh baca2 yang ini sapa tau membantu.

    Quote

  10. #10 by de'wawan at January 16th, 2008

    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..

    Quote

  11. #11 by redy krisna at April 17th, 2008

    Mas bagaimana solusi bwt delphi yang ndk ada komponen sxskinnya? maksudnya apabila di running programnya ndk jalan…

    Quote

  12. #12 by Lukman at April 20th, 2008

    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.

    Quote

  13. #13 by norman at April 22nd, 2008

    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..

    Quote

  14. #14 by Lukman at April 23rd, 2008

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

    Yuk coba lagi…

    Quote

  15. #15 by norman at April 25th, 2008

    woiya bener… thanks lagi..

    Quote

  16. #16 by jerry at May 22nd, 2008

    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.

    Quote

  17. #17 by jerry at May 23rd, 2008

    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.

    Quote

  18. #18 by oche at June 6th, 2008

    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

    Quote

  19. #19 by oche at June 6th, 2008

    Mas, aku kan pakek delphi 6.
    kok gak bisa di instalkan yo kompenennya….
    tolong jawab cepet donk….
    mang pa harus delphi versi 7 ya…

    Quote

  20. #20 by siddik at June 17th, 2008

    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

    Quote

  21. #21 by jojo at October 9th, 2008

    saya install componenya kok ada pesan error “unable to find project” knp itu y..thank’s cepet y…

    Quote

  22. #22 by sIDas at November 24th, 2008

    Tips & Trik2nya Oke Punya Mas…
    Kalo ada yang laen tolong bagi2 Yo???

    Quote

  23. #23 by strato at December 10th, 2008

    bos kalo misal buat aplikasi delphi7 dengan database desktop gimana caranya supaya bisa jalan di komputer lain?

    Quote

  24. #24 by Lukman at December 10th, 2008

    coba pake install shield biasanya ada di paket delphinya.

    Quote

  25. #25 by yuda at February 8th, 2009

    Tolong dong…

    Saya sudah membuat program dengan menggunakan database bawaan delphi, kemudian saya buat installernya namun program tersebut tidak jalan di komputer lain kecuali harus diinstall bersama delphinya. Kalau Program tanpa data base langsung jalan tanpa masalah.

    Gimana caranya agar program data base yang saya buat dapat diinstal dikomputer lain tanpa harus install delphi dikomputer tersebut.

    Terimamkasih.

    Quote

  26. #26 by Lutfi at March 8th, 2009

    Thanks buat tutorial SXSkincomponentnya…..
    tapi ada sedikit masalah ni mas,kok setelah komponen SXSkinnya diletakkan diform dan source codenya juga sudah diketik,objek2 lain seperti MainMenu yang juga diletakkan di form ga tampak di formnya setelah programnya di RUN…
    Gimana ni mas????
    tolong cepet diposting ya…
    trims…

    Quote

  27. #27 by erwan at May 4th, 2009

    @ jerry
    program dengan alphaskins trial memang selalu ada pesan menyebalkan seperti itu, tapi itu bisa diatasi dengan dicrack…

    @yuda
    biar aplikasi database bisa jalan di komputer lain, komputer lain itu harus diintasl BDE, caranya gini..
    1. cari file BDEINST.CAB letaknya di folder Program Files\Common Files\Borland Shared\BDE.
    2. extract file BDEINST.CAB dengan WinZIP atau WinRAR, nanti ada file BDEINST.DLL
    3. copy file BDEINST.DLL ke Windows\System32
    4. jalankan Run ketik perintah “regsvr32.exe BDEINST.DLL”
    5. ikuti langkah selanjutnya
    semoga membantu

    Quote

  28. #28 by edo at June 26th, 2009

    mas komponennya ada tidak buat delphi 5,terus kalau bisa minta serial delphi 7 dong,
    cd delphi 7 saya nggak ada serial numbernya,serial yand di internet tetep error.tolong, kirim ke email saya.

    Quote

  29. #29 by effendi at August 7th, 2009

    kak saya pernah mencoba AlphaSkins namun gaada yang bisa di instalin, sedangkan sy menggunakan delphi7! gimanasih kak cara yang lebih mudahnya?
    terimakasih atas solusinya!

    Quote

  30. #30 by edotareksamben at August 12th, 2009

    wa haa haa haaa…. klo lupa? ya tidur lagi……

    Quote

  31. #31 by imamnet at August 16th, 2009

    master delphi yg terhormat, sy mu tanyain dikit ttg delphi blh ya?he..
    Begini, sy buat aplikasi sederhana pake delphi yg ada fungsi utk menyimpan dan membuka file. Tp sy maunya form open dialog dan save dialog nya desain sendiri, dan utk menyimpannya langsung mengarah ke device yg dituju, misal C:\latihan\..
    klo berkenan, jwbnnya dikirim ke email sy ya mas di imam_net@yahoo.co.id
    Thanks…
    Jwbn anda begitu berarti buat sy ^_^

    Quote

  32. #32 by Hendro at October 11th, 2009

    Ada manual cara pakainya nggak?
    Kalo ada tolong dong dibagi, saya bingung nih cara makainya. Mau bikin button yang ada gambarnya gimana ya? Di file demo bisa macam2, tapi cara pakainya gimana nih?

    Quote

  33. #33 by Dika at October 27th, 2009

    Salam Kenal Mas Lukman/rekan2 yang lain…!!.

    Mas mW nnYa ne…. Knapa waktu saya mau download komponennya k’ g’ bisa y….???.
    Sudah berulang kali saya masuk ke alamat ini http://www.saarixx.info/sxskincomponents/en/index.htm
    Tapi saya gak tau cara downloadnya…
    tolong kasi tau y mas cara-caranya.
    Thank’z mas Sebelumya

    Quote

  34. #34 by ervin at November 4th, 2009

    Wah ketemu orang pintar :D Delphi :)

    Quote

  35. #35 by Lukman at November 10th, 2009

    Dika, link itu memang sudah g aktif lagi, di googling aja coba, saya sudah g berkecimpung lagi di delphi, udah bnyk sibuk ke PHP dkk.

    ervin, ini cuma pengetahuan sejenak, g di terusin lagi, cos sudah ganti dengan bahasa program lain.

    Quote

  36. #36 by budiawan at March 20th, 2010

    aduhhh…bhasanya apa tuhhh…kog gak jelasss

    Quote
(will not be published)