0 Cara Menambahkan Gambar Icon ON/OFF Delphi 7

Pada dasarnya bahasa pemrograman Delphi7 memberikan begitu banyak tools untuk mempercantik atau membuat lebih menarik disetiap aplikasi yang tengah dibuat. Beberapa diantaranya dengan cara menambahkan Icon, gambar dan animasi pada Form dan Button.

Dengan ditambahkanya ikon (icon) pada button di setiap aplikasi yang sedang kita buat, maka akan terlihat lebih menarik dan lebih bagus untuk pengguna pada akhirnya. Untuk itu saya akan berbagi tentang Cara Menambahkan Gambar Icon dengan sAlphaImageList Delphi7.

Dalam tutorial ini saya akan mencoba menerapkan nya di pembuatan ON/OFF sebuah injek (inject), yang perlu di siapkan kan adalah 2 gambar ON dan OFF untuk contoh kali ini saya memakai gambar berikut ini

 

1. Buka program Delphi 7 

2. Buat atau buka Project yang sedang dikerjakan

3. Klik salah satu komponen pada Form yang akan anda berikan / tambahkan ikon (kali ini saya mencontohkan pada   (sBitButton)

4. Tambahkan komponen (component) sAlphaImageList pada Form yang ingin anda tampilkan icon pada (tombol, frame, menu). Saya menggunakan komponen tersebut karena telah menambahkan komponen AlphaSkin pada Delphi 7.Jika ingin tanpa menggunakan komponen AlphaSkin anda dapat menggunakan komponen default delphi anda dengan klik Win32 pada pallete komponen pilih ImageList. Perbedaannya hanya pada ekstensi gambar yang akan ditampilkan nantinya, saya menyarankan menggunakan sAlphaImageList agar lebih mudah.

5.  Jika komponen telah ditambahkan pada From klik kanan pilih ImageList Editor

   

 

 6. Klik Add untuk menambahkan gambar icon dari komputer (tempat menyimpan gambar ikon / icon anda). jika sudah klik OK

7. Klik salah satu komponen pada Form yang akan anda berikan / tambahkan ikon (sBitButton)

 

8. Lihat pada Object Inspector > Propertis cari Images klik anak panah pilih sAlphaImageList

Lanjutkan pada ImageIndex klik anak panah dan pilih ikon yang akan ditambahkan pada sBitButton gambar OFF dahulu agar tampilan pertama di posisi OFF 

 

  9. Hilangkan Caption supaya kelihatan full gambar ON/OFF

Lanjutkan berinama login

10. Tentukan ukuran biar lebih pas di pandang klik pada sAlphaImageList > Propertis cari Height dan Width

11. Klik sBitButton > Propertis cari ShowCaption > False

12. Klik sBitButton pastekan di bawah ini

 

if login.Caption  ='ON' then begin

    IdMappedPortTCP1.Bindings.Add.IP           := '127.0.0.1';

    IdMappedPortTCP1.Bindings.Add.Port        := StrToInt('8888');

    IdMappedPortTCP1.Active                          := True;

    login.Caption                                               := 'OFF';

    login.ImageIndex                                         := 1;

    IdMappedPortTCP1.MappedHost                := '128.199.207.154';

    IdMappedPortTCP1.MappedPort                 := StrToInt('8080');

 

  end else begin

      Sleep(100);

      IdMappedPortTCP1.Active                       := False;

      IdMappedPortTCP1.Bindings.Clear;

      login.Caption                                            := 'ON';

      login.ImageIndex                                      := 0;

      end;

13. Simpan.

Sekiantutorial Menambahkan Gambar Icon dengan sAlphaImageList Delphi 7 untuk mempermudahkan anda tanpa harus menambahkan satu persatu disetiap (sbitbutton, frame atau menu) pada aplikasi yang sedang anda kerjakan.

Download contoh Cara Menambahkan Gambar Icon ON/OFF Delphi 7