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.
Grid Renklendirme
-
- Üye
- Mesajlar: 6
- Kayıt: 06 Kas 2015 07:49
Re: Grid Renklendirme
Delphiciler nerdesiniz!