Menampilkan File Flash (.swf) di Delphi

Dalam pembuatan aplikasi visual, kita dituntut agar bisa membuat desain yang user-friendly dan semenarik mungkin. Banyak cara yang digunakan oleh para programmer (biasanya dibantu oleh graphic designer), salah satunya adalah dengan menampilkan file flash (.swf) di dalam form aplikasi yang mereka buat.

Jika Anda menggunakan Delphi dalam pembuatan aplikasi, Anda dapat menggunakan cara seperti berikut:

1. Pilih menu Component | Import ActiveX Control
2. Pilih Shockwave Flash (Version 1.0) pada form dialog yang muncul, lalu klik Install
3. Siapkan project baru untuk melakukan ujicoba
4. Pada Component Pallete, klik page ActiveX
5. Tempatkan komponen ShockwaveFlash ke dalam form
6. Isikan nama file .swf (lengkap dengan path-nya) ke dalam properti Movie pada pada komponen ShockwaveFlash1 melalui Object Inspector, misalnya D:\movies\foreveryoung.swf (Anda juga dapat menggunakan kode untuk melakukan langkah ini, misal di dalam event OnShow pada Form1)
   
7. Jalankan aplikasi
   

Mengubah Warna Baris pada Komponen DBGrid

Pada saat kita menggunakan komponen DBGrid di dalam Delphi, kita dapat mengubah warna baris dari setiap data yang ditampilkan. Biasanya, para programmer akan membuat warna yang berlainan antara baris ganjil dan genap. Tujuannya adalah agar data dalam tabel (komponen DBGrid) mudah untuk dibaca karena adanya pembatas warna.

Pekerjaan semacam ini sangat mudah dilakukan di dalam Delphi, yaitu dengan cara mengisikan kode sederhana pada event OnDrawColumnCell dari komponen DBGrid.

Berikut ini langkah-langkah yang Anda perlukan (saya menggunakan Delphi 7 untuk mendemonstrasikan tutorial ini):

1. Siapkan project baru (File | New Application)
2. Tempatkan komponen ClientDataSet (terletak pada page Data Access)
3. Isi properti FileName dari ClientDataSet1 dengan file "C:\Program Files\Common Files\Borland Shared\Data\customer.xml"
4. Tempatkan komponen DataSource (terletak pada page Data Access), lalu set properti DataSet ke ClientDataSet1
5. Tempatkan komponen DBGrid (page Data Controls), lalu set properti DataSource ke DataSource1
6. Isikan kode di bawah ini ke dalam event OnDrawColumnCell dari komponen DBGrid1

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  barisGenap: boolean;
begin
  // menentukan baris genap atau ganjil.
  // Jika genap, variabel akan bernilai true
  barisGenap := ClientDataSet1.RecNo mod 2 = 0;
  if barisGenap then begin
    // menentukan warna latar (background)
    DBGrid1.Canvas.Brush.Color := $00CD9E85;
    // menentukan warna teks
    DBGrid1.Canvas.Font.Color := clWhite;
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;