Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Dbgrid'de aktif satırı renklendirin  (Okunma sayısı 3369 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı ahmetkilic

  • Üye
  • ***
  • İleti: 32
  • Rep: +3/-0
Dbgrid'de aktif satırı renklendirin
« : 28 Kasım 2007 16:49:41 »
Kod: Delphi
  1. implementation
  2.   type
  3.   Tcustomdbgridcracker=class(TCustomDBGrid);//datalink kullana bilmeniz için şart
  4.  
  5. procedure TForm29.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  6.   DataCol: Integer; Column: TColumn; State: TGridDrawState);
  7.  
  8. begin
  9.     with Tcustomdbgridcracker(dbgrid1) do
  10.     if DataLink.ActiveRecord=Row-1 then
  11.     Canvas.Brush.Color:= clBlue
  12.     else
  13.     Canvas.Brush.Color:= clYellow;
  14.     DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  15. end;

kolay gelsin arkadaşlar.
« Son Düzenleme: 13 Aralık 2008 08:32:57 by hayati »
Kayıtlı

Çevrimdışı Caylaq

  • Yeni Üye
  • *
  • İleti: 5
  • Rep: +0/-0
Ynt: Dbgrid'de aktif satırı renklendirin
« Yanıtla #1 : 13 Aralık 2008 01:41:28 »
Bu daha kolay ve coşkulu. Gridinize renk katın arkadaşlarrr





Kod: Delphi
  1. procedure TForm12.DBGrid1DrawColumnCell(Sender: TObject;
  2.   const Rect: TRect; DataCol: Integer; Column: TColumn;
  3.   State: TGridDrawState);
  4. begin
  5.  
  6.     if DBGrid1.Fields[4].asstring <>'K' then
  7.     begin
  8.     DBGrid1.Canvas.Brush.Color := clRed;
  9.     dbGrid1.Canvas.Font.Color:=clYellow; // Fontun rengini değiştirir..
  10.     DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  11.     end
  12.     else if DBGrid1.Fields[7].asstring ='0.00' then
  13.     begin
  14.     DBGrid1.Canvas.Brush.Color := clYellow;
  15.     dbGrid1.Canvas.Font.Color:=ClBlack; // Fontun rengini değiştirir..
  16.     DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  17.     end
  18. //    else if DBGrid1.Fields[17].asstring ='998' then
  19. //    begin
  20. //    DBGrid1.Canvas.Brush.Color := clgreen;
  21. //    dbGrid1.Canvas.Font.Color:=ClBlack; // Fontun rengini değiştirir..
  22. //    DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  23. //    end
  24.        else If (gdSelected in state) then // eğer seçili ise
  25.     begin
  26.     DBGrid1.Canvas.Brush.Color := $00A00000;  // zemin rengi  Lacivert
  27.     DbGrid1.Canvas.Font.Color := clYellow; // font rengi
  28.     UstUnvani.Caption:=DBGrid1.Fields[15].asstring;
  29.     UstMusteriKodu.Caption:=DBGrid1.Fields[16].asstring;
  30.     gRUPkODU.Caption:=DBGrid1.Fields[18].asstring;
  31.     DosyaEki.Caption:=DBGrid1.Fields[19].asstring;
  32.     PolNo.Caption:=DBGrid1.Fields[2].asstring;  
  33.     end
  34.     else if (dbgrid1.datasource.dataset.recno mod 2) =0       then
  35.     DBGrid1.Canvas.Brush.Color := $00C8FBFD
  36.     else
  37.     DBGrid1.Canvas.Brush.Color := $00BFD7B5;
  38.     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  39. end;
« Son Düzenleme: 13 Aralık 2008 08:34:22 by hayati »
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »