Grid veya StringGrid Hücre Renklendirme

[mcuyan]

(15-03-2018, Saat: 22:21)burakb44 Adlı Kullanıcıdan Alıntı: Arkadaşlar merhaba,
multi device application'da Grid veya Stringgrid'in şartları sağlayan hücrelerin zemin rengi ve yazı fontlarında değişiklik nasıl yapılıyor? Yardımcı olabilirmisiniz
teşekkürler

procedure TForm8.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if ib1.Recno mod 2 = 0 then
   DBGrid1.Canvas.Brush.Color := clmoneygreen
 else
   DBGrid1.Canvas.Brush.Color := $00E3F9D5;
 with DBGrid1.Canvas do
 begin
   if (gdSelected in State) then // seçili alanın renk ve yazı fontu
   begin
     Brush.Color := $00FFA042; // $00E2D032; //seçim rengi
     Font.Color := ClBlack; // yazı rengi
     Font.Size := 8; // yazı büyüklüğü
     // Font.Style := font.Style + [fsBold]; // yazı kalın olsun
     FillRect(Rect);
   end;
 end;
 DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;