Grid Renklendirme

FireMonkey ve Mobil uygulama (iOS, Android, Windows Phone) ile ilgili sorularınızı bu foruma sorabilirsiniz.
Cevapla
apachi2006
Üye
Mesajlar: 6
Kayıt: 06 Kas 2015 07:49

Grid Renklendirme

Mesaj gönderen apachi2006 »

Merhaba arkadaşlar,
VCL (windows)de Dbgridde bulunan textin rengini datadaki veriye göre dbgrid satırını On Drawcolumncell olayı ile renklendiriyorum ancak, aynı işlemi firemonkeyde yapmaya çalışında veri bulunan satırı değilde bir sonraki satırı renklendiriyor. Örnek kod:

procedure Tyenform.dbgrid1DrawColumnCell(Sender: TObject;
const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
const Row: Integer; const Value: TValue; const State: TGridDrawStates);
var x:integer;
begin
x:= modul.pano.FieldByName('durumu').AsInteger;
case x of
0:
begin
dBGRid1.TextSettings.FontColor:=TAlphaColorRec.Black;
end;
1:
begin
dBGRid1.TextSettings.FontColor:=TAlphaColorRec.Green;
end;
2:
begin
dBGRid1.TextSettings.FontColor:=TAlphaColorRec.Blueviolet;
end;
3:
begin
dBGRid1.TextSettings.FontColor:=TAlphaColorRec.Red;
end;
4:
begin
dBGRid1.TextSettings.FontColor:=TAlphaColorRec.Gray;
end;
end;
end;

Fikir verebilecek olan var mı? Kullandığım nesne grid.
apachi2006
Üye
Mesajlar: 6
Kayıt: 06 Kas 2015 07:49

Re: Grid Renklendirme

Mesaj gönderen apachi2006 »

Güncel
apachi2006
Üye
Mesajlar: 6
Kayıt: 06 Kas 2015 07:49

Re: Grid Renklendirme

Mesaj gönderen apachi2006 »

Delphiciler nerdesiniz!
Cevapla