Membuat TStringGrid lebih menarik

Selama ini banyak saya melihat, programmer Delphi memakai komponen VCL yang indah-indah. Namun VCL ini bukan kepunyaan delphi sendiri, melainkan dibuat oleh pihak ke-tiga. Saya mencoba mencari-cari di internet, kebanyakan komponen ini berharga mahal. Sebagai contoh, anda bisa melihat Grid buatan TMS Software dibawah ini:

GAMBAR 1

                                                                  
sekarang bandingkan dengan TStringGrid, asli, milik Delphi dibawah ini

GAMBAR 2

                                                                

Semua pasti setuju, gambar 2 kurang menarik. Sekarang mari kita otak-atik gambar 2 agar persis sama dengan grid buatan TMS Software pada gambar 1. Jika kita berhasil, kita bisa menghemat ongkos pembuatan software, karena grid tersebut kita program sendiri.

Langkah-Langkah Pembuatan

• Hal yang pertama-tama kita kerjakan. Ubah property DefaultDraw menjadi false. Dengan demikian, maka tanggung jawab penggambaran object terletak pada programmer. Sehingga tampilan menjadi seperti dibawah ini:
  
  
  

  

  GAMBAR 3

                                                       
  Lho? Bukankah gambar 3 lebih jelek dari gambar 2? Memang! Tunggu sebentar, kita masih belum menggambar object-nya sehingga object-nya masih merana.
• Kita memulai dengan mengubah warna Fixed Column grid ke warna biru. Kita mulai menulis kode program berikut di event OnDrawCell:
  
  with stringgrid1 do
  begin                    
       if gdFixed in  State then          
       begin                      
           Canvas.Brush.Color := $00CD934B;                   
           Canvas.Font.Color := $00000;          
       end;         
       Canvas.FillRect(rect);
  end;
  dan gambarnya menjadi seperti gambar 4
  
  
  

  

  GAMBAR 4

•  Nah! Kenapa juga gambarnya biru semua? Kan yang kita inginkan yang biru cuma Fixed Column, bukan semua. Itu     disebabkan kita cuma memberitahu apa yang digambar saat menjumpai Fixed Column, sementara yang bukan Fixed Column tidak kita definisikan.Sekarang tambahkan programnya menjadi seperti ini:
  
  with stringgrid1 do
  begin               
      if gdFixed in  State then              
     begin             
         Canvas.Brush.Color := $00CD934B;             
         Canvas.Font.Color := $00000;            
     end else      
     begin              
          Canvas.Brush.Color := $FFFFFF;              
          Canvas.Font.Color := $00000;      
      end;      
     Canvas.FillRect(rect);
  end;  

     Nah sekarang Grid-nya menjadi seperti ini:       

GAMBAR 5

• Setelah warna Fixed Column selesai, tinggal tulisan. Seperti kita lihat, tulisan seperti pada gambar 2 hilang. Pada langkah 2, kita hanya menggambar background, sekarang kita menggambar tulisannya (foreground). Kita ubah kode programnya pada bagian setelah Canvas.FillRect(rect);    menjadi seperti ini:

   ................................... 

   Canvas.FillRect(rect);    

     DrawText(Canvas.Handle, PChar(S), Length(S), Rect, DT_LEFT or DT_VCENTER  or DT_SINGLELINE)

  end;

Kode program diatas akan membentuk gambar grid menjadi seperti dibawah ini:

GAMBAR 6

Masih ada kekurangan! Judul pada Fixed Column tidak di tengah-tengah, padahal pada contoh gambar 1, tulisan ada di tengah Cell. Sekarang kita ubah kode program pada bagian DrawText menjadi seperti ini:
    
    if ARow = 0 then

    DrawText(Canvas.Handle, PChar(S), Length(S), Rect, DT_CENTER or DT_VCENTER  or DT_SINGLELINE)

   else

    DrawText(Canvas.Handle, PChar(S), Length(S), Rect, DT_LEFT or DT_VCENTER  or DT_SINGLELINE)

  end;

Saat ini tulisan sudah di tengah, tetapi font tulisan masih hitam, bukan putih seperti gambar 1, maka marilah kita ubah sedikit program pada bagian gdFixed in state  menjadi seperti ini:

       if gdFixed in  State then              

      begin             

          Canvas.Brush.Color := $00CD934B;             

          Canvas.Font.Color := $FFFFFF;        

      end else     

Pada gambar 2, ada batas-batas jelas antar tiap cell, sementara grid yang kita buat tidak seperti itu. Sekarang mari kita otak-atik garis pada batas Cell. Letakkan baris kode berikut pada permulaan kode, setelah  with stringgrid1 do :
   with Rect do

   begin

             Top := Top + 1;

             Left := Left + 1;

             Bottom := Bottom - 1;

             Right := Right - 1;

         end;

grid kita menjadi seperti dibawah ini:

GAMBAR 7

Sebentar! masih ada kekurangan. Bagaimana pointer sorot. Masih belum dibuat. Sekarang ubah kode program setelah gdFixed in state  menjadi seperti dibawah ini:

       if gdFixed in  State then              

      begin             

          Canvas.Brush.Color := $00CD934B;             

          Canvas.Font.Color := $FFFFFF;        

      end else    

       if gdSelected in State then

        begin

            Canvas.Brush.Color := $00E0BB8D;

            Canvas.Font.Color := $000000;

        end else

        begin

           canvas.Brush.Color := $FFFFFF;

           Canvas.Font.Color := $000000;

        end;

sehingga grid kita menjadi seperti dibawah ini:

GAMBAR 8

Membuat TStringGrid lebih menarik 2012-06-18T10:32:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer