Membuat program - aplikasi absensi dengan Delphi BAG.2

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Membuat program atau aplikasi absensi dengan delphi sudah pernah saya bikin dipostingan sebelumnya,cari saja. Dan kali ini saya juga akan membuat postingan yang sama tentang aplikasi Absensi bagian kedua, sudah jelas ada perbedaan dari yang sebelumnya. Barangkali teman" semua membutuhkanya maka saya dengan senang hati di share buat semuanya.

Merubah value/Huruf/Teks pada DBGRID di Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Merubah Value atau data yang ditampilkan di DBGRID dengan yang kita inginkan.

procedure TFAbsen.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  grid : TDBGrid;
 JAM: String;
  aRect : TRect;
begin
  JAM := '-'; // deklarasi teks yang akan ditampilkan di DBGRID
  aRect := Rect;
  grid := sender as TDBGrid;

    if column.FieldName = 'JamMasuk' then    // jika kolom JamMasuk maka: jika Value Jam masuk = 00:00 maka di DBGRID tampilkan menjadi tanda - (baca : min)
  begin
    if (ADOTampilJamMasuk.Value=StrToTime('00:00')) or (ADOTampilJamMasuk.Value=StrToTime('0:00'))  then
    begin
    grid.Canvas.FillRect(Rect);
    DrawText(grid.Canvas.Handle, PChar(JAM), Length(JAM), aRect,
      DT_SINGLELINE or DT_CENTER or DT_VCENTER);
      end
  end;
end;


jadi di DBGRID itu harusnya yang muncul 00:00 tapi karena memakai coding di atas maka dimana yang Valuenya=00:00 akan brubah menjadi tanda - (baca : min).

Catatanku  !!

Membuat Aligment EditBox Menjadi rata tengah di Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Membuat Aligment EditBox  menjadi rata tengah. di delhpi 7 editbox itu tidak ada di propertynya agar teks menjadi rata tengah, tapi tidak tau kalo ver lain. oleh karena itu ada coding untuk membuat aligmentnya itu rata tengah. ini dia :

Video Streaming Youtube dengan Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Key : Cara membuat Video Streaming dengan delphi. Saya akan share bagaimana membuat video Youtube bisa dijalankan dengan menggunakan program Delphi seperti TV online gitu lah tapi ini khusus untuk Video Youtube, Intinya menjalanka atau memutar Video dari Youtube secara streaming. Coding ini ane dapet dari blog negara sebelah dari sebuah Forum, dan disini saya akan mengShare ulang yang khususnya  bagi orang Indo.