Kolon rengi

[serhat]

Merhaba.


Araştırdım fakat somut bir şey bulamadım, Listviewde kolon rengini nasıl değiştire bilirim?

[SimaWB]

Bir kaç gün önce buna benzer birşeye ihtiyaç duyduğumda görmüştüm:
http://delphidabbler.com/articles?article=16

Özellikle "Rainbow Columns" kısmı tam sizin istediğiniz şeye örnek teşkil ediyor.

[serhat]

Vermiş olduğunuz linki daha önce incelemiştim, benim aradığım şey kolon caption ve background rengini nasıl değiştire bilirim.

[Abdullah ILGAZ]

(16-01-2018, Saat: 13:12)serhat Adlı Kullanıcıdan Alıntı: Vermiş olduğunuz linki daha önce incelemiştim, benim aradığım şey kolon caption ve background rengini nasıl değiştire bilirim.

Canvas kütüphanesini kullanarak Draw işlemlerinin tamamını yapabilirsiniz.

Örnek olması açısından bir FMX projesinde kullandığım şekil şöyleydi;

var
  aBrush: TStrokeBrush;
 aRect: TRectF;
begin

 { Arkaplan boyama }
 if Row = 1 then
 begin
   if Value.ToString = 'TAMAM' then
   begin
     Canvas.Fill.Color := $FFCEEFD6 // Yeşil BG
   end
   else if (Value.ToString = 'FAZLA') or (Value.ToString = 'EKSİK') then
     Canvas.Fill.Color := $FFEFCECE
   else
     Canvas.Fill.Color := $FFFFFFFF;

   Canvas.FillRect(Bounds, 0, 0, [], 1); 
   { Arkaplan boyama bitiş }
   { Metin boyama }
   if Value.ToString = 'TAMAM' then
   begin
     Canvas.Fill.Color := $FF4CAF50; // Yeşil
     Canvas.Font.Style := [TFontStyle.fsBold];
   end
   else if (Value.ToString = 'FAZLA') or (Value.ToString = 'EKSİK') then
   begin
     Canvas.Fill.Color := $FFF44336; // Kırmızı
     Canvas.Font.Style := [TFontStyle.fsBold];
   end
   else
     Canvas.Fill.Color := TAlphaColorRec.Black;

   aRect := Bounds;
   Canvas.FillText(aRect, Value.AsString, false, 1, [], TTextAlign.Center);
   { Metin boyama bitiş }
 end;
end;