Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
[Çözüldü] Fmx grid veya stringgrid hücre renklendirme
#4
Başlar başlamaz ümidiniz kırılmasın diye verdiğiniz kodu revize ediyorum.

Açıklamalarımı okuduğunuz anladığınız ancak FMX tipi kod acemiliğine veriyorum.

Aşağıdaki örnekte sadece 4,4 adresli hücreye odaklandım. Sadece oradaki içeriği değerlendirdi.

Siz bu kodu kendinize göre revize ederek, sınırlarınızı belirler, içeriğe göre adım atarsınız.


procedure TForm1.StringGrid1DrawColumnCell(Sender: TObject;
 const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
 const Row: Integer; const Value: TValue; const State: TGridDrawStates);
var
aRowColor: TBrush;
aNewRectF: TRectF;
begin
 aRowColor := TBrush.Create( TBrushKind.Solid, TAlphaColors.Alpha );

 aRowColor.Color := TAlphaColors.White; // Varsayılan Hücre Rengi.

 if (Row = 4) AND (Column.Index = 4) then begin
   if TStringGrid(sender).Cells[ Column.Index, Row ] = '1'
   then aRowColor.Color := TAlphaColors.Red
   else aRowColor.Color := TAlphaColors.Green;
 end;

 aNewRectF := Bounds;
   Canvas.FillRect(aNewRectF, 0, 0, [], 1, aRowColor);
   Column.DefaultDrawCell(Canvas, Bounds, Row, Value, State);
 aRowColor.free;
end;
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla


Bu Konudaki Yorumlar
Fmx grid veya stringgrid hücre renklendirme - Yazar: mrmarman - 11-02-2019, Saat: 11:51
Cvp: Fmx grid veya stringgrid hücre renklendirme - Yazar: CesuR - 11-02-2019, Saat: 13:03
Fmx grid veya stringgrid hücre renklendirme - Yazar: mrmarman - 11-02-2019, Saat: 13:17
Fmx grid veya stringgrid hücre renklendirme - Yazar: CesuR - 11-02-2019, Saat: 13:35

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Tam ekran sorunu ? [ ÇÖZÜLDÜ ] Mr.Developer 7 224 27-05-2020, Saat: 17:16
Son Yorum: Mr.Developer
  [ÇÖZÜLDÜ] Delphi iOS Mesaj Sorunu Halil Han Badem 10 699 12-05-2020, Saat: 13:09
Son Yorum: Halil Han Badem
  ( Çözüldü ) OrangeUI windows 64 bit yok mu? mfidan 21 1.978 08-05-2020, Saat: 03:01
Son Yorum: DelphiTeacher
  fmx gönder veya enter tuşu kullanımı seydigozegir@gmail.com 5 524 24-04-2020, Saat: 11:53
Son Yorum: cihankoca
  [ÇÖZÜLDÜ] OrangeUI SkinFMXListView Item Güncelleme Halil Han Badem 1 245 18-04-2020, Saat: 13:32
Son Yorum: Halil Han Badem



Konuyu Okuyanlar: 1 Ziyaretçi