StringGridin her hücresine ayrı renk verme

[zagamedline]

arkadaşlar merhaba;

bi randevu sayfası hazırladım.... her hücreye farklı renk vermek ve randevu bilgilerini görmek istiyorum... renk verebiliyorum fakat bu sefer de
tüm randevuda yazılı olan bilgiler kayboluyor...

Kod: Tümünü seç

procedure Trezervasyon.rezerDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
t:integer;
begin

rezerv.First;
for t:=0 to rezerv.RecordCount-1 do
begin

if (ACol=rezervoda.AsInteger) and (ARow=rezervsatir.AsInteger) then
  begin
    if (rezervoda_adi.AsString='') or (rezervoda_adi.IsNull) then rezer.Canvas.Brush.Color := clWhite // renk yoksa beyaz
    else rezer.Canvas.Brush.Color :=rezervoda_adi.AsVariant ; // data kaydında  renk ' $00004F00 ' şeklide kayıtlı
    rezer.Canvas.FillRect(Rect);
  end;
rezerv.Next;
end;

rezer.Hint:=rezer.Cells[acol,arow] ;
rezer.ShowHint:=true;

end;

yukarıdaki kodu acaba stringGridin başka bir olayına mı? yazmalıyım.. Lütfen Yardım olun...

[Battosai]

Evet yöntem yanlış...dataseti burda döngüye sokmak hatalı...yapılması gereken...hücredeki veriye göre reklendirme yapmak...
örneğin başında "-" olan bir text için şu renk şu font gibi.Bunun çeşitlemesi çok olur sen kendi veri yapına göre ayarlarsın...örneğin ben randevu aralıklarını # işareti ile belirlemiştim...böylece grid içinde # işareti olanların renkleri aynı oluyordu...tabiki font renginide aynı yapınca sanki renklendirilmiş bir sütün gibi oluyor...drawcell içinde kesinlikle döngü kullanma programında hatalara neden olacaktır çünkü her değişimde tetiklenir bu olay...

[zagamedline]

tşkler. arkadaş....


yine tüm dataları taramam gerekmeyecek mi?

daha açıklayıcı birşeyler yazsan veya örnek bi kod varsa....

çok makbule geçer...