DBGrid1.Columns[1].Font.Color

[Henry Olive 5]

Good Day,

My table looks like below (In a DBGrid)

CODE

-------

AAA

AAA-AA

AAA-AA-BB

BBB

BBB-BB

BBB-BB-CC

 

I want to make font color ClRed  if the Value.Length <= 3

That is  just AAA and BBB value's font.color should be red

 

procedure TAccAccounts.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  Str : String;
begin
  Str := DBGrid1.Columns[0].Field.Value;
  if Length(Str) <= 3 then
     DBGrid1.Columns[0].Font.Color := ClRed else
     DBGrid1.Columns[0].Font.Color := ClWindowText;
   Self.Canvas.FillRect(Rect);
end;

 

Eventhough Delphi makes AAA clRed but doesnt make BBB clRed it is still clBlack

Thank You

 

 

 

[Uwe Raabe 1890]

Have you tried using the debugger to inspect the actual content of Str in the problematic case?

[Lajos Juhász 239]

In the event you should change the color of the font on canvas not the column. 

[programmerdelphi2k 235]

Quote

sure what... this:

 

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
  if Field.AsString.trim.Length <= 3 then
    DBGrid1.Canvas.Font.Color := clRed
  else
    DBGrid1.Canvas.Font.Color := clBlue;

  DBGrid1.DefaultDrawColumnCell(Rect, 0, DBGrid1.Columns[0] , State);
end;

Edited January 3, 2023 by programmerdelphi2k

[Henry Olive 5]

Sorry for late respond i was sick for couple of days

Thank You so much Uwe, Lajos, Programmer