Quantum Grid Renklendirmek

[mooth]

Merhaba Arkadaşlar Normal Gridlerle

if form2.cari_hareketlerOZELKOD.AsString='Taksit Ödemesi' then begin
DbGridEh1.Canvas.Brush.Color:=$009BE1D1;
DbGridEh1.Canvas.Font.Color:=ClBlack;
end;
DbGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column,State);


DrawColumnCell Olayı İle Bu Şekilde Renklendirilebiliyor...

Peki Bunu Quantum Grid İle Nasıl Yapabilirim. Yardım Edenlere Şimdiden Teşekkürler.

[rsimsek]

Yaklaşık olarak aynı şekilde yapıyorsun; View in OnCustomDrawCell ine benzer şekilde;

Kod: Tümünü seç

procedure TFRM_Ihraciye.View1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  if Table1Ala1TOPLAM.AsFloat > 150 then
  begin
    ACanvas.Font.Color := clRed; // yazı rengi
    ACanvas.Brush.Color := clYellow; // fon rengi
  end
  else
  begin
    ACanvas.Font.Color := clYellow;
    ACanvas.Brush.Color := clBlue;
  end;
end;

bir kodla ACanvas a istediğin rengi verebilirsin..

[fahrettin]

Oncelikle aramıza hoşgeldiniz....
ilk olarak forum kurallarını okumanızı rica ediyorum......

Bu konuda daha once forumda bir kaç kez geçti arama yaparak bu sonuçlara ulaşabilirsiniz....
quantum grid renk
diye aratarak ben iki sonuc buldum bile....

[mooth]

Arkadaşlar Forum Aramayı Kullanmadığım İçin Özür Dilerim. Dalgın Bir Gün Geçiriyorum. Cevap İçin Teşekkürler...

[mooth]

Tekrar Merhaba Verdiğiniz Kod u Denedim Ama Üzerine Tıkladığım Zaman Sarı ya Boyamakta Yani İşime Yaramadı. Diğer Arama Sonuçlarından İse Birşey Çıkaramadım. Tekrar Düzenlerseniz Çok Sevinirim...

[rsimsek]

O sadece bir örnekti sen kendi kıstaslarına göre ve oradaki renklerin yerine de kendi seçtiğin renkleri verebilirsin

[mooth]

Üstat Kıstasları Zaten Değiştirdim Ama Demek İstediğim Kıstasları Değiştirince Bile Cell Üzerine Tıklama Yaptığım Zaman Sarıya Boyuyor DbGridi Çift Tıklıyorum CxGridDbTableWiev1 i Seçip OnCustomDrawCell Olayına Değiştirdiğim Kodu Yazıyorum. Ama Projeyi Çalıştırdığım Zaman Boyaması Gereken Sütünu Seçtiğim Zaman Fontu Boyuyor. Acaba Version Farkı Falanmı Var Delphi 7 Ve QuantumGrid V5 Lisanslı Kullanıyorum...

[name]

Merhaba
Recep bey cevabı zaten vermiş, ancak ben farklı yöntem yazmak istiyorum. Öncelikle form'a "Dev Express" tab'ındaki "TcxStyleRepository" bileşenini ekle. İstediğin renk ve font'ta style oluştur. Sonra TableView'in "OnGetContentStyle" event'ına aşağıdaki kodu yaz. Tabiki "Values[2]" ifadesindeki ikiyi sen kendi cxGrid'indeki renginin değişmesini istediğin Field'ın index'ini yazman gerekli.

Birde tavsiyede bulunmak istiyorum. Karşılaştırma yaptığın field'in sayısal bir değere sahip olmasını sağlar isen daha iyi olur. 'Taksit Ödemesi' değerini 0 yada 1 gibi sayısal bir değer ile saklanmasını sağla database'de.

Kod: Tümünü seç

procedure TForm1.cxGrid1TableView1StylesGetContentStyle(
  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
begin
  if ARecord.Values[2] = 'Taksit Ödemesi' then AStyle := cxStyle1;
end;

[mooth]

Cevabınız İçin Çok Teşekkür Ederim. Zira Problemim Çözüldü...