Inilah komponen tombol yang dari dulu saya cari-cari… property dari tiga komponen tombol standar Delphi (TButton, TBitBtn, dan TSpeedButton) serasa digabung menjadi satu dalam komponen TPDJButton ini, bahkan beberapa property menarik yang tidak ada di ketiga komponen tersebut juga ‘dilekatkan’ di dalamnya..
Langsung download saja source code TPDJButton Component dan segera install. Jangan lupa untuk mengganti nama pallete component pada procedure Register atau biarkan sesuai defaultnya, IQsoft.. Download juga demonya TPDJButton Demo.
procedure Register;
begin
RegisterComponents('IQsoft', [TPDJButton]);
{$IFDEF PDJ_D5Up}
{$ELSE}
RegisterPropertyEditor(TypeInfo(TAboutBoxObject),nil,'', TAboutBoxEditor);
{$ENDIF}
end;
Berikut beberapa property-nya yang perlu dibahas:
1. ButtonStyle, merupakan model tombol yang ditampilkan. Ada delapan pilihan style tombol yang tersedia.
2. Color, untuk mengubah warna tombol.
3. ColorMarginLeft, ColorMarginRight. Gabungan kedua property ini akan membentuk warna border dari tombol. Jika ada perubahan nilai pada keduanya maka secara otomatis nilai ColorMarginStyle menjadi cmCustom. Agar nilai ColorMarginLeft dan ColorMarginRight kembali seperti semula, ubah nilai ColorMarginStyle dengan cmDefault.
4. CursorHandCustom, untuk menampilkan cursor mouse dalam bentuk ‘tangan’ jika bernilai True. Jika cursor mouse ingin ditampilkan dalam bentuk ‘panah-penunjuk’, beri nilai False dan pastikan nilai property Cursor adalah crDefault.
5. Glyph, GlyphHot, Layout. Ketiganya berfungsi untuk menambahkan gambar pada tombol, tipe file gambar harus dalam BMP. Gambar pada property Glyph ditampilkan sebagai default-nya, jika mouse berada di atas tombol maka gambar pada property GlyphHot akan ditampilkan. Sedang Layout untuk medesain letak gambar terhadap caption tombol, kiri-kanan-atas-bawah.
6. HotTrack, HotTrackColor. Untuk mengubah warna huruf caption tombol jika mouse berada di atas tombol.
7. HintSecondLine, untuk menambahkan hint kedua (di bawah hint yang pertama) pada saat mouse berada di atas tombol. Jangan lupa untuk memberi nilai True pada property ShowHint.
8. PopupMenuMark, PopupManuMarkGap, PositionPopup. Property PopupMenu ada di hampir semua komponen delphi tetapi menu pada PopupMenu akan muncul saat klik kanan mouse. Dengan ketiga property ini, menu popup akan ditampilkan pada saat tombol ditekan. Property PositionPopup untuk mengatur di sisi mana menu popup akan ditampilkan, bawah-kiri-kanan, sedang PopupMenuMark jika diberi nilai True akan memunculkan tanda di sebelah gambar Glyph tombol. Jarak gambar dengan tanda tersebut sesuai dengan nilai pada property PopupMenuMarkgap.
9. RepeatAction, RepeatInterval, RepeatStartInterval. Berguna untuk melanjutkan perintah, bukan mengulanginya dari awal, jika nilai RepeatAction adalah True.
10. ShowFocused, untuk menampilkan fokus komponen setelah ditekan.
Nuwun…
Daftar download untuk artikel ini:
1. TPDJButton Component (35) - 13.02 KB
2. TPDJButton Demo (34) - 221.55 KB
