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

Pernah melakukan query untuk mengakses table paradok?. Pada suatu kasus saya menginginkan pemfilteran data untuk dapat menyaring data bulan tertentu pada tahun tertentu. Saya mempunyai kolom tanggal_transaksi dengan type data date.

Sebenarnya saya biasa menggunakan Mysql, dan MSSQL. di mysql kita bisa menggunakan sintax

“SELECT * FROM table WHERE MONTH(tanggal_transaksi)=8 AND YEAR(tanggal_transaksi)=2007“.

Ternyata untuk paradok aga sedikit berbeda.

Berikut contoh di paradok untuk keperluan yang sama dengan query mysql diatas.

“SELECT * FROM table
WHERE
EXTRACT(MONTH FROM tanggal_transaksi)=8
AND
EXTRACT(YEAR FROM tanggal_transaksi)=2007″;

Dalam membuat aplikasi, bukan hanya kehandalan aplikasi dalam mengolah data saja yang perlukan, penampilan juga perlu di perhatikan. Dengan tampilan yang cantik maka dimungkinkan user akan lebih tertarik dengan program yang kita buat. “Pandangan pertama begitu menggoda, selanjutnya?? ………… he hee”.

Untuk membuatnya dibutuhkan sedikit ketrampilan dalam memainkan program grafis. Saya menggunakan adobe photoshop CS2 untuk mengolah image, dan Delphi 7.0 untuk membuat aplikasinya.

Berikut langkah-langkahnya:

Langkah I : Adobe Photoshop

1. buat tampilan form sesuai selera.
2. set warna background #FF0000, dan hindari warna #FF0000 pada form facenya, berikut contoh design yang saya buat :



3. Save as simpan ke tipe file .bmp

Langkah II : Design di Delphi.

1. Buat Form baru
2. setting propertiesnya sbb.
   • AlphaBland = False
   • AlphaBlandValue = 0 (semakin kecil nilainya maka akan semakin transparan, anda bisa mengisi nilainya antara 1 – 100)
   • BorderStyle = bsNone
   • Color = clRed
   • Name = formMenu
   • Position = poDesktopCenter
   • TransparentColor = True
   • TransparentColorValue = clRed (harus sama dengan Color)
   • WindowState = wsNormal
3. tambahkan object Image dari tab Additional
4. Atur propertiesnya sbb :
   • Picture = Ambil image .bmp yang sudah dibuat.
   • Transparent = True
5. tambahkan tombol close

Pada event onclik ketik program berikut :

procedure TformMenu.BitBtn1Click(Sender:TObject)

Begin

Application.Terminate;

End;

6. simpan project anda.
7. run program.

Langkah III : Program

Agar title bar bisa digeser, layaknya form:

1. Tambahkan Kode berikut di bawah Type :

procedure WMNCHitTest(var msg : TWMNCHitTest); message WM_NCHitTest;

2. Tambahkan Kode berikut:

procedure TformMenu.WMNCHitTest(var msg : TWMNCHitTest);

begin

inherited;

if (msg.Result = htClient) then

if Msg.YPos < Top + 40 then

msg.Result := htCaption;

end;

3. run program.

Mudah bukan, cara mudah dengan hasil yang cantik. selamat mencoba!! download sample