Membuat Rounded Form

Secara default form yang Anda buat akan berbentuk segi empat. Dengan menambahkan beberapa baris kode berikut Anda dapat membuat form berbentuk elips atau lingkaran.

procedure TForm1.FormCreate(Sender: TObject); var region : HRgn; begin region := CreateEllipticRgn(1,1,200,200); SetWindowRgn(handle, region, true); end;  

Jika Anda membuka referensi Windows API tentang function CreateEllipticRgn maka akan didapat keterangan seperti di bawah ini:

HRGN CreateEllipticRgn(

int nLeftRect, // x-coordinate of the upper-left corner of the bounding rectangle
int nTopRect, // y-coordinate of the upper-left corner of the bounding rectangle
int nRightRect, // x-coordinate of the lower-right corner of the bounding rectangle
int nBottomRect // y-coordinate of the lower-right corner of the bounding rectangle
);

Mengganti Icon Folder

Bagi Anda yang menyukai keindahan, default icon folder pada Windows yang berwarna kuning tentunya sangat “menyebalkan”. Padahal dengan trik sederhana Anda dapat mengganti icon tersebut dengan icon lain yang Anda sukai. Caranya cukup mudah saja, Anda tinggal membuat file desktop.ini pada folder yang akan diganti iconnya. Pada file desktop.ini tersebut tambahkan baris berikut:

[.ShellClassInfo]
IconFile=file_icon.ico
IconIndex=0
InfoTip=keterangan

Selanjutnya ubah properties folder tersebut menjadi System. Dengan Delphi, Anda dapat menuliskannya sebagai berikut:

procedure TForm1.Button1Click(Sender: TObject); begin with TINIFile.Create('C:\Data\desktop.ini') do try WriteString('.ShellClassInfo', 'IconFile', 'C:\Data\Icon\Apple Logo.ico'); WriteString('.ShellClassInfo', 'IconIndex', '0'); WriteString('.ShellClassInfo', 'InfoTip', 'Tulis deskripsi di sini'); UpdateFile; finally Free; end; SetFileAttributes(PChar('C:\Data'), FILE_ATTRIBUTE_SYSTEM); end;

Contoh di atas akan mengganti icon pada folder C:\Data. Adapun icon yang akan digunakan adalah C:\Data\Icon\Apple Logo.ico. Terakhir, jangan lupa untuk menambahkan uses IniFiles; di bawah implementation.

Membuat Alias Baru

Salah satu hal yang sering terjadi saat memindah aplikasi yang Anda buat dari satu komputer ke komputer lain adalah masalah nama alias. Seperti yang telah Anda ketahui, nama alias digunakan untuk menunjukkan letak database yang digunakan. Jika Anda memindah aplikasi ke komputer lain tanpa membuat sebuah alias baru maka akan muncul pesan “…….unknown database……..”.
Untuk mencegah hal tersebut Anda dapat menambahkan sedikit kode untuk membuat alias secara langsung (on the fly). Jadi saat aplikasi dijalankan, akan dicek dulu apakah nama alias yang digunakan sudah ada atau belum. Jika belum secara otomatis program akan membuatnya. Untuk membuat alias Anda dapat menggunakan prosedur AddStandardAlias yang dideklarasikan sebagai berikut:

AddStandardAlias(const Name, Path, DefaultDriver: String); <span id="more-213"></span> Parameter pertama (Name) adalah nama alias yang akan dibuat. Parameter kedua (Path) digunakan untuk menunjukkan letak database. Sedangkan DefaultDriver digunakan untuk menentukan jenis tabel. DefaultDriver harus berisi salah satu dari "Paradox," "DBASE," atau "ASCIIDRV". Di bawah ini merupakan contoh cara membuat alias dengan Path menunjuk pada folder db di bawah folder dimana file exe terletak. <pre lang="Delphi">procedure TForm1.FormCreate(Sender: TObject); var AliasBaru, Path : string; begin Path := ExtractFilePath (Application.ExeName) + 'db'; AliasBaru := 'DBInventory'; // nama alias yang akan dibuat // untuk mengecek apakah nama alias sudah ada atau belum if not Session.IsAlias(AliasBaru) then begin //jika belum ada maka tambahkan nama alias Session.AddStandardAlias (AliasBaru, Path, 'PARADOX'); end else begin // jika sudah ada, hapus dulu Session.DeleteAlias(AliasBaru); Session.AddStandardAlias (AliasBaru, Path, 'PARADOX'); end; // menyimpan nama alias pada file konfigurasi Session.SaveConfigFile; end;